Utilisation d'une selection en VBA

Marsh Posté le 22-02-2018 à 15:59:37

Bonjour,
J'aimerais pouvoir réaliser une fonction sur toute les cases sélectionner sur Excel. Mais je n'arrive pas à trouver comment avoir des information sur ma sélection.
Voici mon code :

Code :

Sub ChangeTxt()
Dim Selected As String
Selected = Selection.Value
Dim Longueur As Integer
Longueur = Len(Selected)
Dim Delend As Integer
Delend = InStr(1, Selected, "uis" )
Dim Retour As String
Retour = Mid(Selected, Delend + 4)
Cells(18, 10) = Retour 'Ceci est pour le test d'une seul cellule
End Sub

Cela fonctionne pour une cellule mais j'aimerais donc le faire pour tout une plage de cellule.
Merci d'avance !

---------------
Cordialement,

Marsh Posté le 22-02-2018 à 15:59:37

Marsh Posté le 22-02-2018 à 23:06:30

Bonjour,

Quelle chose comme :

Code :

Option Explicit
Sub ChangeTxt()
Dim cellule As Range
Dim pointeur As Long
Dim Retour As String
If TypeName(Selection) <> "Range" Then Exit Sub
For Each cellule In Selection.Cells
If TypeName(cellule.Value) = "String" Then
pointeur = InStr(1, cellule.Value, "uis" )
If pointeur > 0 Then
Retour = Mid(cellule.Value, pointeur + 4)
'
'et la suite du traitement ...
'
End If
End If
Next cellule
End Sub

---------------
Cordialement, Patrice

Marsh Posté le 23-02-2018 à 09:44:41

Merci beaucoup ! Parfait !

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *