Boucles avec TEXTBOX dans USERFORM 2

Bonjour à tous,

Je m'appelle Aubin et j'ai un problème sur un sujet :

Ce que je souhaite c'est que :

(Voir photos ci-dessous)

Si un des TextG est égale à 0 et que TextA1 a une valeur

alors mettre la valeur du TextA1 la plus haut possible dans les TextG qui sont égale à 0

et TextG7 = 0

sinon TextA1=TextG7

fin

Par exemple j'ai 7 dans TextA1 et TextG1, TextG2, TextG3, TextG4 sont remplie alors mettre 7 dans TextG5

Ou j'ai 10 dans TextA1 et TextG1, TextG3, TextG5 sont remplie alors mettre 10 dans TextG2

Merci pour vos réponses

Bonne journée

Aubin

Salut

essaye ça :

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

Bonjour AMIR, merci pour votre réponse

Mais malheureusement, il y a un problème, ça donne cela:

Avant exécution:

Après exécution:

Or je voudrait que dans la première case bleue, il y est 9

Cordialement

Aubin

salut

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

Bonjour AMIR, merci de m'avoir re-répondu

Mais, il y a encore un problème:

AVANT EXECUTION:

Même lorsque j'ai 0 dans les cases grises et que j'exécute ça donne ça:

Et quand je recommence, ça rajoute 4 au 5 à chaque fois (5, 9, 13, 17, ...)

Pourrais-tu m'aider ?

Bonne journée

Aubin V

Salut

essaye d envoyer un fichier exemple !

D'accord je t'envoie ça,

le principe c'est ça, après c'est un peu plus complexe

Je vous renvoie une nouvelle version, je n'arrive pas à ouvrir la précédente

Regarde ça

Merci AMIR pour ton temps consacré à mon sujet

Je vais reposter un autre sujet très prochainement

Belle journée

Aubin

OK, a bientôt