Comparer et soustraire macro excel

Bonjour,
Je cherche la façon dont je pourrais résoudre à l'aide d'une macro le pb suivant: J'ai 4 colonnes
CelA CelB CelD CelE
Je veux comparer mes col CelA et CelD et tester si elles sont identiques
Si c'est le cas je soustrais la valeur de la CelB a CelE que j'affiche dans CelG (en clair si CelA = CelB alors J'affiche résultat de CelB - CelE dans CelG)



Merci pour vos réponses

Bonjour,
code à adapter :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub calcul() Dim i As Integer With Sheets("feuil1") For i = 1 To .Range("a65000").End(xlUp).Row If .Range("a" & i) = .Range("d" & i) Then .Range("g" & i) = .Range("e" & i) - .Range("b" & i) End If Next i End With End Sub

---

Bonne journée

Salut et bienvenu
Juste 2 questions, pourquoi vouloir le faire avec une Macro? Pourquoi une formule ne te suffit elle pas ?

A++
Qwaz

Bonjour Qwazerty,


Il me faut une macro, car ma ColA est égale a 600 lignes environ et ma ColD environ 100 lignes. Donc j'ai besoin de tester l'équivalence entre les 2 Col pour chaque Cel correspondante. S'il y a égalité alors je j'affiche le résultat en ColG de Cel de ColE - Cel de ColB

Merci pour les réponses

Salut
Désolé mais je ne vois toujours pas le problème et la nécessité d'un macro, une formule peut être étendu sur excel très facilement sur des millier de lignes, pour ce qui est de l'écart de nombre de ligne entre A et D, il suffit de bien structuré ta formule, met voir un fichier exemple pour que l'on voit un peu la structure du fichier (ligne vide, cellule vide, valeur en jeu ....).
comprend bien que tout peut etre fait avec des macro (enfin presque) mais une chose est sur c'est qu'une fois que la macro est pondu, il faut la declencher, l'avantage avec les formules c'est qu'elle se remettent a jour a chaque modif d'une cellule lier au calcul, et ca c pratique.
Alors il est bien sur possible de faire une macro, function perso, a utiliser dans une cellule pour faire le calcul que tu souhaites, mais quel en est l'interet si c'est possible de le faire avec les function intergé a excel (facilite le deploiement de ton fichier par la suite en evitant les probleme lier aux config excel que tu peux rencontrer sur certain pc et qui epeche l'execution des macro).

A++
Qwaz

Bonjour,

Je vous ai mis un fichier ex qui n'est qu'un ex, car mon fichier excel represente environ 600 lignes pour la ColA et 100 lignes pour la ColD.

J'ai mis en ColH une formule avec Si, mais là on se rend compte qu'il y a un pb car il faut qu'il est une recherche qui se fasse sur chaque Cel de la ColA jusqu'a temps qu'une équivalence de Cel de la ColD soit trouver afin d'afficher le résultat en ColH

ci joint donc un fichier ex:

Merci

Salut
Il suffit de chercher le texte de D dans A puis de regarder la valeur en face de A dans B ;)

Code:

---

1 2	=SI(ESTVIDE(D1);"";E1-(DECALER(A1;EQUIV(D1;A:A;0)-1;1)))

---

A++
Qwaz

Bonjour,

Merci pour ta formule, mais j'ai vraiment besoin d'avoir une macro afin de pouvoir faire mon calcul.

Puisque les valeurs qui se trouvent en ColC ne se situent pas en face des valeurs de la ColA

Donc il faut que pour chaque valeur trouver dans la ColA correspondent une valeur dans la ColD et faire la soustraction de la ColE - ColB et afficher le résultat de en ColH pour chaque Cel trouver

Merci

Re
As tu essayé cette formule?, car il me semble bien qu'elle réalise ce que tu cherches a faire.
Elle boucle sur les chaines contenues dans dans C la recherche dans A et prend les valeurs associées au chaines en question et effectue leur soustraction.
C'est pas ce que tu voulais?
A++
Qwaz

Bonsoir,
si vraiment tu veux une macro, testes celle-ci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub calcul() Dim i As Integer, x As Integer With Sheets("feuil1") For x = 1 To .Range("d65000").End(xlUp).Row For i = 1 To .Range("a65000").End(xlUp).Row   If .Range("a" & i) = .Range("d" & x) Then .Range("g" & x) = .Range("e" & x) - .Range("b" & i) End If   Next i Next x End With End Sub

---

d'après le fichier envoyé

Bonjour,
Merci à tous, la macro de casefayere fonctionne super.

Bonjour,
Je me permets de rouvrir une discussion.
Concernant la dernière macro de casefayere qui fonctionne très bien, après plusieurs vérifications sur mon tableau je m'aperçois qu'il me manque une précision.
j'aimerai savoir si c'était possible d'avoir une boucle dans une boucle
macro (casefayere) ci dessous

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub calcul() Dim i As Integer, x As Integer With Sheets("feuil1") For x = 1 To .Range("d65000").End(xlUp).Row For i = 1 To .Range("a65000").End(xlUp).Row   If .Range("a" & i) = .Range("d" & x) Then .Range("g" & x) = .Range("e" & x) - .Range("b" & i) End If   Next i Next x End With End Sub   je voudrais tester en plus si .Range("e" & x) < Range("b" & i) alors .Range("b" & i) - .Range("e" & x)

---

Merci à tous par avance.

Si j'ai bien compris tu veux savoir si

Code:

---

1 2 3 4 5

For x = 1 To .Range("d65000").End(xlUp).Row For i = 1 To .Range("a65000").End(xlUp).Row 'code Next i Next x

---

est valable? Oui bien sur tu peux en avoir plusieurs avec des if des loop ou autre il faut juste faire attention a les fermer dans le bon ordre

Bonjour le forum, ivan34,

Citation:

---

je voudrais tester en plus si .Range("e" & x) < Range("b" & i) alors
.Range("b" & i) - .Range("e" & x)

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub calcul() Dim i As Integer, x As Integer With Sheets("feuil1") For x = 1 To .Range("d65000").End(xlUp).Row For i = 1 To .Range("a65000").End(xlUp).Row   If .Range("a" & i) = .Range("d" & x) Then .Range("g" & x) = .Range("e" & x) - .Range("b" & i) end if if .Range("e" & x) < Range("b" & i) then .Range("b" & i) - .Range("e" & x) End If   Next i Next x End With End Sub

---