Comment fixer une valeur ?

P

Philippe

XLDnaute Occasionnel

• 29 Mai 2006

• #2

Bonsoir adon,
ta demande n'est pas très claire, que veux tu faire exactement, qu'entend tu par 'ayant la même référence (même valeur ?, même ligne ?,...)

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 29 Mai 2006

• #3

Salut
Si j'ai bien compris (une fois n'est pas coutume 🙂 ) feuil1, tu additionnes toutes les valeurs de la colonne B qui ont la même référence en colonne A. à ce total, tu enlèves toutes les valeurs de la colonne B de la feuil2 qui ont cette même référence en colonne A.

Si c'est ça, tu peux tenter cette macro

Code:

Sub Macro1()
Dim Somme_A As Double
Dim Somme_B As Double
Dim Réf As String
Dim X As Long

Réf = Range('A1')
'calcul feuil1
Sheets('feuil1').Activate
For X = 1 To Range('A65535').End(xlUp).Row
    If Cells(X, 1) = Réf Then Somme_A = Somme_A + Cells(X, 2)
Next X
'calcul feuil2
Sheets('feuil2').Activate
For X = 1 To Range('A65535').End(xlUp).Row
    If Cells(X, 1) = Réf Then Somme_B = Somme_B + Cells(X, 2)
Next X
'Valeur à retourner
Somme_A = Somme_A - Somme_B
End Sub

Par contre, je ne sais pas quoi faire de la valeur trouvée.
A+

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 29 Mai 2006

• #4

Salut adon
bonsoir le fil
je pense avoir compris comme Gorfael
bonne fin de Soirée

Ps moi j'ai fait Colonne B feuille 2 moins Total Colonne B Feuille 1 Arffff si pas bon on peut modifier Lol

[file name=Transfert_20060530081500.zip size=9733]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Transfert_20060530081500.zip[/file]
c'est réparé
Message édité par: Chti160, à: 30/05/2006 08:16

Message édité par: Chti160, à: 30/05/2006 08:16

 

Pièces jointes

• Transfert_20060529224255.zip

  9.5 KB · Affichages: 30

Vote positif 0 Vote négatif

A

AV

Guest

• 30 Mai 2006

• #5

Salut,

''...Cumule les valeurs de la colonne B ayant la même référence en colonne A...''

Une simple fonction de feuille de calcul (en vba), sera la solution la plus rapide :

réfCherchée = 'zzz'
X = Application.SumIf([colA], réfCherchée, [colB])

''..._ Déduit le total de la colonne B de la feuil2 ayant la même référence en colonne A (toujour de la feuil2...''

Perso, je pige rien à la demande...

AV [aaa]

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 30 Mai 2006

• #6

re
arfff j'ai modifié le lien du fichier dans le message précedent lol
le voici [file name=Transfert_20060530081500.zip size=9733]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Transfert_20060530081500.zip[/file]

Message édité par: Chti160, à: 30/05/2006 08:15

 

Pièces jointes

• Transfert_20060530081500.zip

  9.5 KB · Affichages: 16

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 30 Mai 2006

• #7

Salut
Effectivement, avec ce que dit AV, c'est une formule simple
Plage valeurs Feuille 'X' A1:B15
Plage Valeurs Feuille 'Y' A1:B12
Référence recherchée A1

=SOMME.SI($A$1:$B$15;A1;$B$1:$B$15)-SOMME.SI(Y!$A$1:$B$12;X!A1;Y!$B$1:$B$12)
A+

 

Vote positif 0 Vote négatif

A

adon

Guest

• 31 Mai 2006

• #8

Veuillez m’excusez pour ma réponse en retard,

Merci aux XLDnautes pour vos réponses ;

A Gorfael : Je me suis servit de ton exemple et une fois modifié il donne ceci
(J’ai essayé d’envoyé le code mais ça ne marche pas)


A ChTi160 : Ton fichier ressemble à quelque chose près à ce que je souhaite obtenir, mais étant un néophyte, je n'ai pas put retravailler ta macro à ma sauce 🙁

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 31 Mai 2006

• #9

adon écrit:

Veuillez m’excusez pour ma réponse en retard,

Merci aux XLDnautes pour vos réponses ;

A Gorfael : Je me suis servit de ton exemple et une fois modifié il donne ceci
(J’ai essayé d’envoyé le code mais ça ne marche pas)


A ChTi160 : Ton fichier ressemble à quelque chose près à ce que je souhaite obtenir, mais étant un néophyte, je n'ai pas put retravailler ta macro à ma sauce 🙁

Cliquez pour agrandir...

Salut
Moi aussi, transmettre du code m'a coûté encore quelques cheveux : c'est à cause de différent de qu'il doit interpréter comme des balises (je présume) et il se mord la queue.
Mais si on a réussi à t'aider, c'est super
A+

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 31 Mai 2006

• #10

Salut adon
bonjour le fil
Bonjour le forum

adon si tu peux met un exemple de ce que tu veux et l'on pourra peut être adapter lol
merci d'avance
bonne fin de journée

 

Vote positif 0 Vote négatif