Adresse de la cellule active

Résolu

arcade89400 Messages postés 28 Statut Membre -
arcade89400 Messages postés 28 Statut Membre - 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 !

Afficher la suite

2 réponses

Réponse 1 / 2
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320
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. arcade89400 Messages postés 28 Statut Membre
  
  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. michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320
  
  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
  1. arcade89400 Messages postés 28 Statut Membre > michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention
    
    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
Réponse 2 / 2
PHILOU10120 Messages postés 6463 Date d'inscription Statut Contributeur Dernière intervention 835

Bonjour

Essayer ceci

Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
-1
1. arcade89400 Messages postés 28 Statut Membre
  
  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

Adresse de la cellule active

2 réponses

Discussions similaires

Newsletters