|
|
|
|
Range("A1:G20").Select
For Each Cell In Selection
If Cell.Text Like "*N°*" Then
...
Bonjour,
Soit txtSerie la variable de type String qui récupère le numéro de Facture txtSerie = Right(Cell.Text, Len(Cell.Text) - InStr(UCase(Cell.Text), "N°") - 1) A+. |
Merci beaucoup ^^ |
|
bonjour
essaye ce code : Sub test()
Range("A1:G20").Select
For Each Cell In Selection
If UCase(Cell.Text) Like "*N°*" Then
Facture = Cell.Value
x = InStr(UCase(Facture), "N°")
NumFacture = Right(Facture, Len(Facture) - x - 2)
End If
Next
End Sub
ceci devrait répondre à ton problème en récupérant la variable NumFacture à plus |
Merci pour ce code ! C'est très aimable ! ^^ |
Résultats pour [excel] copier en partie le texte d'1 cellule
Résultats pour [excel] copier en partie le texte d'1 cellule
Résultats pour [excel] copier en partie le texte d'1 cellule