[RESOLU] comment trouver la dernière colonne vide ?

[Kankrela]

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 :

Code: Tout sélectionner

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 :

Code: Tout sélectionner

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

[Raja]

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 :

Code: Tout sélectionner

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

[dubois]

bonjour à tous,
Salut Raja,
tu as aussi :

Code: Tout sélectionner

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

pour la ligne 5
Claude.

[Kankrela]

Merci Dubois !

C exactement ce qu'il me fallait