XL 2019 Supprimer contenue cellule dans colonne

farid · 15 Avril 2021

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 · 16 Avril 2021

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

fanfan38 · 16 Avril 2021

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

A+ François

farid · 16 Avril 2021

fanfan38 à dit:
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 · 16 Avril 2021

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

farid · 16 Avril 2021

fanfan38 à dit:
Est ce que ça te convient
A+ François

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

job75 · 16 Avril 2021

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 :

VB:

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 · 16 Avril 2021

job75 à dit:
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 :

VB:

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

XL 2019 Supprimer contenue cellule dans colonne

farid

XLDnaute Occasionnel

Pièces jointes

fanfan38

fanfan38

XLDnaute Barbatruc

Pièces jointes

farid

XLDnaute Occasionnel

fanfan38

XLDnaute Barbatruc

Pièces jointes

farid

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

farid

XLDnaute Occasionnel

Discussions similaires