Boucle
Résolu
abdellah_tadjine
Messages postés
203
Statut
Membre
-
fabien25000 Messages postés 697 Statut Membre -
fabien25000 Messages postés 697 Statut Membre -
Bonjour,
je cherche a remplacer des instruction a repetition par des boucle tel
que :
textbox1=""
textbox2=""
textbox3=""
textbox4=""
textbox5=""
textbox6=""
merci pour votre aide cordialement abdellah
je cherche a remplacer des instruction a repetition par des boucle tel
que :
textbox1=""
textbox2=""
textbox3=""
textbox4=""
textbox5=""
textbox6=""
merci pour votre aide cordialement abdellah
2 réponses
-
Bonjour,
quel VB?- VBS
- VBA -> précisez:
- Word
- Excel
- Access
- Powerpoint
- Autre
- VB6 (ou antérieur, précisez)
- VB.Net - précisez la Framework et ->
- Winform
- WPF
-
Bonjour,
pour excel vba:Private Sub UserForm_Initialize() Dim i As Integer i = 1 For i = 1 To 6 Set obj = Me.Controls("TextBox" & i) obj.Value = "" Next i End Sub-
-
Bonjour fabien25000,
Quelques petites précisions :
a) La ligne #3 est inutile : pas besoin d'initialiser i à 1
puisque c'est fait par la ligne #5 : For i = 1 To 6
b) C'est inutile aussi de passer par obj, on peut faire directement :
For i = 1 To 6 Controls("TextBox" & i).Text = "" Next i
Tu auras noté que j'utilise .Text au lieu de .Value
Cordialement
-
Bonjour stéphane et Merci.
je débute dans vba excel et j'ai tâtonné pour arriver à ce code.
j'ai rajouté la ligne 3 parce qu'en déboguant j'ai eu l'impression qu'il commençait à 0
pourquoi .text plutot que .value?
je tente de continuer à apprendre grâce aux problèmes postés ici et je me risque de temps à autres à proposer une réponse, en espérant ne pas "déranger".. -
-
-
