Discussion :

[Didpa]

Bonjour

Voilà, j'aimerais employer cette formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A65536").End(xlUp).Offset(1, 0).Select

,
Mais je ne veux pas rechercher la derniere cellule de la colonne, mais la derniere cellule libre de la ligne, j'ai essayé cette formule mais cela ne fonctionne pas, quelqu'un pourrais me dire ou se trouve mon erreur svp.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CB_Valider_Click()
Worksheets("Equipe").Select
 
Range("A3").End(xlToRight).Offset(0, 1).Select
ActiveCell = TB_Equipe
 
End Sub

cordialement

[AlexL.]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("IV3").End(xlToleft).Offset(0, 1).Select

devrait convenir
Les end(xltoleft) end(xltoright) etc réagissent exactement comme la combinaison ctrl+fléche sous excel.

[tototiti2008]

Bonjour Didpa,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A3").End(xlToRight).Offset(0, 1).Select

peut marcher s'il n'y a pas de cellules vides en cours de ligne

s'il y a des cellules vides (sauf en dernière colonne !) il est mieux d'utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("IV3").End(xlToLeft).Offset(0, 1).Select

[Didpa]

merci vous