Microsoft 365 Liste déroulante dans Useform

FCMLE44 · 28 Octobre 2020

Dans mon userform feuille courriers, lorsque je sélectionne le petit crayon en haut colonne H sur la première liste déroulante, j'ai un débogage

Voici le code en question

VB:

Private Sub ComboBox1_Change()
[B12] = ComboBox1
For k = 1 To 13
Controls("Textbox" & k) = ""
Next
End Sub

Le problème semble venir de cette ligne

Code:

Controls("Textbox" & k) = ""

Je ne vois pas pourquoi

Quelqu'un aurait il une idée ?

Les données de ma liste déroulante se trouve dans la feuille paramètre colonne A

Quelqu'un aurait il une idée ?

fanch55 · 28 Octobre 2020

Bonjour,

Dans votre code, vous voulez vider les textboxs 1 à 13.
Votre Userform n'en contient que 9 et non nommés en séquentiel.
L'erreur est toute à fait normale ...

Je vous propose de remplacer la sub :

VB:

Private Sub ComboBox1_Change()
[B12] = ComboBox1

'For k = 1 To 13
'Controls("Textbox" & k) = ""
'Next

For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.TextBox _
    Then Ctrl = ""
Next
End Sub

Rhysand · 28 Octobre 2020

Bonjour à tous

Que voulez-vous dire ici? le nom de la feuille est manquant

VB:

[B12] = ComboBox1

et vous devez déclarer toutes les variables, sinon votre code peut devenir un cauchemar

et vous avez écrit dans votre code que le "k" va de 1 à 13, mais les textbox (6,7,8,9,10) n'existent pas dans votre userform

exemple de modifications de la façon dont le code doit être écrit, j'ai supprimé ('[B12] = ComboBox1)

VB:

Private Sub ComboBox1_Change()

'[B12] = ComboBox1

Dim k As Integer
Dim ctrl As MSForms.TextBox

For k = 1 To 5
    Set ctrl = Me.Controls("TextBox" & k)
    ctrl = ""
Next k

If Not ctrl Is Nothing Then Set ctrl = Nothing

End Sub

J'espère aider

fanch55 · 28 Octobre 2020

Bonjour,

Dans votre code, vous voulez vider les textboxs 1 à 13.
Votre Userform n'en contient que 9 et non nommés en séquentiel.
L'erreur est toute à fait normale ...

Je vous propose de remplacer la sub :

VB:

Private Sub ComboBox1_Change()
[B12] = ComboBox1

'For k = 1 To 13
'Controls("Textbox" & k) = ""
'Next

For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.TextBox _
    Then Ctrl = ""
Next
End Sub

soan · 28 Octobre 2020

@FCMLE44 : je t'ai envoyé un MP, et je suis prêt à continuer l'exo de ton autre sujet :
« Récupérer la valeur d'une cellule dans un userform » ; regarde à partir d'ici.

FCMLE44 · 28 Octobre 2020

fanch55 à dit:
Bonjour,
Regarde la pièce jointe 1083063

Dans votre code, vous voulez vider les textboxs 1 à 13.
Votre Userform n'en contient que 9 et non nommés en séquentiel.
L'erreur est toute à fait normale ...

Je vous propose de remplacer la sub :

VB:

Private Sub ComboBox1_Change() [B12] = ComboBox1 'For k = 1 To 13 'Controls("Textbox" & k) = "" 'Next For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox _ Then Ctrl = "" Next End Sub

Merci

soan · 28 Octobre 2020

@FCMLE44

on s'est croisés. 😕 lis mon post #4.

soan

Microsoft 365 Liste déroulante dans Useform

FCMLE44

XLDnaute Impliqué

Pièces jointes

fanch55

Rhysand

XLDnaute Junior

fanch55

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

FCMLE44

XLDnaute Impliqué

soan

XLDnaute Barbatruc

Discussions similaires

Microsoft 365 Liste déroulante dans Useform

FCMLE44

XLDnaute Impliqué

Pièces jointes

Rhysand

XLDnaute Junior

fanch55

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

FCMLE44

XLDnaute Impliqué

soan

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency