Je soutiens Excel Downloads
Connexion
S'inscrire
Effectuez une recherche sur Excel Downloads...
Effectuez une recherche sur Excel Downloads...
Rechercher dans les titres uniquement
Par:
FORUMS
Nouveaux messages
Rechercher dans les forums
TÉLÉCHARGEMENTS
POUR LES PROFESSIONNELS
Gestion commerciale
Gestion de projets
Gestion du personnel
Tableaux de bord
Comptabilité
Immobilier
Bourse
POUR LES PARTICULIERS
Budgets et comptes
Plannings et calendriers
UTILITAIRES
LEÇONS ET TUTORIAUX
Fonctions Excel
Vba
RESSOURCES PEDAGOGIQUES
Rechercher une ressource
ACTUALITÉS
TUTOS
EXCEL
FORMULES ET FONCTIONS
VBA
POWER QUERY
POWER PIVOT
POWER BI
AUTRES APPLICATIONS
Recherche de tutos vidéos
Connexion
S'inscrire
Quoi de neuf
Effectuez une recherche sur Excel Downloads...
Effectuez une recherche sur Excel Downloads...
Rechercher dans les titres uniquement
Par:
Nouveaux messages
Rechercher dans les forums
Menu
Connexion
S'inscrire
Installer l'application
Installer
FORUMS
Questions
Forum Excel
Blocage au niveau des userform et combobox
JavaScript est désactivé. Pour une meilleure expérience, veuillez activer JavaScript dans votre navigateur avant de continuer.
Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement.
Vous devez le mettre à jour ou utiliser un
navigateur alternatif
.
Répondre à la discussion
Message
<blockquote data-quote="cfaure" data-source="post: 20026106" data-attributes="member: 201982"><p>Bonjour à tous,</p><p></p><p>Dans le fichier ci-joint voici mon problème:</p><p></p><p>Ma userform1 de la feuil "CRM" fonctionne et pas de problème. La combobox liste déroulante "sélectionner le nom du contact" a pour source la colonne C de la feuil "CRM"</p><p></p><p>Ma userform2 de la feuil "HEBDO" ne fonctionne pas comme je voudrais: lorsque je souhaite "lancer" ma userform, un message d'erreur "erreur d'exécution '2147024809(80070057) " apparait.</p><p>J'ai par hasard changé le nom de ma UserForm_Initialize() en UserForm<span style="color: #FF0000">2</span>_Initialize()</p><p>cela me permet de lancer ma userform 2, mais dans ma combobox combobox liste déroulante "sélectionner le nom du contact" (source = colonne C de la feuil "CRM" également) quand je souhaite sélectionner un nom, aucun contact n'apparait...</p><p></p><p>Je suis complètement bloqué pourriez-vous m'aider?</p><p></p><p><strong>Le fichier étant trop gros, voici le code pour le userform1</strong></p><p>"Option Explicit</p><p>Dim Ws As Worksheet 'Pour le formulaire</p><p></p><p>Private Sub UserForm_Initialize()</p><p>Dim J As Long</p><p>Dim I As Integer</p><p></p><p>Set Ws = Sheets("CRM") 'Correspond au nom de votre onglet dans le fichier Excel</p><p>With Me.ComboBox1</p><p>For J = 3 To Ws.Range("C" & Rows.Count).End(xlUp).Row</p><p>.AddItem Ws.Range("C" & J)</p><p>Next J</p><p>End With</p><p>For I = 1 To 26</p><p>Me.Controls("TextBox" & I).Visible = True</p><p>Next I</p><p>End Sub</p><p></p><p>Private Sub ComboBox1_Change()</p><p>Dim Ligne As Long</p><p>Dim I As Integer</p><p>If Me.ComboBox1.ListIndex = -1 Then Exit Sub</p><p>Ligne = Me.ComboBox1.ListIndex + 3 'numéro de ligne à partir de laquelle on est dans le tableau de données</p><p>For I = 1 To 26 'nombre de TEXTBOX = 26</p><p>Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I)</p><p>Next I</p><p>End Sub"</p><p></p><p>et voici le code pour le userform2 à insérer</p><p>"Option Explicit</p><p>Dim Ws As Worksheet 'Pour le formulaire</p><p></p><p>Private Sub UserForm_Initialize()</p><p>Dim J As Long</p><p>Dim I As Integer</p><p></p><p>Set Ws = Sheets("CRM") 'Correspond au nom de votre onglet dans le fichier Excel</p><p>With Me.ComboBox1</p><p>For J = 3 To Ws.Range("C" & Rows.Count).End(xlUp).Row</p><p>.AddItem Ws.Range("C" & J)</p><p>Next J</p><p>End With</p><p>For I = 1 To 26</p><p>Me.Controls("TextBox" & I).Visible = True</p><p>Next I</p><p>End Sub</p><p></p><p>Private Sub ComboBox1_Change()</p><p>Dim Ligne As Long</p><p>Dim I As Integer</p><p>If Me.ComboBox1.ListIndex = -1 Then Exit Sub</p><p>Ligne = Me.ComboBox1.ListIndex + 3 'numéro de ligne à partir de laquelle on est dans le tableau de données</p><p>For I = 1 To 26 'nombre de TEXTBOX = 26</p><p>Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I)</p><p>Next I</p><p>End Sub"</p><p></p><p></p><p>Par avance merci,</p><p>Cédric</p></blockquote><p></p>
[QUOTE="cfaure, post: 20026106, member: 201982"] Bonjour à tous, Dans le fichier ci-joint voici mon problème: Ma userform1 de la feuil "CRM" fonctionne et pas de problème. La combobox liste déroulante "sélectionner le nom du contact" a pour source la colonne C de la feuil "CRM" Ma userform2 de la feuil "HEBDO" ne fonctionne pas comme je voudrais: lorsque je souhaite "lancer" ma userform, un message d'erreur "erreur d'exécution '2147024809(80070057) " apparait. J'ai par hasard changé le nom de ma UserForm_Initialize() en UserForm[COLOR="#FF0000"]2[/COLOR]_Initialize() cela me permet de lancer ma userform 2, mais dans ma combobox combobox liste déroulante "sélectionner le nom du contact" (source = colonne C de la feuil "CRM" également) quand je souhaite sélectionner un nom, aucun contact n'apparait... Je suis complètement bloqué pourriez-vous m'aider? [B]Le fichier étant trop gros, voici le code pour le userform1[/B] "Option Explicit Dim Ws As Worksheet 'Pour le formulaire Private Sub UserForm_Initialize() Dim J As Long Dim I As Integer Set Ws = Sheets("CRM") 'Correspond au nom de votre onglet dans le fichier Excel With Me.ComboBox1 For J = 3 To Ws.Range("C" & Rows.Count).End(xlUp).Row .AddItem Ws.Range("C" & J) Next J End With For I = 1 To 26 Me.Controls("TextBox" & I).Visible = True Next I End Sub Private Sub ComboBox1_Change() Dim Ligne As Long Dim I As Integer If Me.ComboBox1.ListIndex = -1 Then Exit Sub Ligne = Me.ComboBox1.ListIndex + 3 'numéro de ligne à partir de laquelle on est dans le tableau de données For I = 1 To 26 'nombre de TEXTBOX = 26 Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I) Next I End Sub" et voici le code pour le userform2 à insérer "Option Explicit Dim Ws As Worksheet 'Pour le formulaire Private Sub UserForm_Initialize() Dim J As Long Dim I As Integer Set Ws = Sheets("CRM") 'Correspond au nom de votre onglet dans le fichier Excel With Me.ComboBox1 For J = 3 To Ws.Range("C" & Rows.Count).End(xlUp).Row .AddItem Ws.Range("C" & J) Next J End With For I = 1 To 26 Me.Controls("TextBox" & I).Visible = True Next I End Sub Private Sub ComboBox1_Change() Dim Ligne As Long Dim I As Integer If Me.ComboBox1.ListIndex = -1 Then Exit Sub Ligne = Me.ComboBox1.ListIndex + 3 'numéro de ligne à partir de laquelle on est dans le tableau de données For I = 1 To 26 'nombre de TEXTBOX = 26 Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I) Next I End Sub" Par avance merci, Cédric [/QUOTE]
Insérer les messages sélectionnés…
Vérification
Répondre
FORUMS
Questions
Forum Excel
Blocage au niveau des userform et combobox
Texte copié dans le presse-papier
