A l'aide

florent · 22 Mars 2004

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 · 22 Mars 2004

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 · 22 Mars 2004

Bonjour Wally, le Forum

merci wally ça marche

A+

Florent

florent · 22 Mars 2004

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 · 23 Mars 2004

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 · 23 Mars 2004

Bonjour Wally,

Merci encore, c'est pile ce que je souhaitai

A+

Florent

A l'aide

florent

Guest

wally

Guest

florent

Guest

florent

Guest

Pièces jointes

wally

Guest

Florent

Guest

Discussions similaires