Allez sur la colonne suivante libre

[Tony44]

Bonjour,

j'essaie en vain de trouver une commande qui permmetrait d'aller automatiquement sur la colonne libre suivante.

J'ai trouver la commande pour allé sur la ligne suivante [ActiveSheet.Cells(ActiveCell.Row + 1, ActiveCell.Column).Select], mais je cherche la même chose pour se diriger automatiquement sur la cellule suivante.

Merci de votre aide.

 

[JNP]

Re : Allez sur la colonne suivante libre

Bonjour Tony44 🙂,

J'ai trouver la commande pour allé sur la ligne suivante [ActiveSheet.Cells(ActiveCell.Row + 1, ActiveCell.Column).Select], mais je cherche la même chose pour se diriger automatiquement sur la cellule suivante.

ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 1).Select

Bon courage 😎

 

[Tony44]

Re : Allez sur la colonne suivante libre

Merci JNP,

j'étais pourtant pas très loin.


merci.

 

[mécano41]

Re : Allez sur la colonne suivante libre

Bonjour,

Par une autre méthode...

ActiveCell.Offset(0, 1).Select

Cordialement

 

[Tony44]

Re : Allez sur la colonne suivante libre

je me suis emballé un peu trop vite, cela ne fonctionne pas.

Je voudrais, qu'à chaque fois que je lance la macro, automatiquement soit sélectionné la cellule vide qui suit.

Les cellules vides ne sont jamais les mêmes au fur et a mesure que le tableau se complète.

==> voir le fichier excel, c'est plus parlant.
Merci pour votre aide.

 

[croco40]

Re : Allez sur la colonne suivante libre

je me suis emballé un peu trop vite, cela ne fonctionne pas.

Je voudrais, qu'à chaque fois que je lance la macro, automatiquement soit sélectionné la cellule vide qui suit.

Les cellules vides ne sont jamais les mêmes au fur et a mesure que le tableau se complète.

==> voir le fichier excel, c'est plus parlant.
Merci pour votre aide.

Salut, si g bien tout kompri, voila ce que g fé
Suerte
croco

 

[camarchepas]

Re : Allez sur la colonne suivante libre

Bonjour,

Plus simple ,

A mettre dans le thisworkbook :

Private Sub Workbook_Open()
Worksheets("Feuil1").Activate
Range("IV1").End(xlToLeft).Offset(0, 1).Select
End Sub