Bonjour à tous,
Je poste ce matin car je n'arrive pas à retrouver le site ou j'ai obtenu l'information en premier lieu. Je vous expose mon souci.
Comme une image vaut parfois mieux qu'un long discours, je vous mets en pièce jointe le fichier en question.
Dans cette UserForm, toutes les combobox sont alimentés grâce à ce code (ici l'établissement adresseur):
Dim TabloEtab() As String,
Dim PlageEtab As Range, Cell As Range
Dim I As Integer
With Sheets("Listes")
Set PlageEtab = .Range("A2:A" & .Range("A65536").End(xlUp).Row)
End With
ReDim TabloEtab(0 To PlageEtab.Rows.Count - 1)
For Each Cell In PlageEtab
TabloEtab(I) = Cell.Text
I = I + 1
Next
Ceci marche parfaitement. Les éléments de la liste situés sur la feuille "Listes" apparaissent dans la combobox.
Vous avez sans doute remarqué que dans cette UserForm initiale apparaissent 2 boutons (toujours pour l'établissement adresseur): Ajout et suppression.
L'ajout n'a pas été compliqué à réaliser et là ou je bloque c'est sur la suppression.
J'aimerais savoir comment faire pour que, via ce bouton, je puisse supprimer sur la feuille "Listes" un établissement adresseur sans que cela n'engendre un trou dans ma liste de combobox.
En espérant avoir été suffisamment clair.
Bonne journée à tous et merci pour l'aide que vous m'apporterez
TgR
Je poste ce matin car je n'arrive pas à retrouver le site ou j'ai obtenu l'information en premier lieu. Je vous expose mon souci.
Comme une image vaut parfois mieux qu'un long discours, je vous mets en pièce jointe le fichier en question.
Dans cette UserForm, toutes les combobox sont alimentés grâce à ce code (ici l'établissement adresseur):
Dim TabloEtab() As String,
Dim PlageEtab As Range, Cell As Range
Dim I As Integer
With Sheets("Listes")
Set PlageEtab = .Range("A2:A" & .Range("A65536").End(xlUp).Row)
End With
ReDim TabloEtab(0 To PlageEtab.Rows.Count - 1)
For Each Cell In PlageEtab
TabloEtab(I) = Cell.Text
I = I + 1
Next
Ceci marche parfaitement. Les éléments de la liste situés sur la feuille "Listes" apparaissent dans la combobox.
Vous avez sans doute remarqué que dans cette UserForm initiale apparaissent 2 boutons (toujours pour l'établissement adresseur): Ajout et suppression.
L'ajout n'a pas été compliqué à réaliser et là ou je bloque c'est sur la suppression.
J'aimerais savoir comment faire pour que, via ce bouton, je puisse supprimer sur la feuille "Listes" un établissement adresseur sans que cela n'engendre un trou dans ma liste de combobox.
En espérant avoir été suffisamment clair.
Bonne journée à tous et merci pour l'aide que vous m'apporterez
TgR