Copie d'une colone en la multipliant par une cellule

Pierrot93

XLDnaute Barbatruc

• 6 Août 2010

• #2

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
@+

 

Vote positif 0 Vote négatif

P

pizzaman

XLDnaute Occasionnel

• 6 Août 2010

• #3

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
@+

 

Pièces jointes

• Classeur1.xls

  41.5 KB · Affichages: 79
• Classeur1.xls

  41.5 KB · Affichages: 90
• Classeur1.xls

  41.5 KB · Affichages: 94

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Août 2010

• #4

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 ?

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 6 Août 2010

• #5

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

Bonjour Pizzaman,
Bonjour Pierrot93,
Voici un code
Bruno

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Août 2010

• #6

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

Re, bonjour Youky

si c'est le cas, essaye ainsi :

Code:

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

@+

 

Vote positif 0 Vote négatif

P

pizzaman

XLDnaute Occasionnel

• 6 Août 2010

• #7

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
@+

 

Dernière édition: 6 Août 2010

Vote positif 0 Vote négatif