Adresse de la cellule active

Résolu
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 !

2 réponses

  1. Contributeur
    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
    1. 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
    2. Contributeur
      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
    3. @michel_mBonjour 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
  2. Contributeur
    Bonjour

    Essayer ceci

    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Activate
    -1
    1. 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