Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel supprimer deux lignes non accolées

supprimer deux lignes non accolées

3 réponses
Avatar
liloo23
Bonjour à toutes et à tous!

J'ai un petit problème concernant une macro, je ne sais pas du tout ce qui
cloche dans ma formule!
En bref, je n'arrive pas à supprimer deux lignes non accolées
Voici ma formule :

If Range("b17") = "x" Then
For Each ws In Worksheets
ws.Rows("132:132").Delete Shift:=xlUp
Next ws
End If

If Range("b17") = "x" Then
For Each ws In Worksheets
ws.Rows("134:134").Delete Shift:=xlUp
Next ws
End If

Merci beaucoup par avance!
--
étudiante
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Modeste
Bonsour®
liloo23 wrote:
En bref, je n'arrive pas à supprimer deux lignes non accolées
il faut simplement commencer par les lignes les plus élevées


If Range("b17") = "x" Then
For Each ws In Worksheets:
ws.Rows("134:134").Delete Shift:=xlUp
ws.Rows("132:132").Delete Shift:=xlUp
Next ws
End If

--
http://viadresse.com/?94912042

Avatar
liloo23
Merci beaucoup pour cette astuce !!!

Cordialement

liloo23



"Modeste" wrote:

Bonsour®
liloo23 wrote:
En bref, je n'arrive pas à supprimer deux lignes non accolées
il faut simplement commencer par les lignes les plus élevées


If Range("b17") = "x" Then
For Each ws In Worksheets:
ws.Rows("134:134").Delete Shift:=xlUp
ws.Rows("132:132").Delete Shift:=xlUp
Next ws
End If

--
http://viadresse.com/?94912042






Avatar
ChrisV
Bonjour liloo23,

Tu pourrais aussi utiliser:

ws.[132:132,134:134].Delete Shift:=xlUp


ChrisV


"liloo23" a écrit dans le message de news:

Merci beaucoup pour cette astuce !!!

Cordialement

liloo23



"Modeste" wrote:

Bonsour®
liloo23 wrote:
En bref, je n'arrive pas à supprimer deux lignes non accolées
il faut simplement commencer par les lignes les plus élevées


If Range("b17") = "x" Then
For Each ws In Worksheets:
ws.Rows("134:134").Delete Shift:=xlUp
ws.Rows("132:132").Delete Shift:=xlUp
Next ws
End If

--
http://viadresse.com/?94912042