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

abc - 15 déc. 2015 à 12:19 - Dernière réponse : Patrice33740 6343 Messages postés dimanche 13 juin 2010Date d'inscription 17 décembre 2017 Dernière intervention
- 20 déc. 2015 à 22:23
VBA Office (Excel, Word ...) Posez votre question Signaler Répondre au sujet
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 

3 réponses

Répondre au sujet
Patrice33740 6343 Messages postés dimanche 13 juin 2010Date d'inscription 17 décembre 2017 Dernière intervention - 18 déc. 2015 à 14:18
0
Utile
2
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 6343 Messages postés dimanche 13 juin 2010Date d'inscription 17 décembre 2017 Dernière intervention > abc - 20 déc. 2015 à 22:23
De rien, au plaisir de te relire sur le Forum

Patrice
Commenter la réponse de Patrice33740

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.