XL 2013 macro sélection dernière cellule avec valeur

Jacky67

XLDnaute Barbatruc

• 10 Mars 2017

• #2

Bonsoir,

Ceci peut-être

Code:

Sub derligne()
Application.Goto Range("A" & Rows.Count).End(xlUp)
'Ou pour mettre  la dernère ligne en tête de feuille
'Application.Goto Range("A" & Rows.Count).End(xlUp), True
End Sub

 

Vote positif 0 Vote négatif

B

Bnj

XLDnaute Occasionnel

• 10 Mars 2017

• #3

Bonsoir et merci de ton aide

C'est mieux cela me place sur la dernière cellule du tableau de la colonne A mais pas sur la première n'ayant pas de valeur

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 10 Mars 2017

• #4

Bnj à dit:

Bonsoir et merci de ton aide

C'est mieux cela me place sur la dernière cellule du tableau de la colonne A mais pas sur la première n'ayant pas de valeur

Cliquez pour agrandir...

RE..
..../la première n'ayant pas de valeur
La demande initiale était:
..../placer mon curseur sur la dernière cellule de la colonne A contenant une valeur.

Tester le code ci-dessous
.....

Code:

Sub derligne()
On Error Resume Next 'Pas de cellule intermédiaire vide
 Application.Goto Columns(1).SpecialCells(xlCellTypeBlanks)(1)
'Ou pour mettre cette ligne en tête de feuille
 'Application.Goto Columns(1).SpecialCells(xlCellTypeBlanks)(1), True
End Sub

Bonne nuit

 

Dernière édition: 10 Mars 2017

Vote positif 0 Vote négatif

B

Bnj

XLDnaute Occasionnel

• 11 Mars 2017

• #5

bonjour

je me suis mal exprimé. pour mieux comprendre, je joint un petit fichier exemple
lorsque je clique sur le bouton , j'aimerais (dans l'exemple) que le curseur se place sur la cellule A7
dans ta première macro, il se plaçait en A23 et maintenant en A1

désolé de l'incompréhension de départ

 

Pièces jointes

• test.xlsm

  16.9 KB · Affichages: 30

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 11 Mars 2017

• #6

Re...
Dans l'exemple le tableau est dimensionné avec des cellules vides.
Si le tableau est dimensionné correctement cette formule
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
fonctionne sans problème.
Le tableau se re-dimensionne automatiquement au rajout de ligne

 

Pièces jointes

• bnj_test.xlsm

  22.4 KB · Affichages: 25

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 11 Mars 2017

• #7

Bonjour à tous,

Un autre essai avec deux possibilités (on reste à l'intérieur du tableau). Le code est dans module1.

 

Pièces jointes

• Bnj- Dernière Cellule vide- v1.xlsm

  19.2 KB · Affichages: 33

Vote positif 0 Vote négatif

B

Bnj

XLDnaute Occasionnel

• 15 Mars 2017

• #8

ça marche !

MERCI beaucoup !

 

Vote positif 0 Vote négatif