Discussion :

[melodyyy]

voila je voudrais lui dire en VBA:

si j'ai un 0 dans la première ligne (variable première ligne), alors tire la formule de cette cellule jusqu'a la dernière ligne (variable dernière ligne).
Sachant que je n'ai pas un 0 dans toutes les cellules...

le reste, avec le compteur tout ça nikel c'est juste ça que j'arrive pas à lui dire...

[ouskel'n'or]

voila je voudrais lui dire en VBA:
si j'ai un 0 dans la première ligne (variable première ligne), alors tire la formule de cette cellule jusqu'a la dernière ligne (variable dernière ligne).

A qui tu parles ?
Si j'ai bien compris, tu veux recopier vers le bas ("jusqu'a la dernière ligne") la formule située dans une cellule dont la cellule suivante est vide, ou = 0
Mais tu dis aussi

"Sachant que je n'ai pas un 0 dans toutes les cellules..."

D'où la question : Veux-tu aussi remplacer les valeurs des cellules non vides ? Je pense que non, donc la copie devra se faire uniquement sur les cellules ayant un 0.
Là, tu as plusieurs solutions mais dis déjà ce qu'il en est
Question subsidiaire : Si tu recopies vers le bas, est-ce toujours la valeur de la dernière cellule renseignée ou mets-tu dans toutes les cellules "=0" la même valeur ou formule ?

[megapacman]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
dim i as integer  'numero ligne
dim fin as integer ' numero derniere ligne
 
for i=1 to fin
 
if (cells(i,numcolonne).value=0) then
 
cells(i,numcolonne).value=formule
 
end if
 
next i

un truc du style

[ouskel'n'or]

Oui, ou un truc dans le genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
dim i as integer  'numero ligne
dim fin as integer ' numero derniere ligne 
for i=1 to fin
     if (cells(i,numcolonne).value=0) then
          cells(i,numcolonne).value=cells(i-1,numcolonne).value
     end if
next i

[melodyyy]

je veux juste la formule, , le 0 m'interesse pas excel adaptera je le sais, juste un F9 et hop tout est recalculé

Si tu veux les cellules ayant un 0 sont en ligne: et je veux tirer la formule en colonne, donc pas de modification des autres cellules en lignes

[melodyyy]

y'a un truc qui me choc, ton numcolonne tu lui met la 1ere ou la dernière colonne ? parce que j'a plusieurs colonnes

[Invité]

Si je peux me permettre, "NumColonne" est le numéro de la colonne dans laquelle se trouve la formule à recopier vers le bas !

Cordialement.

[melodyyy]

ok super a la différence que la ça ca pas ça me colle juste le

moi je voudrais la formulz parce que ça donnera pas partout

mais nikel ça m'aide vachement

[Invité]

ouskel'n'or parle de value,
hors comme son nom l'indique on recopie des valeurs et non des formules !

Il y'a beaucoup plus pratique et rapide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("C1:C26").Select
    Selection.FillDown

Et là le contenu de la cellule C1 est reportée dans les autres, que ce soit une valeur ou une formule !

Voilà

[melodyyy]

avec ton code il me dit que le type défini par l'utilisateur non défini

en fait ça marche une fois, si j'étins tout excel, je le rallume ça marche, mais si je modifie le numéro de la colonne ça marche plus, même si je remet l'ancien...c'est snifant

pourtant j'ai tout mis...

le probleme est à dim as integer 'numéro de ligne
j'ai mis 20 et il en veut pas, j'ai changé il en veut pas non plus....

[melodyyy]

euh pour te répondre nan, parce que mon fichier est super grand, que c'est du linéaire, je sais je voulais le faire comme ça, mais la personne avec qui je bosse veut pas, parce que ça allourdit la macro, donc nan...j'ai pas le droit...

[melodyyy]

ah oui et surtout que tout mes débuts de colonnes n'ont pas de 0 donc voila

[Invité]

Ton problème est réglé ?

[melodyyy]

nan nan, parce que j'ai des problèmes de déclaration de variable,
et il copie la valeur pas la formule

[Invité]

Tes réponses n'étaient pas clair, je ne savais pas à qui ou à quoi tu répondais !

A la place de "value" il faut mettre "formula"

Voilà

[melodyyy]

ça change pas ma déclaration de variable

quand je met:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
dim i as integer
i = 20
 
dim fin as integer
fin= 565

ça marche pas, la macro s'active mais dans le vide...

je progresse un peu en VBA pi j'avoue grace au site

[melodyyy]

ah pi ma formule contient un $ VBA en veut pas....

autrement dit appeler la formule c'est galère

[Invité]

[QUOTE=melodyyy]avec ton code il me dit que le type défini par l'utilisateur non défini[QUOTE]
Ce n'est pas normal, tu dois avoir un problème dans ton code !?

en fait ça marche une fois, si j'étins tout excel, je le rallume ça marche, mais si je modifie le numéro de la colonne ça marche plus, même si je remet l'ancien...c'est snifant

Qu'elle numéro de colonne !?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C1:C26").Select

Veux dire sélection dans la Colonne "C" de la ligne "1" à la ligne "26"

pourtant j'ai tout mis...

Oui mais pas comme il faut

le probleme est à dim as integer 'numéro de ligne
j'ai mis 20 et il en veut pas, j'ai changé il en veut pas non plus....

Donnes ton code pour voir !

[melodyyy]

si tu veux dans mon fichier j'ai pas une formule dans toutes les cellules de la ligne 20. Donc si j'ai une formule je la descends sinon ben nan logique...

mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
dim i as integer
i = 20
dim fin as integer
fin = 565
for i = 1 to fin
 
if (cells(i,145).formula = formula = SI($F20 <>"";SI(ESTNUM(AK20);AK20*$F20;0);AK20))Then ' il veut pas du $ caractère incorrect pour lui'
cells (i,145).formula=cells(i-1,145).formula
 
end if
 
next i
 
end sub

[Invité]

si tu veux dans mon fichier j'ai pas une formule dans toutes les cellules de la ligne 20. Donc si j'ai une formule je la descends sinon ben nan logique...

Descendre la valeur d'une cellule vide = toujours une cellule vide
Donc pour moi tester si la cellule est vide ou non, je ne vois pas trop l'intérêt !

De plus ton code est faux puisque si j'ai bien compris,
il faut que tu te déplaces dans chaque colonnes de la ligne 20

Ce qui donne comme code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim NumCol , DerLigne as Integer
DerLigne = 565
For NumCol = 1 to 256
' Balaie chaque cellule de la ligne 20 pour chaque colonne
  If (Cells(20,NumCol).value <> "" Then
    Range(Cells(20, NumCol), Cells(DerLigne, NumCol)).FillDown
  End If
Next i

Ca devrait aller mieux