Allez sur la colonne suivante libre

Tony44

XLDnaute Junior
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

XLDnaute Barbatruc
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.
Code:
ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
Bon courage :cool:
 

Tony44

XLDnaute Junior
Re : Allez sur la colonne suivante libre

Merci JNP,

j'étais pourtant pas très loin.


merci.
 

mécano41

XLDnaute Accro
Re : Allez sur la colonne suivante libre

Bonjour,

Par une autre méthode...

Code:
ActiveCell.Offset(0, 1).Select
Cordialement
 

Tony44

XLDnaute Junior
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.
 

Fichiers joints

croco40

XLDnaute Occasionnel
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
 

Fichiers joints

camarchepas

XLDnaute Barbatruc
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
 

Discussions similaires


Haut Bas