Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Macro qui plante

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion maval
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

maval

XLDnaute Barbatruc
Bonsoir

J'ai un code qui fonctionne bien jusqu'à 13 textbox au delà sa plante

Mon Code:

VB: 
Private Sub ComboBox1_Click()
 Dim elem As Byte
 For elem = 1 To 13
   With Me
   .Controls("TBx_" & elem).Value = .ComboBox1.Column(elem)
   End With
 Next
End Sub

Merci de votre aide

Max
 
Trier par date Trier par votes
Bonsoir,

Les colonnes d'une ComboBox se numérotent à partir de zéro :
VB: 
Private Sub ComboBox1_Click()
Dim elem As Byte
For elem = 1 To 13
    Controls("TBx_" & elem) = ComboBox1.Column(elem - 1)
Next
End Sub
A+
 
Vote positif 0 Vote négatif
Bonjour Job

Merci pour le code qui fonctionne très bien pour le premier OptionButton, je m'explique j'ai trois OptionButtons

Le 1er ouvre 15 Textbox, le 2éme 19 Textbox et le 3éme 22 TextBox

En sachant que la combobox se nome Cb1 et que textBox se nome TBx_

Je joint mon code au complet

VB: 
Private Sub UserForm_Initialize()
For i = 1 To 4
    Me.Controls("Label" & i).Visible = False
Next i
For i = 1 To 20
    Me.Controls("TBx_" & i).Visible = False
Next i
Me.Width = 372
Me.Height = 99
End Sub

Private Sub Cb1_Click()
Dim elem As Byte
For elem = 1 To 22
    Controls("TBx_" & elem) = Cb1.Column(elem - 1)
Next
End Sub

Private Sub OptionButton1_Click()
If OptionButton1 = True Then
    Cb1.List = Feuil1.Range("B9:P" & Feuil1.Range("B" & Rows.Count).End(xlUp).Row).Value
End If
For i = 1 To 59
    Select Case i
        Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 57 'Label True
            Me.Controls("Label" & i).Visible = True
        Case 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 58, 59 'Label False
            Me.Controls("Label" & i).Visible = False
        'Case 42 To 49
            'Me.Controls("Label" & i).Visible = False
    End Select
Next i
For i = 1 To 22
    Select Case i
        Case 1 To 15
            Me.Controls("Tbx_" & i).Visible = True 'TextBox Visible
            Me.Controls("Tbx_" & i).Value = ""
        Case 16 To 22
            Me.Controls("Tbx_" & i).Visible = False 'TextBox non Visible
            If i <> 14 Then Me.Controls("Tbx_" & i).Value = ""
    End Select
Next i
Cb1.Value = ""

Me.Width = 393
Me.Height = 437
End Sub

Private Sub OptionButton2_Click()
If OptionButton2 = True Then
    Cb1.List = Feuil1.Range("Q9:AI" & Feuil1.Range("Q" & Rows.Count).End(xlUp).Row).Value
End If
For i = 1 To 59
    Select Case i
        Case 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 58 'Label True
            Me.Controls("Label" & i).Visible = True
        Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 59 'Label False
            Me.Controls("Label" & i).Visible = False
        'Case 42 To 49
            'Me.Controls("Label" & i).Visible = False
    End Select
Next i
For i = 1 To 22
    Select Case i
        Case 1 To 22
            Me.Controls("Tbx_" & i).Visible = True 'TextBox Visible
            Me.Controls("Tbx_" & i).Value = ""
        Case 20 To 22
            Me.Controls("Tbx_" & i).Visible = False 'TextBox non Visible
            If i <> 14 Then Me.Controls("Tbx_" & i).Value = ""
    End Select
Next i
Cb1.Value = ""

Me.Width = 393
Me.Height = 501
End Sub

Private Sub OptionButton3_Click()
If OptionButton3 = True Then
    Cb1.List = Feuil1.Range("AJ9:BE" & Feuil1.Range("AJ" & Rows.Count).End(xlUp).Row).Value
End If
For i = 1 To 59
    Select Case i
        Case 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 59 'Label True
            Me.Controls("Label" & i).Visible = True
        Case 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, 57, 58 'Label False
            Me.Controls("Label" & i).Visible = False
        'Case 42 To 49
            'Me.Controls("Label" & i).Visible = False
    End Select
Next i
For i = 1 To 22
    Select Case i
        Case 1 To 22
            Me.Controls("Tbx_" & i).Visible = True 'TextBox Visible
            Me.Controls("Tbx_" & i).Value = ""
       ' Case 18 To 20
           ' Me.Controls("Tbx_" & i).Visible = False 'TextBox non Visible
            'If i <> 14 Then Me.Controls("Tbx_" & i).Value = ""
    End Select
Next i
Cb1.Value = ""

Me.Width = 393
Me.Height = 587
End Sub
Private Sub CommandButton1_Click()
   Unload Me
End Sub

Merci d'avance
 
Vote positif 0 Vote négatif
Re
pour simplifier Lol
VB: 
                  Case 1 To 15, 57 'Label True
                          Me.Controls("Label" & i).Visible = True
                  Case 16 To 59 'Label False                      
                          Me.Controls("Label" & i).Visible = False
ou
VB: 
                  Case 1 To 15, 57 'Label True
                          Ok = True
                  Case 16 To 59 'Label False                      
                          Ok= False
              End Select
                          Me.Controls("Label" & i).Visible =Ok
Non testé !
jean marie
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

B
  • Question Question
Autres Problème d'adaptation du contenu d'une listbox
Réponses
7
Affichages
453
jurassic pork
I
  • Question Question
Microsoft 365 SOMMEPROD en vba excel
Réponses
12
Affichages
635
iliess
I
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
707
TooFatBoy
N
  • Question Question
Listbox click
Réponses
10
Affichages
533
ChTi160
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
581
kiki29
  • Question Question
XL 2019 Erreur d'exécution "13"
Réponses
1
Affichages
299
sylvanu
  • Question Question
XL 2016 Filtrer plage via le contrôle ActiveX : combobox
Réponses
7
Affichages
426
KTM
  • Résolu(e)
XL 2016 problème au niveau d'un contrôle dans VBA
Réponses
2
Affichages
489
chinel
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
S
  • Résolu(e)
XL 2016 changer le remplissage si pas de remplissage vba
Réponses
7
Affichages
235
Sirberthoult
S
D
  • Résolu(e)
XL 2021 Combobox vide
Réponses
9
Affichages
256
Did25
D
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
3 K
Usine à gaz
  • Question Question
Microsoft 365 selectionner cellule via un combobox
Réponses
3
Affichages
265
job75
E
  • Résolu(e)
Microsoft 365 Combobox ajouter si n'existe pas dans Liste
2 3 4
Réponses
47
Affichages
3 K
cathodique
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
738
VBA_dev_Anne_Marie
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
745
NONO14
N
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
965
tnion
T
  • Question Question
XL 2016 Boucler sur les feuilles d'un classeur
Réponses
7
Affichages
316
KTM
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
249
nabilexcel2007
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…