Selection.AutoFill à partir de la première cellule disponibleRésolu

Question

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).SelectActiveCell.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).SelectSelection.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.

Patrice33740 · Answer

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))"

Selection.AutoFill à partir de la première cellule disponible

1 réponse

Votre réponse

Discussions similaires