Discussion :

[Dicmaxi]

Bonjour le forum ,je suis nouveau sur le forum et je commence par un problème sur un fichier que je construit à la vitesse de mes connaissances sur excel et VBA ,je n'arrive pas a trouver pourquoi mes deux combobox bloque mes saisie sur le tableau (userform partcipants sur feuille de mois ) .Voici le fichier Pièce jointe 580539Merci de votre aide

[Pierre Fauconnier]

Salut.

Bienvenue sur nos forums...

Pense à d'abord poster ton code avant de donner ton classeur. Tout le monde n'ouvre pas les classeurs joints, surtout avec macros. Pense également à décrire le problème: Sur quelle ligne le code s'arrête, le message d'erreur rencontré... Une copie d'écran peut s'avérer utile.

J'ai modélisé l'échange Userform / Tableau structuré dans cette contribution. Tu pourrais t'en inspirer.

Prends l'habitude de déclarer tes variables, notamment avec Option Explicit

Dans la procédure Private Sub cmdbajouter_click() de FrmPaiement; la variable ListObjRow n'est déclarée et valorisée nulle part. Elle ne pointe donc pas vers une plage de données.

Lorsque tu ajoutes une ligne à un tableau, tu peux récupérer la ligne du tableau, et donc sa plage.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Ajout()
  Dim lr As ListRow
 
  Set lr = Range("TblValidationMars").ListObject.ListRows.Add()
  lr(1, 1).Value = "Blabla" ' 1ère cellule de la ligne
  lr(1, 2).Value = "Blibli" ' 2ième cellule de la ligne
  ' Etc...
  Set lr = Nothing
End Sub

[Dicmaxi]

Bonjour Pierre je t'avouerai que je ne suis pas un pro d'excel et j'ai fait une autre approche qui fonctionne presque mise à part mes deux combobox qui ne se charge pas dans mon USF mais je ne trouve pas la solution .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim feuille As Worksheet
 
  'nous parcourons toutes les feuilles du classeur
    For Each feuille In Worksheets
 
        Select Case feuille.CodeName 'codename etant le nom de la feuille
        'on retire de la combobox les feuilles indésirables
         Case "Feuil1", "Feuil2", "Feuil7"
         'et on prend toutes les autres
         Case Else
         'et enfin on charge toutes les autres
         Me.CboNomFeuille.AddItem feuille.Name
         Me.Cont2.???????
         Me.Cont3.???????
 
 
    End Select
 
    Next feuille
 
 
 
End Sub

[Dicmaxi]

Rebonjour merci beaucoup pour aide je viens de trouver la solution tout en écrivant ,voici mon code qui fonctionnePrivate Sub UserForm_Initialize()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
  Dim feuille As Worksheet
 
  'nous parcourons toutes les feuilles du classeur
    For Each feuille In Worksheets
 
        Select Case feuille.CodeName 'codename etant le nom de la feuille
        'on retire de la combobox les feuilles indésirables
         Case "Feuil1", "Feuil2", "Feuil7"
         'et on prend toutes les autres
         Case Else
         'et enfin on charge toutes les autres
         Me.CboNomFeuille.AddItem feuille.Name
         Cont3.List = Worksheets("Liste").Range("B2:B" & Worksheets("Liste").Range("B100").End(xlUp).Row).Value
         Cont2.List = Worksheets("Liste").Range("D2:D3").Value
 
    End Select
 
    Next feuille
 
 
 
End Sub

Merci encore et bonne journée

[Dicmaxi]

Bonjour le forum ,bonjour Pierre
dernière petite question ,si je souhaite qu'au chargement de l'usf qu'il charge dans la cbonomfeuille le nom de la feuille sur lequel il est ouvert cela m'évitera de mette un menu déroulant et de gagner du temps dans la saisie .Bien sur je dois changer la combobox par une textbox mais au niveau du code ça se complique un peu pour moi ,merci de votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub UserForm_Initialize()
 
  Dim feuille As Worksheet
 
  'nous parcourons toutes les feuilles du classeur
    For Each feuille In Worksheets
 
        Select Case feuille.CodeName 'codename etant le nom de la feuille
        'on retire de la combobox les feuilles indésirables
         Case "Feuil1", "Feuil2"
         'et on prend toutes les autres
         Case Else
         'et enfin on charge toutes les autres
         Me.CboNomFeuille.AddItem feuille.Name
         Cont3.List = Worksheets("Liste").Range("B2:B" & Worksheets("Liste").Range("B100").End(xlUp).Row).Value
         Cont2.List = Worksheets("Liste").Range("D2:D3").Value
    End Select
 
    Next feuille
 
 
End Sub

[Dicmaxi]

Rebonjour désolé pour cette question en cherchant un peu dans le forum j'ai trouvé la réponse tout fonctionne nickel avec ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub UserForm_Initialize()
 
  Dim feuille As Worksheet
 
  'nous parcourons toutes les feuilles du classeur
    For Each feuille In Worksheets
 
        Select Case feuille.CodeName 'codename etant le nom de la feuille
        'on retire de la combobox les feuilles indésirables
         Case "Feuil1", "Feuil2"
         'et on prend toutes les autres
         Case Else
         'et enfin on charge toutes les autres
         Me.TextBox2 = ActiveSheet.Name
         Cont3.List = Worksheets("Liste").Range("B2:B" & Worksheets("Liste").Range("B100").End(xlUp).Row).Value
         Cont2.List = Worksheets("Liste").Range("D2:D3").Value
    End Select
 
    Next feuille
 
 
End Sub