COMBOBOX sur excel

Version imprimable

07/12/2020, 21h01
KERKENIANES

COMBOBOX sur excel

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.
07/12/2020, 22h51
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,
08/12/2020, 13h05
KERKENIANES

1 pièce(s) jointe(s)

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

2 pièce(s) jointe(s)

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

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:

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

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:

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

Citation:
Envoyé par BENNASR
bonjour sadiki, la forum
lors de l'initialisation de ton USF
Code:

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:

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 ?

09/12/2020, 12h34
BENNASR

Citation:

Envoyé par KERKENIANES

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

..

CREATION SOUS DOSSIER SUIVANT COMBOBOX

rebonjour , me voila encore coincé depuis 2 jours
à partir d'un userform j'ai un champs client (combobox1) et un textbox(txtnom)
un dossier de sauvegarde nomme AFM
le dossier client nommé combobox1.value sous afm est aussi créé auparavant
maintenant je veux créer le dossier nommé txtnom.value suivant E:\AFM\combobox1.value\txtnom.value
j'ai essayé avec ce code mais ça ne marche pas , des erreurs type "else without if" ...........
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub creation sous dossier Click() Dim chemin As String chemin = "E:\AFM\" & ComboBox1.Value & " \" & TXTNOM.Value If Dir(chemin, vbDirectory) = "" Then MkDir chemin Else MsgBox "Dossier existe..." End If End Sub
merci pour votre aide

12/12/2020, 08h42
Philippe Tulliez
Bonjour,

Citation:

jai essayé avec ce code mais ca marche pas , des erreur type "else without if" ...........

Le message d'erreur l'indique, votre structure décisionnelle n'est pas correctement écrite

Soit vous écrivez

Code:

If Dir(chemin, vbDirectory) = "" Then MkDir chemin Else MsgBox "Dossier existe..."

soit
Code:

1 2 3 4 5 If Dir(chemin, vbDirectory) = "" Then MkDir chemin Else MsgBox "Dossier existe..." End If

merci philippe mais ca marche pas avec le mkdir
avec ce code jai reussi a creer le sous dossier mais j arrive pas a verifier si il ya doublon ou pas

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub APPELGAMME_Click()
Dim chemin As String
 
ChDrive ("E")
 
ChDir ("\afm")
 
ChDir (ComboBox1.Value)
MkDir (TXTNOM.Value)
 
End Sub

et avec ce code jai reussi a creer un dossier mais pas de sous dossier avec des parametres txtbox et combobox

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'CREATION REPERTOIRE CLIENT SANS DOUBLON
Dim NomFic As String   'NOM FICHIER
Dim Rep As String         'NOM REPERTOIRE
Dim Nom As String           'ADRESSE TOTALE
Set filesys = CreateObject("Scripting.FileSystemObject")
Application.DisplayAlerts = False
Rep = "E:\AFM\"
NomFic = TXTNOM.Value
Nom = Rep & NomFic
If Not filesys.FolderExists(Nom) Then
Set newfolder = filesys.CreateFolder(Nom)
MsgBox ("Le repertoire " & Nom & " a été créé")
Else
MsgBox "Le repertoire existe déjà"
End If

12/12/2020, 14h00
Philippe Tulliez

Bonjour,
Ma réponse a été donnée par rapport à une question qui portait sur un message d'erreur particulier
Je ne pouvais pas deviner que le chemin à créer n'avait pas ses parents ce qui évidemment a dû générer un autre message d'erreur du style "Chemin introuvable"