Dim x As Range
Set x = Range("5:5").Find("", Range("IV5"), xlValues, xlWhole, 1, 1, False)
If Not x Is Nothing Then MsgBox x.Column
Sub toto()
Dim msg
If IsEmpty(Range("A5")) Then msg = 1 Else msg = Range("A5").End(xlToRight).Column + 1
MsgBox "Première cellule vide de la ligne 5 : " & IIf(msg > Columns.Count, "aucune", msg)
End Sub
Dim x As Range
Set x = Range("5:5").Find("", Range("IV5"), xlValues, xlWhole, 1, 1, False)
If Not x Is Nothing Then MsgBox Split(x.Address, "$")(1)
Sub PremLigVide()
Dim msg
If IsEmpty(Range("B1")) Then msg = 1 Else msg = Range("B1)").End(xlDown).Row + 1
MsgBox "Première cellule vide de la colonne B :" & IIf(msg > Rows.Count, "aucune", msg)
End Sub
Dim x As Range
Set x = Range("5:5").Find("", Range("IV5"), xlValues, xlWhole, 1, 1, False)
If Not x Is Nothing Then If x.Column > 2 Then Columns(x.Column).Insert: Columns(x.Column - 3).Copy _
Columns(x.Column - 1): Columns(x.Column - 1).ClearContents
normal, aucune celligne vide ligne 5 entre la 1ère colonne et la dernière renseignée...Pierrot, j'ai bien inséré ta macro, mais il ne se passe plus rien!!
j'ai besoin de trouver la premiere colonne dont la ligne 5 est vide et ensuite d'insérer une collone juste avant (avec le format de la colonne d'avant et non pas de la colonne qui contient la cellule vide)
Par exemple :
première colonne : "O"
insérer une colonne avant avec le format de la colonne "M".