Discussion :

[rihab92]

Bonjour tout le monde,

SVP je veux à partir d'un nom entré dans textbox d'userfom ,ajouter ce nom directement dans une colonne dynamique d'une feuille, et puis alimenter une autre ancienne combobox qui contient une liste de choiix de nom avec ce nouvel nom

Pourriez vous m'aider ?

[joe.levrai]

Bonjour,

quelques pistes, je ne peux pas faire mieux faute d'explications trop succintes

1)

"je veux à partir d'un nom entré dans textbox d'userfom ,ajouter ce nom directement dans une colonne dynamique d'une feuille"

Admettons que ce soit Textbox1 || à écrire dans la première ligne vide de la colonne A de la feuille "Feuil1", située dans le classeur qui contient la macro

Code :

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

1
2
3
4
5
With Me
 
    ThisWorkbook.Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp)(2) = .TextBox1
 
End With

2)

"et puis alimenter une autre ancienne combobox qui contient une liste de choiix de nom avec ce nouvel nom "

Admettons que ce soit Combobox1 (qui est bien sûr situé sur le même userform que Textbox1)

Code :

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

1
2
3
4
5
With Me
 
    .ComboBox1.AddItem .TextBox1
 
End With

[rihab92]

Merci beaaaucoup joe pour votre aide, mais en fait, j'ai deux userform diifférents situés dans deux feuilles différentes ,
En fait j'ai deux utilisateurs qui n'utilisent pas la meme feuile 1 admin et l'autre un simple utilisateur,

l'admin c lui qui a le droit d'ajouter une nouvelle zone qui doit s'enregistrer dans un tableau

alors que le premier utilisateur ne peut que voir la liste déroulante du combobox1 biensur mise à jour avec la nouvelle zone entrée par l'admin ,

donc c'est comme si j veux : insérer the textbox1.text of userform2 dans combobox1 of userform1

Pourriez vous m'aider SVP? est c possible ? je vous serai très reconnaissante

[Thautheme]

Bonsoir le fil, bonsoir le forum,

Pour alimenter dynamiquement la ComboBox1 de l'UserForm1 tu peux utiliser par exemple le code ci-dessous. Si la ComboBox1 a sa propriété [RowSource] non nulle, il faut d'abord l'effacer...

Code :

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

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
Dim O As Worksheet 'déclare la variable O
 
Set O = Sheets(Onglet_de_l_Admin) 'définit l'onglet O (tu adapteras bien sûr...)
'alimente dynamiquement la ComboBox1 avec les données de la colonne A (A1 est considérée comme l'en-tête, tu adapteras)
Me.ComboBox1.List = O.Range("A2:A" & O.Cells(Application.Rows.Count, 1).End(xlUp).Row).Value
End Sub

Dans l'Userform de l'adim (UserForm2) il suffit de rajouter le texte de la TextBox1 dans le tableau (disons au clic sur un CommandButon1) avec :

Code :

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

1
2
3
4
5
6
Private Sub CommandButton1_Click()
Dim O As Worksheet 'déclare la variable O
 
Set O = Sheets(Onglet_de_l_Admin) 'définit l'onglet O (tu adapteras bien sûr...)
O.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Me.TextBox1.Value
End Sub

j'ai choisi la colonne 1 (=A), tu adapteras à ton cas...

• Ainsi, l'admin avec son UserForm2, rajoute une nouvelle donnée dans la première ligne vide de la colonne A de son onglet spécifique... Elle correspond à la valeur de la TextBox1 de l'UserForm2. Puis cet UserForm2 est fermée.

• L'utilisateur, à l'ouverture de son UserForm1 aura automatiquement la ComboBox1 mise à jour avec la nouvelle donnée grâce au code d'Initialisation...

J'espère que j'ai été assez clair...