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
michdenis
Bonsoir Gérard,
Tu peux utiliser ceci en adaptant le nom de la feuille et de la plage : Range("C5:G50")
'---------------------------- Sub Supprimer()
Dim Rg As Range With Worksheets("Feuil1") Set Rg = Intersect(.Range("C5:G50"), ActiveCell) If Not Rg Is Nothing Then Rg.EntireRow.Delete (xlUp) End If End With Set Rg = Nothing
End Sub '----------------------------
Salutations!
"Gérard" a écrit dans le message de news:egb% ou même mieux , si la cellule active de la ligne à supprimer fait partie d'un groupe de cellules nommé.
if celluleActive fait partie de "groupe" then supprimer ligne
En passant par une macro je désire supprimer une ligne sauf les lignes de 1 à 10 comment mettre la condition
if row active <> 1 à 10 then supprimer ^^^^^^^^^^^^^^^^^^^^
merci
-- Gérard
-- Gérard
Bonsoir Gérard,
Tu peux utiliser ceci en adaptant le nom de la feuille et de la plage : Range("C5:G50")
'----------------------------
Sub Supprimer()
Dim Rg As Range
With Worksheets("Feuil1")
Set Rg = Intersect(.Range("C5:G50"), ActiveCell)
If Not Rg Is Nothing Then
Rg.EntireRow.Delete (xlUp)
End If
End With
Set Rg = Nothing
End Sub
'----------------------------
Salutations!
"Gérard" <Gerard.beguin@laposte.net> a écrit dans le message de news:egb%23TFbQDHA.304@tk2msftngp13.phx.gbl...
ou même mieux , si la cellule active de la ligne à supprimer fait partie
d'un groupe de cellules nommé.
if celluleActive fait partie de "groupe" then supprimer ligne
Tu peux utiliser ceci en adaptant le nom de la feuille et de la plage : Range("C5:G50")
'---------------------------- Sub Supprimer()
Dim Rg As Range With Worksheets("Feuil1") Set Rg = Intersect(.Range("C5:G50"), ActiveCell) If Not Rg Is Nothing Then Rg.EntireRow.Delete (xlUp) End If End With Set Rg = Nothing
End Sub '----------------------------
Salutations!
"Gérard" a écrit dans le message de news:egb% ou même mieux , si la cellule active de la ligne à supprimer fait partie d'un groupe de cellules nommé.
if celluleActive fait partie de "groupe" then supprimer ligne