Comment condenser ce code?

Version imprimable

Bonjour le forum,

Je viens vers vous car je pense qu'il est possible de raccourcir ce code, pourriez-vous me donner un coup de main?,

Peut-être en créant une boucle?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub TextBox11_Change()
Range("A2") = Val(TextBox11)
End Sub
 
Private Sub TextBox12_Change()
Range("B2") = Val(TextBox12)
End Sub
Private Sub TextBox13_Change()
Range("C2") = Val(TextBox13)
End Sub
Private Sub TextBox14_Change()
Range("D2") = Val(TextBox14)
End Sub
Private Sub TextBox15_Change()
Range("E2") = Val(TextBox15)
End Sub
Private Sub TextBox16_Change()
Range("F2") = Val(TextBox16)
End Sub
Private Sub TextBox17_Change()
Range("G2") = Val(TextBox17)
End Sub
Private Sub TextBox18_Change()
Range("H2") = Val(TextBox18)
End Sub
Private Sub TextBox19_Change()
Range("I2") = Val(TextBox19)
End Sub
Private Sub TextBox20_Change()
Range("J2") = Val(TextBox20)
End Sub

Merci d'avance

22/01/2015, 15h07
Igloobel

Bonjour,

Effectivement c'est possible, et il y a plusieurs solutions mais avant tout
Est-ce qu'il est nécessaire que dès le changement de valeurs de tes textbox il faille tout de suite les mettre à jour dans ta feuille Excel ou est-ce que cela peut attendre que tu aies tout saisi et mettre à jour tout en seule fois ?

tu dis

A+

Si le but est d'ecrire moin de code, vu que l'on a affaire a plusieurs gestionnaires d'evennement différents, je ne voit pas vraiment de solution pour raccourcir.

Par contre, tu peux factoriser avec une procédure, exemple:
Code:

1 2 3 4 5 6 7 8 Private Sub TextBox11_Change() '//Range("A2") = Val(TextBox11) Call CopyVal("A2", TextBox11) End Sub Private sub CopyVal(ByVal strAddress as String, ByRef ctrlSrc as Control) Range(strAddress).Value = Val(ctrlSrc.Value) End Sub

rajoute un bouton pour valider ton formulaire!

Code:

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
'Le code Asci 65= [A] -> i=11-> 54+i=65-> Chr(54 + I)=[A]
Dim I As Integer
For I = 11 To 20
    Range(Chr(54 + I) & "2").Value = Val(Me.Controls("TextBox" & I))
Next
End Sub

Bonjour Igloobel et deedolith,

Et merci d'avance,

#Igloobel
Voilà, j'ai un userform, avec 30 textbox (dans le code ci-dessus il y en n'a que 10), je dois remplir, évidemment 30 cellules.
A partir de c 30 cellules, un calcul est fait pour compter le nombre de fois qu'un numéro est présent (le code n'est pas encore réalisé car je cherche encore).

Pour cela je remplis chaque textbox, en sachant qu'il y a 3 groupes de textbox avec 10 textbox dans chaque (donc 30 textbox).

Un numéro ne peux être plusieurs fois dans le même groupe, ce qui fait qu'un numéro ne peut être comptabilisé que 3 fois maximum, par contre plusieurs numéros peuvent être cités 3x ou 2x ou 1x.

A la suite de ce calcul, un autre groupe de 10 textbox, doit afficher le résultat dans l'ordre d'apparition 3x-2x-1x.

A chaque fin de calcul, le feuille doit être vidée soit par fermeture du l'userform, soit par bouton "RAZ"

Je joins le fichier avec lequel je commence à travailler, pour l'instant il n'y a pas grand chose

#Deedolith

Je ne comprend pas ce bout de code
Code:

1 2 3 4 5 6 7 8 Private Sub TextBox11_Change() '//Range("A2") = Val(TextBox11) Call CopyVal("A2", TextBox11) End Sub Private sub CopyVal(ByVal strAddress as String, ByRef ctrlSrc as Control) Range(strAddress).Value = Val(ctrlSrc.Value) End Sub
Pourrai-tu me l'expliquer?

Pièce jointe 166992Merci pour votre aide

Bonjour rdurupt,

Merci de t'intéresser,

Pourrais-tu m'expliquer la raison?

Désolé je débute, et rentre en formation Excel VBA en Février
Citation:
Envoyé par rdurupt
rajoute un bouton pour valider ton formulaire!
Code:

1 2 3 4 5 6 7 Private Sub CommandButton1_Click() 'Le code Asci 65= [A] -> i=11-> 54+i=65-> Chr(54 + I)=[A] Dim I As Integer For I = 11 To 20 Range(Chr(54 + I) & "2").Value = Val(Me.Controls("TextBox" & I)) Next End Sub

22/01/2015, 15h40
deedolith

Au lieu d'écrire: Range("C2") = Val(TextBox13) dans chaque gestionnaire d'événement, je te propose d'écrire: Call CopyVal("A2", TextBox11), c'est plus court.

La procédure CopyVal fait exactement ce que tu as écrit précédemment, elle écrit dans une cellule la valeur du contrôle textbox.
L'adresse de la cellule et le contrôle sont passé en paramètres à la procédure.

PS: le mot clef Call est optionnel, tu peux aussi bien écrire: CopyVal "A2", TextBox11

Re,
#deedolith

Merci pour cette explication, mais ce bout de code correspond à quoi
Code:

1 2 3 Private sub CopyVal(ByVal strAddress as String, ByRef ctrlSrc as Control) Range(strAddress).Value = Val(ctrlSrc.Value) End Sub
Merci encore

22/01/2015, 15h45
Invité
tu as 30 contrôles; tu scan tes contrôle TextBox1 à TextBox30 pour i de 1 à 30
Code:

1 2 3 For I = 1 To 30 Range("A2").Offset(0,i-1).Value = Val(Me.Controls("TextBox" & I)) Next
22/01/2015, 15h52
Sebphyto

Re Rdurupt,

Ok pour le contrôle des textbox, mais ici cela ne s'applique que pour la cellule A2???

J'ai 3 groupes de 10 textbox qui doivent s'inscrire comme cela en feuil2:
1er groupe de A1 à J1
2eme groupe de A2 à J2
3eme groupe de A3 à J3.

Voici le fichier
Pièce jointe 166999

Merci

quand i sera un multiple de 10 change de ligne!

Code:

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
Dim L As Integer
Dim C As Integer
For i = 1 To 30
       Range("A1").Offset(L, C).Value = Val(Me.Controls("TextBox" & i))
       C = C + 1
        If i Mod 10 = 0 Then L = L + 1: C = 0
Next
End Sub

22/01/2015, 16h07
deedolith
Citation:
Envoyé par Sebphyto

Re,
#deedolith

Merci pour cette explication, mais ce bout de code correspond à quoi

Code:

1 2 3 Private sub CopyVal(ByVal strAddress as String, ByRef ctrlSrc as Control) Range(strAddress).Value = Val(ctrlSrc.Value) End Sub

Merci encore
C'est la procédure CopyVal, comme ce n'est pas une instruction native VBA, et que je ne la sort pas de mon chapeau, il faut bien l'écrire quelque part, sinon elle ne sera pas trouvée.
22/01/2015, 16h11
Sebphyto
Re rdurupt,

Désolé mais je ne comprend pas pourquoi je dois faire ce code, a quoi va-t-il me servir?

Avez-vous regardé mon fichier joint?

En tout cas merci beaucoup de votre aide

Citation:

Envoyé par deedolith

C'est la procédure CopyVal, comme ce n'est pas une instruction native VBA, et que je ne la sort pas de mon chapeau, il faut bien l'écrire quelque part, sinon elle ne sera pas trouvée.

Merci, mais une explication serai la bienvenue sur ce bout de code
Code:

1 2 ByVal strAddress as String, ByRef ctrlSrc as Control) Range(strAddress).Value = Val(ctrlSrc.Value)
22/01/2015, 16h34
Invité

1 pièce(s) jointe(s)

ici l’idée est de simplifier le code,Avez-vous regardé mon fichier joint?

Citation:

Envoyé par Sebphyto

Re rdurupt,

Désolé mais je ne comprend pas pourquoi je dois faire ce code, a quoi va-t-il me servir?

Avez-vous regardé mon fichier joint?

En tout cas merci beaucoup de votre aide
22/01/2015, 16h42
Sebphyto

Re durupt,

Ah ouais comme de faite le code est drôlement simplifier, :P

Par contre, y aurait-il moyen après validation, qu'il n'y est pas de 0 dans les cellules vides?

Merci encore

Code:

1
2
3
4
5
6
7
8
9
10
 
Private Sub Valider_Click()
Dim L As Integer
Dim C As Integer
For i = 1 To 30
      If Trim("" & Me.Controls("TextBox" & i)) <> "" Then Range("A1").Offset(L, C).Value = Val(Me.Controls("TextBox" & i))
       C = C + 1
        If i Mod 10 = 0 Then L = L + 1: C = 0
Next
End Sub

22/01/2015, 16h58
deedolith
Citation:
Envoyé par Sebphyto

Merci, mais une explication serai la bienvenue sur ce bout de code

Code:

1 2 ByVal strAddress as String, ByRef ctrlSrc as Control) Range(strAddress).Value = Val(ctrlSrc.Value)
Ce sont les arguments de la procédure, ou si tu préfères, les variables grâce auxquelles la procédure va recevoir les valeurs nécessaire à son fonctionnement.
Vu que tu recevra une formation VBA le mois prochain, ne ta casse pas trop la tête la dessus pour l'instant, le formateur t'expliquera cela beaucoup mieux que moi :mrgreen:
23/01/2015, 14h22
Sebphyto

Bonjour a tous,

Je passe ce sujet en résolu....

Je vous remercie tous de l'aide apportée

A bientôt