Selection.AutoFill à partir de la première cellule disponible [Résolu]

- - Dernière réponse : Patrice33740
Messages postés
7763
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
19 juin 2019
- 20 déc. 2015 à 22:23
Bonjour,

Je bute un peu sur la dernière touche de mon code, je pense être à deux doigts mais impossible de mettre la main sur l'écriture complète.

J'ai des données dans ma colonne B jusqu'à une cellule x
J'ai des données dans ma colonne A jusqu'à une cellule y
X<Y c'est à dire que ma colonne B descend plus bas que ma colonne A.
Dans ma colonne A je place à un moment une formule :

Range("A1000000").End(xlUp).Offset(2, 0).Select
ActiveCell.FormulaR1C1 = _
"=IF(ISBLANK(RC[2]),"""",VLOOKUP(RC[2],Dico!R2C1:R500C2,2,FALSE))"


Le problème est qu'ensuite je veux "tirer" ma formule jusqu'à la dernière cellule complète de B. (l'équivalent du double-click sur le carré noir lorsqu'on a sélectionné une cellule).

Pour l'instant je m'en approche avec ce code :

lapd = Range("A1000000").End(xlUp).Select
Selection.AutoFill Destination:=Range(lapd & [B1000000].End(xlUp).Row), Type:=xlFillDefault


Ce n'est qu'une de mes nombreuses tentatives qui ne marchent pas.

Je n'ai rien trouvé sur le net, j'ai des soucis à formuler ma demande en quelques mots.

En espèrant donc que vous pouvez me donner le dernier coup de pouce.

Cordialement.
Afficher la suite 

1 réponse

Messages postés
7763
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
19 juin 2019
16
0
Merci
Bonjour,

Essaies directement :
Range(Range("A" & Rows.Count).End(xlUp).Offset(2, 0), _
  Range("B" & Rows.Count).End(xlUp).Offset(0, -1)).FormulaR1C1 = _
  "=IF(ISBLANK(RC[2]),"""",VLOOKUP(RC[2],Dico!R2C1:R500C2,2,FALSE))"


Effectivement, plutôt simple une fois qu'on a la solution. Merci de ton aide !
Patrice33740
Messages postés
7763
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
19 juin 2019
16 > abc -
De rien, au plaisir de te relire sur le Forum

Patrice
Commenter la réponse de Patrice33740