Discussion :

[trickzer]

bonjour a tous ,

voila mon probleme :
je veut créer un bouton qui me sélectionne la premiere cellule vide de la colonne "a" de mon tableau.
j ai deja essayer avec

Code :

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

1
2
ActiveCell.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

mais rien n y fait sa me selectionne la premiere cellule mais apres mon tableau pas dans mon tableau .
j ai essayer avec pas mal de formule trouver ici et ailleur et rien n y fait
j espere que kelkun pourra m aider merci a tous

[ouskel'n'or]

Regarde là, tu as des explications sur les différentes manières d'obtenir la dernière ligne renseignée d'une feuille de calculs.
Une fois que tu l'as, tu fais "+ 1" pour obtenir la première ligne vide

[trickzer]

je suis novice et c pas facile pour moi de comprendre mais bon
j ai ajouter dans mon code :

Code :

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

Range("A1").End(xlDown).Row+1

et rien ne se passe

[ropineau]

Ca marche pour moi avec ce code la :

Sheets("Database").Range("A1").End(xlDown ).Rows.select

par contre, je selecte la derniere cellule de la plage et non pas la premiere vide...

Peut etre un offset ? (mais doit y avoir plus simple )

Romain - Machine a gaz specialiste

[ouskel'n'or]

Range("A1").End(xlDown).Row+1

te donne la première cellule vide de ta colonne. Si tu as des cellules vides dans une plage de données, ce code ne donne pas la première ligne vide de la plage, mais la première ligne vide rencontrées.
Si tu avais bien tout lu... tu aurais vu que

Code :

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

PremLigVide = Range("A65536").End(xlUp).Row + 1

correspond plus à tes besoins (VBA2003)
Si tu as VBA 2007, il est préférable d'utiliser

Code :

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

    PremLigVide = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row + 1

dernier code que tu peux aussi bien utiliser avec les deux versions.

[trickzer]

le probleme c est que rien ne se passe voici mon code :

Code :

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

1
2
3
4
5
6
7
Sub Bouton7_Clic()
'
Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
    Application.Goto Reference:="Bouton7_Clic"
    ActiveWorkbook.Save
 
End Sub

si kelkun peut me dire pourquoi ????

[ouskel'n'or]

Ton code n'a aucun sens. Je passe sur "Sub Bouton7_Clic()"

Cells(Columns(1).Cells.Count, 1).End(xlUp).Row

Ne donne rien si tu n'affectes pas la valeur à une variable ou si tu ne l'utilises pas dans une ligne de code

Code :

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

NoLigne = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row

Application.Goto Reference:="Bouton7_Clic"

Si ce code s'appliquait à un commandButton (ce qui n'est pas le cas) il placerait le focus sur ce bouton. Mais, outre qu'il ne s'applique pas à un commandbutton, je doute que ce soit ce que tu veux faire.

Précise ce que tu veux faire
où se trouve ton bouton, (userform ou feuille de calculs)
où tu as placé ta macro.
Là, nous pourrons t'aider.
A+