Discussion :

[KERKENIANES]

Bonjour,
je debute avec les macros excel ,
jai un classeur avec plusieurs formulaires de saisie.
jai un formulaire 1 de saisie clients ( nom , code,domaine activite.....)
apres jai un deuxieme formulaire de saisie article avec une combobox qui comporte les nom des clients qui ont été saisis dans le formulaire 1.
au fur et a mesure que le nombre des clients augmente ma liste doit augmenter aussi
est ce possible et comment je dois faire.
merci pour votre aide , je reste a votre disposition pour tout complément d information.

[mfoxy]

Hello,

Oui c'est possible, a voir mtn la mise en place dans ton fichier.
Un petit recherche sur ce forum, te donnera de très bons exemples d'interactions entre userforms et tableaux structuré qui devrait répondre à ta question.

N'hésite pas à revenir avec un code même partiel en cas de souci.

Bat,

[KERKENIANES]

merci pour votre aide
dans mon classeur et a partir de la page acceuil j appelle la userform client et j alimente le champs nom client qui sera enregistre automatiquement dans la feuille CLIent dans la colonne NOM_client.
jappelle apres la userform article, jai une combobox nom client . j ai essaye de selectionner la liste du tableau Client mais j obtiens une erreur et excel se ferme . j etais obligé de copier la colonne nom client et d en faire une liste deroulante et la mettre dans combobox.
je cherche une alternative plus directe.
merci pour votre aide

[BENNASR]

bonjour sadiki, la forum
lors de l'initialisation de ton USF

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize()
Dim F As Worksheet
Dim i As Integer
Set F = Sheets("CLIENTS")
For i = 2 To F.Range("A65536").End(xlUp).Row
If F.Range("B" & i) <> "" Then
  ComboBox1 = F.Range("B" & i) & "  " & F.Range("A" & i)
  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem F.Range("B" & i) & "  " & F.Range("A" & i)
End If
Next i
ComboBox1 = ""
End Sub

sans oublier d'ajouter lors de l'enregistrement de l'article bouton ajout :

Code :

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

ActiveCell.Offset(0, 2).Value = ComboBox1.Value

j'anticipe ta demande et je pense au cas ou vous voulez modifier un client
je propose un fichier t'explique comment faire...tu peux inspirer la solution et l'adapter pour ton cas


n'hésitez pas de revenir si il y a quelque chose n'est pas claire

[Philippe Tulliez]

Bonjour,
A partir du moment où vous utilisez les tableaux structurés, il n'y a pas lieu de se préoccuper du nombre de lignes de la table et l'alimentation des contrôles ListBox et Combobox est très simple. Il suffit d'utiliser la propriété List de ces contrôles

Exemple avec un tableau structuré nommé t_population et un ListBox

Code :

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

1
2
3
4
5
6
7
8
9
Sub t_1()
  With UserForm1
   With .ListBox1
   .List = Range("t_population").Value
   '    .ColumnCount = Range("t_population").Columns.Count ' Gère le nombre de colonnes à afficher s'il y en a plus d'une
   End With
  .Show
  End With
End Sub

[KERKENIANES]

bonjour sadiki, la forum
lors de l'initialisation de ton USF

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize()
Dim F As Worksheet
Dim i As Integer
Set F = Sheets("CLIENTS")
For i = 2 To F.Range("A65536").End(xlUp).Row
If F.Range("B" & i) <> "" Then
  ComboBox1 = F.Range("B" & i) & "  " & F.Range("A" & i)
  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem F.Range("B" & i) & "  " & F.Range("A" & i)
End If
Next i
ComboBox1 = ""
End Sub

sans oublier d'ajouter lors de l'enregistrement de l'article bouton ajout :

Code :

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

ActiveCell.Offset(0, 2).Value = ComboBox1.Value

j'anticipe ta demande et je pense au cas ou vous voulez modifier un client
je propose un fichier t'explique comment faire...tu peux inspirer la solution et l'adapter pour ton cas


n'hésitez pas de revenir si il y a quelque chose n'est pas claire

Merci infiniment pour votre aide si précieuse, que du bonheur nchallah.
je débute avec excel vba , pouvez vous me renseigner par ou commencer ?

[BENNASR]

Merci infiniment pour votre aide si précieuse, que du bonheur nchallah.
je débute avec excel vba , pouvez vous me renseigner par ou commencer ?

j'ai arrivé ici par hasard demander de l'aide en décembre 2013 avec zéro connaissance en VBA ...et depuis, ma présence est presque journalière...j'ai commencé par suivre les discussions, copier les codes que je juge nécessaire...et suivre les toto... faire parfois des petits programmes ... et voila à mon tour ...je tente d'aider les autres dans la limite de mes connaissance....aider et apprendre en meme temps... ça m'a beaucoup aider à améliorer mes connaissance qui reste modeste par rapport que fait les senior du site ... mais chaque jour j'apprends ... ça m'aide dans mon bolo de contrôleur de gestion.
Bonne continuation cher ami

..