Copie d'une colone en la multipliant par une cellule

[pizzaman]

Bonsoir à tous,

J'essai d'ecrire un code mais ca ne fonctionne pas comme je veux

J'aurais besoin de copier la colone D feuil3, après la dernière cellule écrite de la colone D feuil1, et en multipliant les cellules ecrite de cette colone par la dernière cellule ecrite de la colone B feuil1

...

Rien qu'a me relire ca ne m'etonne pas que j'arrive pas à écrire ca

Merci d'avance @+

 

[Pierrot93]

Re : Copie d'une colone en la multipliant par une cellule

Bonjour Pizzaman,

pas sûr de bien comprendre ton problème également.... le mieux serait de placer un tout petit fichier avec modèle de donnée traité ainsi que le résultat attendu...

bonn journée
@+

 

[pizzaman]

Re : Copie d'une colone en la multipliant par une cellule

Bonjour Pierrot,

Voila j'essai de mieux m'expliquer dans ce fichier

Bonne journée
@+

 

[Pierrot93]

Re : Copie d'une colone en la multipliant par une cellule

Re,

tu veux que CHAQUE valeurs de la colonne D feuille 3 soient multipliées ?

 

[youky(BJ)]

Re : Copie d'une colone en la multipliant par une cellule

Bonjour Pizzaman,
Bonjour Pierrot93,
Voici un code
Bruno

Private Sub CommandButton1_Click()
mul = Feuil1.[B65000].End(3)
lig = Feuil1.[D65000].End(3).Row + 1
For k = 5 To Feuil3.[D65000].End(3).Row
Feuil1.Cells(lig, 4) = Feuil3.Cells(k, 4) * mul: lig = lig + 1
Next
End Sub

 

[Pierrot93]

Re : Copie d'une colone en la multipliant par une cellule

Re, bonjour Youky

si c'est le cas, essaye ainsi :

Dim i As Long
For i = 5 To Feuil3.Range("D65536").End(xlUp).Row
    Feuil1.Range("D65536").End(xlUp)(2).Value = Feuil3.Cells(i, 4).Value _
        * Feuil1.Range("B65536").End(xlUp).Value
Next i

@+

 

[pizzaman]

Re : Copie d'une colone en la multipliant par une cellule

Re, bonjour Youky

Oui c'est bien ca Pierrot, il fallait que chaque valeur soit multiplié, et vos 2 codes fonctionnent parfaitement

Pas étonant que je n'arrivais pas à ecrire ca, je commence à comprendre un peu ce language mais là c'est encore un cran au dessus

Merci à vous
Bonne journée
@+