Bonsoir
iliyes a écrit :
l’idéal c'est de toutes les enumerer!!! se serais le top
Pas sur de ça
A tester
Option Explicit
Sub Recherche()
Dim Cel As Range, Depart As String
Set Cel = Cells.Find(what:="*", LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
Depart = Cel.Address
Do
MsgBox "Une cellule de remplie " & Cel.Address
Set Cel = Cells.FindNext(Cel)
Loop While Depart <> Cel.Address
End If
End Sub
iliyes a écrit :
ps : pourrais je te solliciter encore dans un autre sujet que je vais poster des son écritures!! merci
En ouvrant un nouveau post tu sollicites l'ensemble des membres de ce forum
Je n'ai pas la science infuse