Coller tant que cellule d'à côté non vide

lolito_balmito Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -  
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je souhaite copier une formule en Vba dans la colonne B tant les cellules de la colonne A sont non vide.

Comment faire ?

Merci,
Laurent

2 réponses

eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonjour,

double-cliquer sur la poignée de recopie (petit carré noir en bas à droite de la sélection)

eric
0
lolito_balmito Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   1
 
Merci Eric,

En fait j'ai besoin de mettre ça en Vba, c'est une de mes opérations dans une macro.
Pour le moment, je fais par exemple un :

Range("AE2").Select
ActiveCell.FormulaR1C1 = _
"=if(weekday(RC[-1])=3,RC[-1]-4,RC[-1]-2)" '=SI(JOURSEM(AD2)=3;AD2-4;AD2-2)
Selection.AutoFill Destination:=Range("AE2:AE500")

aux risques de m'arrêter trop tôt ...

Cordialement,
Laurent
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Re,

derlig=cells(rows.count,"A").end(xlup).row
te donne la dernière ligne occupée de la colonne A.

eric
0