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 :

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

 

[tototiti2008]

Re : comment trouver la dernière colonne vide ?

Bonjour Kankrela,

que vaut colonne avant la boucle ?
dans ton 1er code, tu avais bien pensé à initialiser ligne à 6, il faudrait peut-être faire la même chose pour colonne

 

[Kankrela]

Re : comment trouver la dernière colonne vide ?

Bonjour Tototiti2008,
Décidement tu vas me donner un coup de main tous les jours ! Merci !
J'ai bien pensé à ça, voici le code que j'ai essayer en entier :

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

Ca ne me sélectionne même pas une cellule...

 

[tototiti2008]

Re : comment trouver la dernière colonne vide ?

et tu as mis
Cells(5,colonne).select
à la fin ?

 

[Kankrela]

Re : comment trouver la dernière colonne vide ?

Je viens d'essayer, ce n'est pas concluant,
Voici mon code en entier, j'ai peut-etre fait une autre erreur

If Ajout = True Then
     Range("F5").Select
    Selection.Copy
colonne = 1
 Cells(ligne, 1).Select
        Do Until IsEmpty(Cells(5, colonne))
            colonne = colonne + 1
        Loop
        Cells(5, colonne).Select

    ActiveSheet.Paste
                       End If
            
            UserForm1.Hide

 

[tototiti2008]

Re : comment trouver la dernière colonne vide ?

à quoi sert

Cells(ligne, 1).Select

dans cette partie de ton code ?

et qu'est-ce qui ne marche pas, au juste ? ça donne quoi à l'execution ?

 

[bqtr]

Re : comment trouver la dernière colonne vide ?

Bonjour Kankrela, tototiti2008

Si je comprends bien teste ceci :

'.../...
If Ajout = True Then
   Range("F5").Copy Range("A" & ligne).End(xlToRight).Offset(0, 1).Columns
End If
'.../...

Ce code copie la cellule F5 dans la première cellule vide de la ligne dont le N° corresponde à la variable "ligne". Ce n'est pas forcément la dernière colonne vide de la ligne.

Ou celui ci

'.../...
If Ajout = True Then
   Range("F5").Copy Range("IV" & ligne).End(xlToLeft).Offset(0, 1).Columns
End If
'.../...

Lui copie la cellule F5 dans la dernière colonne vide de la ligne, même s'il y a des cellules vides sur cette dernière.

A+