XL 2019 Supprimer contenue cellule dans colonne

[farid]

Bonjour, je vous met en PJ un fichier en remerciant sa créatrice (teur) qui fonctionne bien et j'aurai voulu y amené une modification a savoir effacer cellule dans la colonne A sans impact sur les colonne B/C .Jai mis la colonne en tableau. Par avance, merci pour votre implication.

 

[fanfan38]

Bonjour
J'espère avoir répondu à ton problème

A+ François

 

[farid]

Bonjour
J'espère avoir répondu à ton problème

A+ François

Bonjour Fanfan , je te remercie pour ton implication.je viens de tester ta proposition qui fonctionne mais peut être que je me suis mal exprimé a ma demande, a savoir en plus de supprimer le contenu de la cellule du tableau , il faudrait aussi supprimer sa ligne , en résumé avoir une colonne d'un tableau sans trou , je ne sais pas si je me suis bien fait comprendre , enfin je l'espère ! , par avance merci

 

[fanfan38]

Est ce que ça te convient
A+ François

 

[farid]

Est ce que ça te convient
A+ François

Merci infiniment , cela fonctionne très bien , Bonne journée et fin de semaine.

 

[job75]

Bonjour farid, fanfan38,

Il faut savoir que la méthode .AddItem prend trop de temps sur un grand tableau.

Utilisez plutôt la méthode .List.

Par ailleurs puisqu'on a un tableau structuré Tableau2 autant l'utiliser :

Private Sub CommandButton1_Click()
With ComboBox1
    If .ListIndex <> -1 Then [Tableau2].Cells(.ListIndex + 1).Delete xlUp
    UserForm_Initialize
    .Text = ""
    .SetFocus
End With
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = [Tableau2].Resize(, 2).Value 'pour avoir au moins 2 éléments
End Sub

A+

 

[farid]

Bonjour farid, fanfan38,

Il faut savoir que la méthode .AddItem prend trop de temps sur un grand tableau.

Utilisez plutôt la méthode .List.

Par ailleurs puisqu'on a un tableau structuré Tableau2 autant l'utiliser :

Private Sub CommandButton1_Click()
With ComboBox1
    If .ListIndex <> -1 Then [Tableau2].Cells(.ListIndex + 1).Delete xlUp
    UserForm_Initialize
    .Text = ""
    .SetFocus
End With
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = [Tableau2].Resize(, 2).Value 'pour avoir au moins 2 éléments
End Sub

A+

Bonjour Job et merci pour ce retour bonne journée a toi