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
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
A voir également:
- Boucle
- Le fichier contient un programme écrit en python. le programme construit un mot secret mais il ne l'affiche pas. modifiez ce programme afin que à chaque itération de la boucle : la variable a augmente de 2 la variable b diminue de 1 ajoutez une instruction pour faire afficher le mot secret construit. quel est ce mot secret ? ✓ - Forum Python
- Mon pc s'allume et s'éteint en boucle ✓ - Forum Matériel & Système
- Samsung a51 redémarre en boucle - Forum Mobile
- Redmi note 8 s'allume et s'éteint en boucle - Forum Xiaomi
- Ipad s'allume et s'éteint en boucle - Forum iPad
2 réponses
Whismeril
Messages postés
19022
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
17 avril 2024
928
30 août 2017 à 13:43
30 août 2017 à 13:43
Bonjour,
quel VB?
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
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
30 août 2017 à 14:09
Bonjour,
pour excel vba:
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
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
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
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"..
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
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
30 août 2017 à 15:17
merci ca marche aussi
30 août 2017 à 14:31