DO WHILERésolu

Question

bonjour tout le monde
sous excel 
j'aimerais qu'une formule qui se trouve dans la cellule A3 se recopie tant que les cellules de la colonne sont pleines
en pseudo code ça donnerait ça :

tant que cell colonne A<>"" 
   alors recopie formule

je ne sais pas comment traduire cela en VB

excusez ma nullité.

mortalino · Accepted Answer

c'est normal que ça ne fonctionne pas, je suis fatigué, c'est pas 
Range("C1").AutoFill Range("C1:C" & Range("A1").End(xlUp).Row)

mais 
Range("C1").AutoFill Range("C1:C" & Range("A1").End(xlDown).Row)

(logique, je sais.. mais l'habitude de partir depuis la ligne 65 536)

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

jrivet · Answer

Salut,
essaie un truc du style

Dim Ligne As Long
   Ligne = 1
   While Not IsEmpty(Range("A" & Ligne))
       If (Ligne <> 3) Then Range("A" & Ligne).Formula = Range("A3").Formula
       Ligne = Ligne + 1
   Wend
, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

mortalino · Answer

Salut,

je pense que c'est + simple et rapide :

Range("A3").AutoFill Range("A3:A" & Range("A3").End(xlUp).Row)

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

kortecs94 · Answer

j'ai essayé vos deux réponses
ça ne fonctionne pas, 
c'est de ma faute, je me suis mal exprimé,
je voulais que la formule qui se trouve en C1 se recopie dans les cellules en dessous (donc C2, C3, C4, etc...)
tant que les cellules de la colonnes A sont pleines.

Mes sincères excuses ....

mortalino · Answer

Range("C1").AutoFill Range("C1:C" & Range("A1").End(xlUp).Row)

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

jmfmarques · Answer

Bonjour,

T'as des difficultés à changer une lettre par l'autre ?


J'attends la réaction...

mortalino · Answer

LOL 
moi ça me fait bien sourire

kortecs94 · Answer

vous plaisantez  mais je n'y comprends rien,
j'ai recopié le code et ça ne fonctionne toujours pas

JM247L · Answer

Salut,
J'ai pas testé mais ça devrait donner quelque cj=hose comme

Lg=2
Do While Cells(Lg,1)<>""
   Cells(Lg,3)=Cells(Lg-1,3)
Loop

JML
 Partageons notre savoir et nos acquis

kortecs94 · Answer

Merci à tous
c'est Mortalino qui l'emporte et 
ce soir je dormirai moins bete

@ bientot

mortalino · Answer

pas besoin de s'emboucanner avec des boucles alors qu'une seule instruction suffit ! (et prévue pour)

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

JM247L · Answer

Maintenant que j'ai testé, ça donne
Lg = 2
Do While Cells(Lg, 1) <> ""
   Cells(Lg - 1, 3).AutoFill Destination:=Range(Cells(Lg - 1, 3), Cells(Lg, 3)), Type:=xlFillDefault
   Lg = Lg + 1
Loop

JML
 Partageons notre savoir et nos acquis

JM247L · Answer

Respect

JML
 Partageons notre savoir et nos acquis

DO WHILE

13 réponses

Votre réponse

Discussions similaires