Boucles avec TEXTBOX dans USERFORM

Bonjour à tous,

J'ai un problème que je n'arrive pas à résoudre

Je voudrait que si TextD1 est égale à un autre TextD (TextD2 ou TextD3 ou TextD4...)

alors TextG1 (associé au TextD1) soit égal à la valeur du TextG1 + la valeur TextG (associé au TextD)

Et TextG = 0

Et TextD = 0

Fin

Et cela pour tous les autres Textbox (si TextD2 est égale à un autre TextD (TextD2 ou TextD3 ou TextD4...) alors TextG2 (associé au TextD2) soit...)

Voici une photo pour mieux comprendre :

Merci pour vos réponses

Bonne journée

Aubin

Salut

essaye une chose comme ça :

For i = 1 To 9
For g = i + 1 To 9
 If Val(Me.Controls("TextD" & i)) = Val(Me.Controls("TextD" & g)) Then
 Me.Controls("TextG" & i) = Val(Me.Controls("TextG" & i)) + Val(Me.Controls("TextG" & g))
 End If
Next
Next

Bonjour AMIR,

Merci tu a résolu une partie de mon problème,

Or, il ne manque plus qu'à la fin que le 6 et 1000 de la 6ème lignes soit égal à 0 (Image 2) et cela peut importe le cas (si le 1000 à la ligne 5 alors ligne 5 = 0)

Cette image avant exécution:

Puis après exécution:

J'aimerais que le 6 et 1000 de la 6ème lignes disparaissent

Je te remercie encore

Cordialement

Salut

essaye ça :

For i = 1 To 9
For g = i + 1 To 9
 If Val(Me.Controls("TextD" & i)) = Val(Me.Controls("TextD" & g)) Then
 Me.Controls("TextG" & i) = Val(Me.Controls("TextG" & i)) + Val(Me.Controls("TextG" & g))
 Me.Controls("TextG" & g) = 0
 Me.Controls("TextD" & g) = 0
 End If
Next
Next

Merci AMIR pour ta réactivité

Mon problème est résolue

Bonne journée

Aubin

OK , n'oublie pas de cocher résolut