Mes textbox ne se remplissent pas correctement

Résolu
VDB.57 -  
 VDB.57 -
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

2 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,
    Ws est déclarée ou ??
    0
    1. VDB.57
       
      Toutes mes excuses, mais je suis incapable de donner une réponse
      0
    2. 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
      0
    3. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
       
      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 !
      0
    4. VDB.57 > Patrice33740 Messages postés 8400 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
      0
    5. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
       
      Pourquoi à la place ??
      Ws est déclarée ou ?? (sic F894009)
      0
  2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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"
    0
    1. 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.
      0
      1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > 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????
        0
      2. VDB.57 > f894009 Messages postés 17417 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.
        0
      3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > 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
        0

Discussions similaires

Mise à jour et sécurité
bollo1 -
bollo1 -

12 réponses
exo pix
Xtyller -
Raymond PENTIER -

2 réponses
Impossible d'envoyer des données de mon Samsung vers le pc.
Ibrahim_1211 -
Ibrahim_1211 -

5 réponses
Votre pc n'a pas démarré correctement
sardinalito -
seb77150 -

9 réponses
IPV6 et IPV4
Fréddoo -
Nico le Vosgien -

11 réponses