Discussion :

[louisgerbaud]

Bonjour,
Voici ma question,
J’ai un planning pour la gestion des absences, congés…
Je souhaiterais soit via une ligne déroulante, soit par une liste déroulante dans un formulaire UserForm, pouvoir sélectionner le jour de repos d’un salarié, et qu’automatiquement une valeur (en l’occurrence un « R ») soit inséré dans des cellules spécifiques.
Par exemple je veux que en sélectionnant que le jour de repos de Louis est le « lundi » je veux qu’un « R » apparaissent dans les cellules correspondant aux lundi,

Comment faire?
Merci d’avance

[Philippe Tulliez]

Bonjour,
Quelle est votre question exactement ?
Comment alimenter un Combobox ?
Comme écrire dans une cellule l'élément sélectionné dans un ComboBox ?

[louisgerbaud]

Bonjour,
En gros imaginons que j’ai un tableau de deux colonnes, la colonne A représente des codes postaux, et la colonne B les communes. A1 = 20600 et B1 = BASTIA.
Je veux faire une combobox, qui aura comme données la colonne A soit les codes postaux, et que lorsque je choisis/selectionne un CP dans la liste déroulante, je veux qu’automatique ment dans une TextBox soit associé la commune.
Compris?
Merci d’avance

[Philippe Tulliez]

Bonjour,
La plage contenant dans l'ordre des colonnes, les codes postaux et les villes est un tableau structuré nommé t_CodePostaux
Le UserForm nommé Userform1 à un Combobox nommé cboCodePostal et le TextBox se nomme txtVille

Code à placer dans un module standard et qui est la procédure de démarrage

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
Sub Main()
  Dim rng As Range
  Set rng = Range("t_CodePostaux")
  With UserForm1
    With .cboCodePostal
    .List = rng.Value
    .ColumnCount = rng.Columns.Count ' Nbre ce colonnes
    .ColumnWidths = "50;50"          ' Largeur des colonnes
    .BoundColumn = 2                 ' Identifie la colonne 2 comme source de données
    End With
  .Show
   ' rng.Value = .cboStatus.Value
  End With
  Unload UserForm1 ' Ferme le UserForm
  Set rng = Nothing
End Sub

Code à placer dans le UserForm

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub cboCodePostal_Click()
  With Me
  .txtVille = .cboCodePostal.Value
  End With
End Sub
 
Private Sub CommandButton1_Click()
  Me.Hide
End Sub

[louisgerbaud]

Merci Philippe,
Je début tout juste, ça fait plaisir de voir que des personnes prennent encore le temps d’aider et transmettent leur connaissance.

J’ai fais comme tu m’as dit, pas d’erreur, mais le TextBox affiche la même valeur que la Combobox, à savoir le code postal et non la commune.

Dans ce que tu m’as envoyé ? Dois-je modifier/adapter des lignes ou c’est prêt à l’emploi copier/coller?
J’ai vérifié les valeurs…

Bonjour,
La plage contenant dans l'ordre des colonnes, les codes postaux et les villes est un tableau structuré nommé t_CodePostaux
Le UserForm nommé Userform1 à un Combobox nommé cboCodePostal et le TextBox se nomme txtVille

Code à placer dans un module standard et qui est la procédure de démarrage

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
Sub Main()
  Dim rng As Range
  Set rng = Range("t_CodePostaux")
  With UserForm1
    With .cboCodePostal
    .List = rng.Value
    .ColumnCount = rng.Columns.Count ' Nbre ce colonnes
    .ColumnWidths = "50;50"          ' Largeur des colonnes
    .BoundColumn = 2                 ' Identifie la colonne 2 comme source de données
    End With
  .Show
   ' rng.Value = .cboStatus.Value
  End With
  Unload UserForm1 ' Ferme le UserForm
  Set rng = Nothing
End Sub

Code à placer dans le UserForm

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub cboCodePostal_Click()
  With Me
  .txtVille = .cboCodePostal.Value
  End With
End Sub
 
Private Sub CommandButton1_Click()
  Me.Hide
End Sub

[Philippe Tulliez]

Bonjour,
Comme je l'ai expliqué dans ma première phrase, la table chez moi contient le code postal en colonne 1 et la ville en colonne 2 donc le ComboBox est chargé de la même manière.
C'est la raison pour laquelle si l'on sélectionne une ligne, c'est le second élément qui va remplir le TextBox parce-que en ligne 9 de la procédure, j'ai défini la propriété BoundColumn à 2. Si la ville est en colonne 1, on peut enlever cette ligne car la valeur par défaut de cette propriété est 1