Bonjour,
Je ne suis pas bon en VBA et à peu près nul en USF. J'ai une feuille avec (entre autres) 11 boutons options. J'ai adapté le code d'après un exemple du site DVP. Quand je clique sur un des boutons radios, la fenêtre de code affiche "en cours d'exécution" et cycle sans fin, semble-t-il. La touche ESC ne l'arrête pas, je dois fermer la USF. Le msgbox ne s'affiche jamais. Je n'arrive pas à avancer pas à pas avec F8 pour voir où est le bug. Je mets le bout de code ci-dessous. Est-ce que quelqu'un voit où ça pèche ? L'appli sert à envoyer des emails en série et, à ce niveau, elle fonctionne. J'ai une série de 11 listes d'adresses email parmi lesquelles il faut choisir une liste et une seule, d'où sélection par bouton radio, récupération du nom de la feuille XL et reprise de ce nom dans la procédure principale.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub Comm_Choix_liste_Click()
Dim Ctrl As Control
Dim choix_feuille As Object
Set choix_feuille = ThisWorkbook.Sheets("donnees")
 
    For Each Ctrl In Cadre1.Controls
        If Ctrl.Object.Value = True Then
            Select Case Ctrl.Object.Caption
                Case Is = "listing_Groupe"
                    choix_feuille = ThisWorkbook.Sheets("email_groupe")
                Case Is = "listing_Proches"
                    choix_feuille = ThisWorkbook.Sheets("email_proches")
                Case Is = "listing_Groupe_proches"
                    choix_feuille = ThisWorkbook.Sheets("email_groupe_proches")
                Case Is = "listing_Propagande"
                    choix_feuille = ThisWorkbook.Sheets("email_propag")
                Case Is = "listing_Groupe_proches_propagande"
                    choix_feuille = ThisWorkbook.Sheets("email_grou_pro_propag")
                Case Is = "section_Carouge"
                    choix_feuille = ThisWorkbook.Sheets("sct_Carouge")
                Case Is = "section_Vernier"
                    choix_feuille = ThisWorkbook.Sheets("sct_Vernier")
                Case Is = "Présidents sections"
                    choix_feuille = ThisWorkbook.Sheets("Prés_sections")
                Case Is = "Présidents commissions"
                    choix_feuille = ThisWorkbook.Sheets("Prés_commissions")
                Case Is = "Envoi CD"
                    choix_feuille = ThisWorkbook.Sheets("email_CD")
                'Case Is = "Option_V "
           End Select                                     
 
           MsgBox (Ctrl.Object.Caption)
           End If
            Exit For
        'End If
    Next Ctrl
 
End Sub
Merci d'avance de vos avis et conseils.
Cordialement
Pierre
P.S. Bonne nouvelle: je viens d'acheter Office 2016 et je fais l'apprentissage du nouvel Excel mais pour l'instant...