aller sur la cellule vide suivante

WILFRIED

XLDnaute Impliqué

• 11 Juillet 2005

• #2

Salut crinquinette,

en vba voici une fonction qui te permet cela :

si tu pars de ta cellule active vers le bas :

activecell.end(xldown).select : selectionne la derniere cellule non vide

activecell.offset(1,0).select : décale d'une ligne

attention si dans ton tableau tu as une cellule vide au milieu de cellule pleine et que tu veu connaitre la derniere cellule vide de tous ton tableau utilise plustôt : range('A65536').end(xlup)

cela fonctionne aussi pour les lignes (xlleft) et xlright.

a+ will ;op

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 11 Juillet 2005

• #3

Bonjour

Petite précision si tu permets Wilfried pour les lignes il faut xltoleft et xltoright ...... va comprendre

Bonne journée

 

Vote positif 0 Vote négatif

C

crinquinette

Guest

• 11 Juillet 2005

• #4

re bonjour,
si j'utilise la fonction
range('a65536').end(xlup) j'ai un message d'erreur, savez-vous pourquoi?
merci

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 11 Juillet 2005

• #5

Re

Quel message d'erreur ??

 

Vote positif 0 Vote négatif

WILFRIED

XLDnaute Impliqué

• 11 Juillet 2005

• #6

Salut pascal,

Décidément, ma mémoire n'est vraiment pas bonne en ce moment...

Heureusement la tienne fonctionne toujours.

Peut-être devrait-je suivre l'exemple de robert et me faire une greffe LOL

A+

 

Vote positif 0 Vote négatif

C

crinquinette

Guest

• 11 Juillet 2005

• #7

re bonjour,
erreur de compilation, utilisation incorrecte de la propriété

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 11 Juillet 2005

• #8

Alors petite précision

il faut un truc du genre

dim toto as string
dim maligne as integer

toto=inputbox 'question'
maligne = range('A65536).end(xlup).row + 1
Range('A' & maligne)=toto

 

Vote positif 0 Vote négatif

C

crinquinette

Guest

• 11 Juillet 2005

• #9

bonjour,
je ne veux pas afficher de boite message, ce que je veux c'est simplement me positionner sur la première cellule vide de ma colonne, pour y coller des données
merci

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 11 Juillet 2005

• #10

Dans ce cas là

Sub toto()

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

End Sub

 

Vote positif 0 Vote négatif

C

crinquinette

Guest

• 11 Juillet 2005

• #11

re re bonjour,
merci mille fois ça marche
bonne journée

 

Vote positif 0 Vote négatif