OVH Cloud OVH Cloud

Comment supprimer X lignes ?

3 réponses
Avatar
maudru michel
Bonjour,

J'ai besoin d'aide pour résoudre ce pb :
En A1, il y a un nombre X et je souhaite selectionner et supprimer les
lignes de 10 à 10+X.

Je bloque parceque l'instruction rows ne semble pas vouloir de variables...

Merci de votre aide.

Michel

3 réponses

Avatar
Denis Michon
Bonjour maudru michel,

Supprime les ligne de A10 + la valeur dans la cellule A1 pour la colonne A seulement
Range("A10").Resize(Range("A1").Value, 1).Delete

Fait la même chose pour pour toute les lignes entières.
Range("A10").Resize(Range("A1").Value, 1).EntireRow.Delete


Salutations!




"maudru michel" a écrit dans le message de
news:3f92e7fd$0$6974$
Bonjour,

J'ai besoin d'aide pour résoudre ce pb :
En A1, il y a un nombre X et je souhaite selectionner et supprimer les
lignes de 10 à 10+X.

Je bloque parceque l'instruction rows ne semble pas vouloir de variables...

Merci de votre aide.

Michel
Avatar
Alain CROS
Bonjour.

Sub SupXLigne()
[A10].Resize([A1]).EntireRow.Delete
End Sub

Alain CROS.

"maudru michel" a écrit dans le message de news: 3f92e7fd$0$6974$
Bonjour,

J'ai besoin d'aide pour résoudre ce pb :
En A1, il y a un nombre X et je souhaite selectionner et supprimer les
lignes de 10 à 10+X.

Je bloque parceque l'instruction rows ne semble pas vouloir de variables...

Merci de votre aide.

Michel




Avatar
maudru michel
Merci pour vos réponses et leurs célérité - Michel

"Alain CROS" a écrit dans le message news:
#
Bonjour.

Sub SupXLigne()
[A10].Resize([A1]).EntireRow.Delete
End Sub

Alain CROS.

"maudru michel" a écrit dans le message de news:
3f92e7fd$0$6974$

Bonjour,

J'ai besoin d'aide pour résoudre ce pb :
En A1, il y a un nombre X et je souhaite selectionner et supprimer les
lignes de 10 à 10+X.

Je bloque parceque l'instruction rows ne semble pas vouloir de
variables...



Merci de votre aide.

Michel