Comment trouver la dernière colonne vide ?

Bonjour,

J'ai déjà trouver comment sélectionner la dernière ligne vide de la colonne 1 à partir de la 6ème ligne avec :

ligne = 6
        Cells(ligne, 1).Select
        Do Until IsEmpty(Cells(ligne, 1))
        ligne = ligne + 1
        Loop
        Cells(ligne, 1).Select

Je souhaiterais maintenant sélectionner la dernière colonne vide de la ligne 5, j'ai essayer d'adapter le code précédent :

 Cells(ligne, 1).Select
        Do Until IsEmpty(Cells(5, colonne))
            colonne = colonne + 1
        Loop

mais ça ne marche pas, si qqn à une idée je suis preneur.

Merci d'avance

Morgan

Bonjour,

Essaye ce code suivant qui donnera le numéro de la première colonne vide de la ligne 5 à condition qu'il n'y ait pas de trou dans la ligne :

Sub test()
  lig = 5
  col = 1
  Do Until IsEmpty(Cells(lig, col))
        col = col + 1
  Loop
End Sub

bonjour à tous,

Salut Raja,

tu as aussi :

[IV5].End(xlToLeft).Offset(0, 1).Activate

pour la ligne 5

Claude.

Merci Dubois !

C exactement ce qu'il me fallait