Bonjour à toutes et à tous,
Dans mon tableau Excel j’ai plusieurs feuilles, "Compte" et "Liste" entre autres.
Quand je fais un clic droit dans une cellule de la feuille "Compte", cela m’ouvre une listBox qui va chercher les renseignements dans la feuille "Liste". Par exemple le nom d'une Ville.
Y a-t-il une possibilité quand une ville n'existe pas dans la liste de pouvoir la rajouter ? Afin de pouvoir l'utiliser tout de suite
Voici le code que j'utilise pour l'instant.
Dans la feuille "Compte"
If UCase(Left(.Cells(3, Selection.Column), 3)) = "VIL" Then
Ville.Show
Cancel = True
End If
Dans la ListBox
Private Sub ListBox1_Click()
Me.Hide
ActiveSheet.Cells(Selection.Row, 4) = Me.Banque.Column(0, Banque.ListIndex)
Unload Me
End Sub
Private Sub UserForm_Activate()
With Worksheets("Liste").Range("D3")
Me.Banque.RowSource = Worksheets("Liste").Range(.Cells, .End(xlDown)(1, 1)).Address(External:=True)
End With
End Sub
Merci par avance
Dad
Dans mon tableau Excel j’ai plusieurs feuilles, "Compte" et "Liste" entre autres.
Quand je fais un clic droit dans une cellule de la feuille "Compte", cela m’ouvre une listBox qui va chercher les renseignements dans la feuille "Liste". Par exemple le nom d'une Ville.
Y a-t-il une possibilité quand une ville n'existe pas dans la liste de pouvoir la rajouter ? Afin de pouvoir l'utiliser tout de suite
Voici le code que j'utilise pour l'instant.
Dans la feuille "Compte"
If UCase(Left(.Cells(3, Selection.Column), 3)) = "VIL" Then
Ville.Show
Cancel = True
End If
Dans la ListBox
Private Sub ListBox1_Click()
Me.Hide
ActiveSheet.Cells(Selection.Row, 4) = Me.Banque.Column(0, Banque.ListIndex)
Unload Me
End Sub
Private Sub UserForm_Activate()
With Worksheets("Liste").Range("D3")
Me.Banque.RowSource = Worksheets("Liste").Range(.Cells, .End(xlDown)(1, 1)).Address(External:=True)
End With
End Sub
Merci par avance
Dad
Dernière édition: