Boucle

Résolu/Fermé

abdellah_tadjine Messages postés 191 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 5 janvier 2022 - 30 août 2017 à 12:36
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 - 30 août 2017 à 17:26

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

A voir également:

2 réponses

Réponse 1 / 2

Utilisateur anonyme
30 août 2017 à 13:43

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

abdellah_tadjine Messages postés 191 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 5 janvier 2022 6
30 août 2017 à 14:31

ah!! désolé j'utilise VBA excel......merci

Réponse 2 / 2

fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 59
30 août 2017 à 14:09

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

fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 59
30 août 2017 à 14:10

à noter que je me suis mis sur initialize pour tester rapidement; à vous de vous placer là où vous le voulez

stéphane > fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022
30 août 2017 à 14:53

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

fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 59 > stéphane
30 août 2017 à 15:10

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"..

abdellah_tadjine Messages postés 191 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 5 janvier 2022 6
30 août 2017 à 15:16

merci fabie25000. ca marche trés bien

abdellah_tadjine Messages postés 191 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 5 janvier 2022 6 > stéphane
30 août 2017 à 15:17

merci ca marche aussi

Discussions similaires

faire une boucle sans VBA

tele s'eteind et s'allume en boucle

Redmi redémarre en boucle - Fastboost impossible

Mon ordinateur s'allume et s'eteint en boucle

Boucle en Batch