Adresse de la cellule active

Résolu/Fermé
arcade89400 Messages postés 25 Date d'inscription samedi 7 juin 2014 Statut Membre Dernière intervention 13 juin 2016 - 6 mars 2016 à 16:24
arcade89400 Messages postés 25 Date d'inscription samedi 7 juin 2014 Statut Membre Dernière intervention 13 juin 2016 - 7 mars 2016 à 09:23
Bonjour à tous,
Soit une colonne Excel dont certaines cellules ont des valeurs; pour ajouter une valeur nouvelle à la première ligne libre, il suffit de se placer en tête de colonne, et de faire [CTRL] + [DOWN] puis de passer à la ligne du dessous.
Comment indiquer l'adresse de cette cellule dans une macro ?
J'ai bien cherché dans le forum, mais je n'ai pas trouvé de réponse; pourtant, elle doit y être...
Alors, si quelqu'un pouvait me donner la réponse, ma reconnaissance lui sera acquise !
A voir également:

2 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 6/03/2016 à 16:46
bonjour
adresse de la 1° cellule vide dans la colonne A
MsgBox Columns("A").Find("", Cells(Cells.Rows.Count, "A")).Address  

et pour rendre cette cellule active
Range("A" & Columns("A").Find("", Cells(Cells.Rows.Count, "A")).Row).Select

 Michel
0
arcade89400 Messages postés 25 Date d'inscription samedi 7 juin 2014 Statut Membre Dernière intervention 13 juin 2016
6 mars 2016 à 18:36
Merci de votre réponse; j'ai bien vérifié la saisie de votre commande; mais le système me répond "erreur 438" et le curseur se place sur la dernière cellule non vide; et je ne sais que faire
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
7 mars 2016 à 08:08
Bonjour

Curieux !!!

je viens de réessayer et on sélectionne bien la 1° cellule vide de la colonne

https://www.cjoint.com/c/FChhhYpws0N
(MS office pro 2007)
0
arcade89400 Messages postés 25 Date d'inscription samedi 7 juin 2014 Statut Membre Dernière intervention 13 juin 2016 > michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023
7 mars 2016 à 09:23
Bonjour michel_m,
Mille pardons ! J'ai fait l'erreur de recopier à la main vos instructions ! Malgré toute l'attention que j'y ai mise, j'ai fait une erreur de recopie; je viens de réessayer avec un bête copier/coller et ça fonctionne parfaitement.
Merci de votre aide et bonne journée
0
PHILOU10120 Messages postés 6368 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 22 avril 2024 796
6 mars 2016 à 16:35
Bonjour

Essayer ceci

Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
-1
arcade89400 Messages postés 25 Date d'inscription samedi 7 juin 2014 Statut Membre Dernière intervention 13 juin 2016
6 mars 2016 à 18:22
Merci de votre réponse;mais elle me pose un petit problème: la seconde ligne que vous me proposez est refusée comme posant un problème; mais je ne sais pas lequel...
Vous avez raison: c'est en forgeant... mais parfois j'ai l'impression de maçonner un fer à cheval et de forger un mur !
0