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

lolito_balmito Messages postés 7 Statut Membre -  
eriiic Messages postés 24581 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

  1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

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

    eric
    0
  2. lolito_balmito Messages postés 7 Statut Membre 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
    1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      Re,

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

      eric
      0