Re : Extraire le numéro de chèque en Formule et en VBA
Bonjour Michel,
Par formule, et sous réserve que le numéro de chèque comporte toujours 4 chiffres (et que tout nombre à 4 chiffre corresponde bien au numéro de chèque), une formule matricielle :
Re : Extraire le numéro de chèque en Formule et en VBA
Re
Une version par macro (le prmier chiffre 1 rencontré doit être le début du N° de chèque) :
Code:
Sub Cheques()
For i = 2 To Range("G" & Application.Rows.Count).End(xlUp).Row
Cells(i, 9) = Mid(Cells(i, 7), InStr(1, Cells(i, 7), "1"), 4)
Next i
End Sub
Re : Extraire le numéro de chèque en Formule et en VBA
Bonjour à tous,
Un exemple par macro :
Code:
Sub Nro_Ch()
Dim cel As Range
For Each cel In Range("G2:G" & Range("G65536").End(xlUp).Row)
If InStr(1, cel, "1") > 0 And cel Like "*1###*" Then Range("I" & cel.Row) = Mid(cel, InStr(1, cel, "1"), 4)
Next
End Sub
La macro recherche le "1" puis si il y a 3 chiffres derrière, si OK elle extrait le n° dans la colonne I.
Re : Extraire le numéro de chèque en Formule et en VBA
Bonsoir tout le monde
ci-joint une proposition formule permettant d'extraire les n° sans restriction du nombre de chiffres (à partir du moment où ils se suivent, ce qui semble être le cas dans l'exemple donné).
Cordialement
Re : Extraire le numéro de chèque en Formule et en VBA
Re
Histoire de titiller un peu les formulistes (que j'admire infiniment car je suis assez inapte dans cet exercice)
Le fichier de MJ13 avec 2 petits pièges
Re : Extraire le numéro de chèque en Formule et en VBA
Re,
alors je vois que pierrejean joue les poils à gratter !
Bien vu Tibo (non mais...)
Franchement pierrejean, si j'étais aussi "inapte" en VBA que tu l'es en formules, j'en serais très content !
Commençant à connaître les énergumènes qui circulent sur ce forum, j'avais pris le soin de préciser "permettant d'extraire les n° sans restriction du nombre de chiffres (à partir du moment où ils se suivent, ce qui semble être le cas dans l'exemple donné)" car je m'attendait à ce genre de contre-attaque aussi sympathique qu'intéressante.
Heureusement que Tibo veillait au grain
Au plaisir