Bonsoir Tanguy, le Forum
Vive les Exceliens fous (et les Exceliennes folles c'est celles qu'on préfère ici lol!!!)
Donc pour ce qualificatif sympathico, voici deux variantes, une basic, et une "plus".... ;-)
Sub TanguyBasic()
Dim ThePlage As Range, TheCell As Range
With Sheets("TheFeuille")
Set ThePlage = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
For Each TheCell In ThePlage
If TheCell = "" Then TheCell = TheCell.Offset(0, 1)
Next
End Sub
======================================
Option Explicit
Const XLD As String = "Les Exceliens/liennes Fous/Folles !! lol"
Sub TanguyPlus()
Dim ThePlage As Range, TheCell As Range
Dim Liste As String
Dim i As Byte
With Sheets("TheFeuille")
Set ThePlage = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
For Each TheCell In ThePlage
If TheCell = "" Then
TheCell = TheCell.Offset(0, 1)
TheCell.Interior.ColorIndex = 3
Liste = Liste & TheCell.AddressLocal & vbCrLf
i = i + 1
End If
Next
If i = 0 Then
MsgBox "Pas de cellule vide entre A1 et A" & ThePlage.Rows.Count
Else
MsgBox "Un nombre de " & i & " cellules étaient vides" & _
"Voici la liste des adresses :" & vbCrLf & Liste, vbInformation, XLD
End If
End Sub
En espèrant te donner de l'inspiration...
Bonne Nuit
@+Thierry