Boucle "if"

Fermé

abdellah_tadjine Messages postés 191 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 5 janvier 2022 - 19 janv. 2020 à 21:34
jordane45 Messages postés 37839 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 26 novembre 2023 - 19 janv. 2020 à 22:37

Bonjour,
Voila j'ai une macro a répétition
et je veux la remplacé par une boucle

Private Sub CommandButton3_Click()

If Me.OptionButton1 = True Then
UserForm1.TextBox3.Value = enf1.Value
End If

If Me.OptionButton2 = True Then
UserForm1.TextBox3.Value = enf2.Value
End If

If Me.OptionButton3 = True Then

UserForm1.TextBox3.Value = enf3.Value
End If

If Me.OptionButton4 = True Then

UserForm1.TextBox3.Value = enf4.Value
End If

merci pour votre aide les amis

Configuration: Windows / Firefox 72.0

A voir également:

Boucle "if"
Boucle excel sans macro - Forum Excel
Boucle cmd - Forum Programmation
Vba if not ✓ - Forum Excel
Connexion messenger if - Guide
Ipad s'allume et s'éteint en boucle - Forum iPad

2 réponses

Réponse 1 / 2

jordane45 Messages postés 37839 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 26 novembre 2023 4 608
Modifié le 19 janv. 2020 à 22:37

Bonjour,,

Je suppose que tu veux boucler sur chaque OptionButton de ton UserForm
Dans ce cas, un code du genre peux t'y aider

Dim Ctrl As Control

For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.OptionButton Then 
     MsgBox Ctrl.Object.Value
    EndIf
Next Ctrl

Sinon, tu peux utiliser une boucle du genre

Dim i As Integer
    
    For i = 1 To 10
      if Me.Controls("OptionButton" & i) = true Then
        UserForm1.TextBox3.Value = Me.Controls("enf" & i).Value
      End if
    Next i

Édit : suppression d'un espace en trop

Enfin bon.. voila de quoi t'aider à avancer
https://silkyroad.developpez.com/VBA/ControlesUserForm/

Cordialement,
Jordane

abdellah_tadjine Messages postés 191 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 5 janvier 2022 6
19 janv. 2020 à 22:31

une boite de dialogue de débogage, erreur

abdellah_tadjine Messages postés 191 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 5 janvier 2022 6 > abdellah_tadjine Messages postés 191 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 5 janvier 2022
19 janv. 2020 à 22:32

If Me.Controls("OptionButton " & i) = True Then........il le souligne en jaune

jordane45 Messages postés 37839 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 26 novembre 2023 4 608 > abdellah_tadjine Messages postés 191 Date d'inscription jeudi 30 novembre 2006 Statut Membre Dernière intervention 5 janvier 2022
19 janv. 2020 à 22:37

Y'a un espace en trop

Réponse 2 / 2

yg_be Messages postés 22136 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 novembre 2023 1 405
19 janv. 2020 à 21:44

bonjour, que sont les enf?

Discussions similaires

Mon pc s'allume et s'éteint en boucle

Fonction if exist et else

Ma Freebox redémarre tout le temps

Redémarrage en boucle Xiamo mi note 10

programme qui n'affiche pas le mot secret

Discussions similaires

Newsletters