simplification macro

[philippe69]

bonjour le forum

je joins ci-dessous une petite macro qui gère qq textbox. Cette macro fonctionne bien, mais j'aimerais la simplifier par une boucle. Mais mes connaissances en vba étant encore sommaires, je sollicite donc votre aide.

Merci par avance
Philippe

Private Sub CommandButton1_Click()
If TextBox1.Value = '' Then
MsgBox ('veuillez rentrer toutes les informations demandées')
ElseIf TextBox2.Value = '' Then
MsgBox ('veuillez rentrer toutes les informations demandées')
ElseIf TextBox3.Value = '' Then
MsgBox ('veuillez rentrer toutes les informations demandées')
ElseIf TextBox4.Value = '' Then
MsgBox ('veuillez rentrer toutes les informations demandées')
ElseIf TextBox5.Value = '' Then
MsgBox ('veuillez rentrer toutes les informations demandées')
ElseIf TextBox6.Value = '' Then
MsgBox ('veuillez rentrer toutes les informations demandées')
ElseIf TextBox7.Value = '' Then
MsgBox ('veuillez rentrer toutes les informations demandées')
ElseIf TextBox8.Value = '' Then
MsgBox ('veuillez rentrer toutes les informations demandées')
ElseIf TextBox9.Value = '' Then
MsgBox ('veuillez rentrer toutes les informations demandées')
ElseIf TextBox10.Value = '' Then
MsgBox ('veuillez rentrer toutes les informations demandées')
ElseIf TextBox11.Value = '' Then
MsgBox ('Veuillez saisir toutes les informations demandées')
Exit Sub
Else
Sheets('Feuil3').Range('A1') = CDbl(TextBox1.Value)
Sheets('Feuil3').Range('A2') = CDbl(TextBox2.Value)
Sheets('Feuil3').Range('A3') = CDbl(TextBox3.Value)
Sheets('Feuil3').Range('A4') = CDbl(TextBox4.Value)
Sheets('Feuil3').Range('A5') = CDbl(TextBox5.Value)
Sheets('Feuil3').Range('A6') = TextBox6.Value
Sheets('Feuil3').Range('A7') = TextBox7.Value
Sheets('Feuil3').Range('A8') = TextBox8.Value
Sheets('Feuil3').Range('A9') = CDbl(TextBox9.Value)
Sheets('Feuil3').Range('A10') = CDbl(TextBox10.Value)
Sheets('Feuil3').Range('A11') = CDbl(TextBox11.Value)
MsgBox ('votre saisie a été prise en compte')
End If
End Sub

 

[Charly2]

re à tout le monde,

Je vais regarder ça, mais dans l'exemple de philippe, ce sont les TB 6, 7 et 8 qui contiennent du texte et toutes les autres un réel.

A+

 

[Charly2]

Encore moi, décidément :silly:

Je viens de tester et la conversion pose effectivement un problème. Comme j'ai déclaré Tableau en variant, il faut convertir avec CVar au lieu de CDbl... :whistle:

Merci Robert

EDITION : Eh ben je m'aperçois qu'on peut faire encore plus simple :

Tableau(i, 1) = CVar(.Controls('TextBox' & i))

ceci parce que Tableau est déclaré en Variant, justement

A+ :woohoo:

Message édité par: Charly2, à: 15/02/2006 23:31

 

[Robert]

Bonsoir le fil, bonsoir le forum,

Yeah !!! Merci à toi Charly (ou Hervé que sais-je...?)