Bonjour,
Je souhaite utiliser la méthode find sur la cellule active dans une boucle pour récupérer la chaine de caractère "FDM" suivi des 5 chiffres situés après.
Dans l'exemple, je souhaite récupérer FDM37552
J'utilise le code suivant :
Sur cet exemple, je récupère l'ensemble de la valeur de la cellule.
La chaine de caractère présente dans la colonne 1 "FDM..." peut se déplacer dans chaque cellule (elle peut se retrouver en bout de chaine par exemple) cest pourquoi la méthode find est nécessaire.
Merci de votre aide ,
Cdt,
Arthur HO.
Je souhaite utiliser la méthode find sur la cellule active dans une boucle pour récupérer la chaine de caractère "FDM" suivi des 5 chiffres situés après.
Dans l'exemple, je souhaite récupérer FDM37552
J'utilise le code suivant :
Code:
Sub recherche()
entité = "FDM"
Set c = ActiveSheet.Columns(1).Find(entité, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
Do
MsgBox (c.Value) '<== Je tente de récupérer "FDM" & les 5 Chiffres apres'
Set c = ActiveSheet.Columns(1).FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End Sub
Sur cet exemple, je récupère l'ensemble de la valeur de la cellule.
La chaine de caractère présente dans la colonne 1 "FDM..." peut se déplacer dans chaque cellule (elle peut se retrouver en bout de chaine par exemple) cest pourquoi la méthode find est nécessaire.
Merci de votre aide ,
Cdt,
Arthur HO.
Pièces jointes
Dernière édition: