J
JCA06
Guest
Bonjour le Forum,
J'ai une nouvelle fois besoin de votre aide !
En tant que disciple de Thierry, j'ai une Userformite aigüe.
D'un coté, je vous rassure : si c'est aigüe, c'est pas grave !
Le problème, quand ça me prend, c'est que j'ai du mal à m'en sortir !
Voici ma dernière crise : pour aider à alimenter la plage B16:B19 dans laquelle on note le nombre d'enfants par classe d'age, j'ai créé un USF dans lequel on note l'age de chaque enfant dans les TextBox1 à TextBox6 (1er enfant, 2è, 3è,..). J'ai ajouté un bouton de validation qui incrémente les compteurs par classe d'age contenus dans un tableau (Tablo(0) à Tablo(3)) en fonction des valeurs des TextBox.
Voici une des nombreuses versions que j'ai essayées sans succès :
Private Sub CommandButton1_Click()
Dim i As Byte
Dim Ages As String
Dim C As Byte
Dim Tablo() As Variant
For i = 0 To 5
Ages = "Textbox" & (i + 1)
C = Ages.Value
Select Case C
Case 0 To 2
Tablo(0) = Tablo(0) + 1
Case 3 To 5
Tablo(1) = Tablo(1) + 1
Case 6 To 9
Tablo(2) = Tablo(2) + 1
Case Is >= 10
Tablo(3) = Tablo(3) + 1
End Select
Next i
Sheets("Simulation").Range("B16:B19").Value = Tablo
End Sub
Dans cette version, c'est le Ages.Value qui ne lui plait pas, mais j'ai aussi d'autres exemples qui ne fonctionnent pas !
Merci de bien vouloir m'aider une fois de plus.
J'ai une nouvelle fois besoin de votre aide !
En tant que disciple de Thierry, j'ai une Userformite aigüe.
D'un coté, je vous rassure : si c'est aigüe, c'est pas grave !
Le problème, quand ça me prend, c'est que j'ai du mal à m'en sortir !
Voici ma dernière crise : pour aider à alimenter la plage B16:B19 dans laquelle on note le nombre d'enfants par classe d'age, j'ai créé un USF dans lequel on note l'age de chaque enfant dans les TextBox1 à TextBox6 (1er enfant, 2è, 3è,..). J'ai ajouté un bouton de validation qui incrémente les compteurs par classe d'age contenus dans un tableau (Tablo(0) à Tablo(3)) en fonction des valeurs des TextBox.
Voici une des nombreuses versions que j'ai essayées sans succès :
Private Sub CommandButton1_Click()
Dim i As Byte
Dim Ages As String
Dim C As Byte
Dim Tablo() As Variant
For i = 0 To 5
Ages = "Textbox" & (i + 1)
C = Ages.Value
Select Case C
Case 0 To 2
Tablo(0) = Tablo(0) + 1
Case 3 To 5
Tablo(1) = Tablo(1) + 1
Case 6 To 9
Tablo(2) = Tablo(2) + 1
Case Is >= 10
Tablo(3) = Tablo(3) + 1
End Select
Next i
Sheets("Simulation").Range("B16:B19").Value = Tablo
End Sub
Dans cette version, c'est le Ages.Value qui ne lui plait pas, mais j'ai aussi d'autres exemples qui ne fonctionnent pas !
Merci de bien vouloir m'aider une fois de plus.