Nom variable double change dans une boucle for next

Bonjour,
dans le cadre d'un code que je développe, je voudrais faire la différence entre deux cellules, ligne par ligne dans une colonne.

Pour ce faire, j'ai une boucle For Next qui tourne avec un Compteur.

Je pensais à chaque Step faire la différence entre mes deux cellules An et Bn en conservant une variable DIFF & Compteur mais Excel bloque sur DIFF & Compteur =.

Je pense mal m'y prendre.

Existe t il une solution s'il vous plaît?

MERCI

A la fin du code, je voudrais vérifier que la somme de tous mes DIFF1; DIFF2; DIFF3 = 0

Il serait préférable de présenter toute la boucle en un seul morceau plutôt que d'en présenter un puzzle.

Citation:

---

faire la différence entre mes deux cellules An et Bn en conservant une variable DIFF & Compteur

---

Il faudrait que tu expliques plus clairement ceci.

En fait la boucle contient d'autres choses qui n'ont rien à voir et porte sur un Range plus large.

Je mets entre balise mais la logique serait:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Compteur As Double, RNG As RANGE     Set RNG = Range("H1:H30") Compteur = 0   For Each c In RNG   Compteur = Compteur + 1   c.Value = 123

---

...

Et je voudrais faire, à chaque Step, la différence entre la valeur entre c.Value et c.offset(0, -3).Value.

Et là je ne sais pas coder:

Code:

---

DIFF & Compteur = c.Value - c.offset(0, -3).Value

---

Le but à la fin est de faire la somme DIFF1 + DIFF2 + DIFF3 et de vérifier si =0 ou <>0

Je vois bien qu'il y a 2 problèmes, le nom de la variable DIFF & Compteur (DIFF1; DIFF2; DIFF3) et la variable en elle même et son type: Dim DIFF As Double.

Je ne sais pas si le nom d'un variable peut être variable lui-même.

Sinon, je change mon fusil d'épaule mais j'aurais besoin de savoir ce que je peux faire d'autre pour arriver à mon résultat.

Bonjour,
:arf:
Pour répondre, il faudrait déjà comprendre que vous demandez

Je voudrais faire la différence DIFFn entre la valeur en Kn et Ln dans une boucle qui me donne Ln avec une formule puis faire la somme de mes DIFFn.

J'ai des valeur en K1; K2; K3...;
Une boucle qui me donne L1; L2; L3...

Je voudrais vérifier s'il y a une différence entre K et L;

Je voudrais donc calculer la différence entre L1 et K1; L2 et K2; L3 et K3... à chaque boucle puis faire la somme de ces différences, égale à 0 cela veut dire que toute les lignes sont égales, différente de 0 veut dire qu'il y a au moins une ligne pour laquelle Ln <> Kn

Donc je voulais me servir d'un compteur pour différencier chaque différence à chaque passage de la boucle;
Le compteur passe de 1 à 2; 3...à chaque Compteur = Compteur + 1
Et j'aurais calculer ma différence à chaque passage de la boucle puis la somme des différences.
Je pensais stocker la différence à chaque passage dans une variable différente à chaque passage de la boucle: DIFF1; DIFF2; DIFF3..... mais ça n'a pas l'air possible

En utilisant une variable tableau?

J'aurais besoin d'aide pour alimenter mon tableau.

Est-il possible de sommer les éléments d'un tel tableau?


Fausse route?

Bonjour,
Petit exemple rapide à adapter qui affiche l'adresse de la cellule de la première colonne (K) en indiquant la différence si elle existe.
La plage contrôlée est K2:L8 de la feuille nommée Feuil2 du classeur contenant le code VBA
Si tu ne sais pas ce qu'est Debug.Print, tu peux le remplacer par MsgBox

Code:

---

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

Sub t() Dim rng As Range Dim cell As Range Dim Diff As Double Set rng = ThisWorkbook.Worksheets("Feuil2").Range("K2:K8") For Each cell In rng With cell Diff = .Value - .Offset(ColumnOffset:=1).Value If Diff Then Debug.Print .Address & " <> " & Diff End With Next Set rng = Nothing: Set cell = Nothing End Sub

---

OK, à mettre en fin de code, une fois obtenues mes deux colonnes si je comprends bien?

Impossible d'agir dans la boucle donc?

Code:

---

1 2 3 4

Set RNG = Range("H1:H30")   For Compteur = 1 To RNG.Count Set c = RNG.Cells(Compteur)

---

Bonjour,

Citation:

---

Impossible d'agir dans la boucle donc?

---

Et qu'ai-je fait pour calculer la différence ?

C'est une boucle elle-même que je place après ma boucle qui calcule les valeurs de ma colonne K mais je comprends qu'il m'est impossible d'inclure quelque chose dans cette boucle qui me donne ligne par ligne les valeurs des cellules de la colonne K.

Ton code fonctionne bien dans cette configuration, j'ai pu testé

Bonjour,
Une boucle sert à exécuter des commandes qui se répètent (structure répétitive) donc tu peux bien sûr trier, filtrer, calculer, charger d'autres classeurs, etc. bref faire tout ce que tu souhaites au sein d'une boucle, encore faut-il savoir ce que l'on veut et surtout bien l'exprimer.

A lire éventuellement La gestion des boucles dans Excel

Citation:

---

Envoyé par Kestion100

je comprends qu'il m'est impossible d'inclure quelque chose dans cette boucle qui me donne ligne par ligne les valeurs des cellules de la colonne K.

---

For Each permet d'enchainer les cellules d'une zone.
Une fois que tu as la cellule, tu peux connaitre sa ligne par la propriété Row.
Une fois que tu as la ligne, tu peux obtenir la cellule de n'importe quelle colonne de cette ligne.

Ou bien tu peux directement utiliser la propriété Offset pour désigner une cellule par rapport à la cellule courante.

Ou bien tu peux te faciliter la vie en utilisant une boucle For To (sur le numéro de ligne) plutôt que For Each.

Il y a certainement une demi-douzaine d'autres solutions.

Nous ne nous sommes pas compris de bout en bout mais ta solution est OK

Ce que je voulais faire c'était faire autant de variables DIFFn que de step de la boucle for next qui me donne K1; K2.....

Step1:
K1 = MACHIN1 + BIDULE1
DIFF1 = K1 - L1

Step2:
K2 = MACHIN2 + BIDULE2
DIFF2 = K2 - L2

.....

Afin de faire, à la fin de la procédure DIFF1 + DIFF2 + ......= X

Si X = 0 ....
Si X <> 0 ....

Je ne dois pas être clair

Bonjour,

Je te conseille la lecture de ce tuto sur les tableaux en vba: https://silkyroad.developpez.com/vba/tableaux/
Plutôt que créer n variables pour tes calculs intermédiaires, il suffit de créer un tableau de taille n et d'y affecter tes valeurs dans la boucle.

Ta solution qui fonctionne est de faire tourner ma boucle sans les DIFFn pour avoir Kn et Ln et ensuite ta boucle fait les soustractions Kn - Ln

Citation:

---

Envoyé par Kestion100

Ta solution qui fonctionne est de faire tourner ma boucle sans les DIFFn pour avoir Kn et Ln et ensuite ta boucle fait les soustractions Kn - Ln

---

Non tu peux renseigner directement DIFFn dans ta première boucle

Code:

---

1 2 3 4 5 6 7 8 9

Dim diff(29) As double For i = 1 to 30 diff(i-1) = range("K"& i).value - range("L"& i).value next i   for i = 0 to ubound(diff) dif_tot = dif_tot + diff(i) next i debug.print dif_tot

---

Citation:

---

Je voudrais donc calculer la différence entre L1 et K1; L2 et K2; L3 et K3... à chaque boucle puis faire la somme de ces différences, égale à 0 cela veut dire que toute les lignes sont égales

---

Attention ici c'est pas forcément vrai avec K1=1, L1=0, K2=0, L2=1 la somme des différences vaut 0, mais les lignes ne sont pas égales

Parfait, MERCI!!!
En effet, je n'avais pas pensé à la précision que tu apportes....