A l'aide

[florent]

Bonjour le Forum,

J'ai trouvé sur un fil un exemple de Thierry très intéressant mais qui ne fonctionne pas sous XL97; j'ai une erreur dans le mode suppression.

Est ce que quelqu'un peut m'aider ( je suis toujours aussi nul en Vba) pour que cela fonctionne sous XL97
merci d'avance

Florent

 

[wally]

Bonjour Florent et le forum,

Essaye de modifier la procédure CommandButton1_Click(), en remplaçant la ligne :

.Rows(Me.ComboBox1.ListIndex + 3).EntireRow.Delete

par celles-ci :

.Rows(Me.ComboBox1.ListIndex + 3).Select
Selection.Delete
.Range("A3").Select


Slts

wally

 

[florent]

Bonjour Wally, le Forum

merci wally ça marche

A+

Florent

 

[florent]

Re-bonjour le Forum,

Je ne sais pas si j'abuse en ce moment mais j'en profite pour vous demander encore un service. Dans l'exemple de thierry , je souhaiterai supprimer seulement les cellules ( de A à F) avec un decalage vers le haut et non la ligne entiere

merci

Florent

 

[wally]

Bonjour Florent et le forum,

Essaye ceci :

.Range("A" & Me.ComboBox1.ListIndex + 3, "F" & Me.ComboBox1.ListIndex + 3).Select
Selection.Delete xlShiftUp


Slts

wally

 

[Florent]

Bonjour Wally,

Merci encore, c'est pile ce que je souhaitai

A+

Florent