Mes textbox ne se remplissent pas correctement

Résolu

VDB.57 -
VDB.57 - 23 avril 2016 à 21:28

Bonjour,
Récemment j’ai fait appel à vos services et votre réponse était des plus efficaces, ce dont je vous remercie encore.
Actuellement je bute sur un problème : j’ai deux feuilles identiques une nommée « adhérents » et la deuxième « sauvegarde ».
Dans mon userform il y a 2 combobox qui me permettent d’appeler les noms des inscrits de la colonne « C » et ce, pour chacune des deux feuilles.
A chaque nom, est attribué 7 « textbox » dans ma userform.
Mon problème : (voir fichier joint)
Lorsque je sélectionne un nom avec ma combobox 1 de la feuille « sauvegarde » les noms correspondants sont exacts mais les textbox se remplissent avec les valeurs de la feuille « adhérents » au lieu de la feuille « sauvegarde » !!!!!
Pour ma combobox 3 de la feuille « adhérents » tout se rempli correctement.
Par avance je vous remercie pour votre aide précieuse.

Private Sub UserForm_Initialize()
    
    Me.TextBox8.Value = Range("T1").Value
    Me.TextBox9.Value = Range("R2").Value
    Me.TextBox10.Value = Range("N6").Value
    TextBox10 = Round(TextBox10, 0)
    Dim J As Long
    Dim I As Integer
    
    ComboBox2.ColumnCount = 1
    ComboBox2.List() = Array("", "CHEQUE", "ESPECE")
    
Set Ws = Sheets("Sauvegarde")
    With Me.ComboBox1
        For J = 2 To Ws.Range("c" & Rows.Count).End(xlUp).Row
            .AddItem Ws.Range("c" & J)
        Next J
    End With
    
    For I = 1 To 7
        Me.Controls("TextBox" & I).Visible = True
  
    Next I
 
Set Ws = Sheets("adhérents")
    With Me.ComboBox3
        For J = 2 To Ws.Range("c" & Rows.Count).End(xlUp).Row
            .AddItem Ws.Range("c" & J)
        Next J
    End With
    
    For I = 1 To 7
        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 + 2

    ComboBox2 = Ws.Cells(Ligne, "B")
    For I = 1 To 7
        Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 2)
    Next I
End Sub

Private Sub ComboBox3_Change()
    Dim Ligne As Long
    Dim I As Integer
    
    If Me.ComboBox3.ListIndex = -1 Then Exit Sub
    Ligne = Me.ComboBox3.ListIndex + 2
    ComboBox2 = Ws.Cells(Ligne, "B")
    For I = 1 To 7
        Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 2)
    Next I
End Sub

A voir également:

Mes textbox ne se remplissent pas correctement
Votre appareil ne dispose pas des correctifs de qualité et de sécurité importants - Guide
La page n’est pas redirigée correctement ✓ - Forum Mozilla Firefox
Un périphérique attaché au système ne fonctionne pas correctement - Windows 11
La fenetre actuelle est trop petite pour afficher correctement cette feuille - Forum Google Docs
Le logiciel fortinet n'a pas été installé correctement - Forum Virus

2 réponses

Réponse 1 / 2

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,
Ws est déclarée ou ??

VDB.57

Toutes mes excuses, mais je suis incapable de donner une réponse

VDB.57

Tout ce que je peux dire c'est que tout fonctionne correctement, SAUF lorsque je sélectionne un nom de ma feuille "sauvegarde", mes textbox de 1 à 7 se remplissent avec les valeurs de ma feuille "adhérents" au lieu de ma feuille"sauvegarde".

Merci pour votre contribution

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

Au début du module, avant le 1° Private Sub, ajoutes :
Option Explicit

Ça te permettra d'identifier toutes les variables que tu as oublié de déclarer !

VDB.57 > Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention

C'est fait.
Tout fonctionne normalement aucune demande m'est faite.
Le seul HIC c'est que les textbox de mon userform se remplissent avec les données de ma feuille "adhérents" a la place des données de ma feuille "sauvegarde" lorsque je sélectionne un nom "sauvegarde".dans ma combobox 1

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

Pourquoi à la place ??
Ws est déclarée ou ?? (sic F894009)

Réponse 2 / 2

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour tout le monde,
Si vous n'avez pas d'erreur après avoir mis option explicit, c'est que ws est déclarée quelque part.
Donc cette variable garde la dernière affectation qui est faite dans userform_initialize, c'est à dire la feuille "adhérents". Vous devez réaffecter cette variable à "Sauvegarde"

VDB.57

Private Sub UserForm_Initialize()
Me.TextBox8.Value = Range("T1").Value
Me.TextBox9.Value = Range("R2").Value
Me.TextBox10.Value = Range("N6").Value
TextBox10 = Round(TextBox10, 0)
Dim J As Long
Dim I As Integer

ComboBox2.ColumnCount = 1
ComboBox2.List() = Array("", "CHEQUE", "ESPECE")

Set Ws = Sheets("Sauvegarde")
With Me.ComboBox1
For J = 2 To Ws.Range("c" & Rows.Count).End(xlUp).Row
.AddItem Ws.Range("c" & J)
Next J
End With
For I = 1 To 7
Me.Controls("TextBox" & I).Visible = True
Next I

Set Ws = Sheets("adhérents")
With Me.ComboBox3
For J = 2 To Ws.Range("c" & Rows.Count).End(xlUp).Row
.AddItem Ws.Range("c" & J)
Next J
End With
For I = 1 To 7
Me.Controls("TextBox" & I).Visible = True
Next I
End Sub

Le code ci dessous du pavé "sauvegarde" ne fonctionne pas il est remplacé par le pavé "adhérents"

For I = 1 To 7
Me.Controls("TextBox" & I).Visible = True

Merci encore pour votre implication et votre aide au petit retraité que je suis.

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > VDB.57

Re,
Dans ce code les textbox de 1 a 7 sont rendues visible deux fois!!!
La combobox3 est remplie par des données de la feuille adhérents!!!
Que voulez-vous, car dans votre demande de départ, c'était pour le choix combobox3 que vous aviez un problème de remplissage des textbox????

VDB.57 > f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention

Pour la combobox 3 tout est OK.

Pour la combobox 1 les textbox sont remplies par erreurs par les données de la combobox 3, au lieu de la 1.

Toutes mes excuses si mes renseignements précédents étaient mauvais.

Je ne sais comment vous remercier pour le temps que vous me consacrez.

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > VDB.57

Re,
Si je comprends bien, quand vous sélectionnez avec la combobx1, les données textboxs doivent provenir de la feuille sauvegarde. Donc vous devez affecter la variable ws
set ws=sheets("sauvegarde") au début de l'événement combobox1_change après les déclarations de variables

Discussions similaires

Votre pc n'a pas démarré correctement

exo pix

Un cable réseau n'est pas branché correctement ou est endommagé

IPV6 et IPV4

Photographie

Votre réponse

Discussions similaires