Userform et remplissage tableau

Version imprimable

02/10/2020, 08h52
Dicmaxi

Userform et remplissage tableau

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

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:

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

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:

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

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

Code:

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

Userform et remplissage tableau

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:

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

Userform et remplissage tableau

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:

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