Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub CommandeButton1_Click()
for m=L4 to L29
"inconnu"
"inconnu"
for i=B2 to B51266
find Bi
Selection.Copy
workbooks("").Activate...Selection.Past
For Each i In [B2:B51266]
If i.Font.Name Like "azer*" Then
i.Font.Name = "Times New Roman"
End If
Next
Set toto = worksheets("Feuil1").Range("A1:A6").Find(5, LookIn:=xlValues)
If Not toto Is Nothing Then MsgBox "trouvé en ligne " & toto.Row
Set toto = worksheets("Feuil1").Range("A1:A6").Find(n, LookIn:=xlValues)
If Not toto Is Nothing Then MsgBox "trouvé en ligne " & toto.Row