Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel effacer toutes les lignes qui ont "toto" dans la colonne H

effacer toutes les lignes qui ont "toto" dans la colonne H

3 réponses
Avatar
gabriel
Bonjour,

J'ai cette macro qui efface "toto", mais partout dans la feuille ! j'aurai
aimé uniquement qu'il efface les lignes qui ont toto sur la colonne H, et je
ne sais pas comment faire...

Sub gras()
' met en gras toutes les lignes qui contiennent le critère "toto" d'une
colonne quelconque
Dim n As Long
Dim i As Long
Dim ptr As Range
n = ActiveSheet.UsedRange.Rows.Count
For i = n To 1 Step -1
ActiveSheet.Cells(i, 1).EntireRow.Select
Set ptr = Selection.Find(What:="toto")
If Not ptr Is Nothing Then Selection.Font.Bold = True
Next i
End Sub

Gabriel
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
JLuc
*Bonjour gabriel*,


Bonjour,

J'ai cette macro qui efface "toto", mais partout dans la feuille ! j'aurai
aimé uniquement qu'il efface les lignes qui ont toto sur la colonne H, et je
ne sais pas comment faire...

Sub gras()
' met en gras toutes les lignes qui contiennent le critère "toto" d'une
colonne quelconque
Dim n As Long
Dim i As Long
Dim ptr As Range
n = ActiveSheet.UsedRange.Rows.Count
For i = n To 1 Step -1
ActiveSheet.Cells(i, 1).EntireRow.Select
If Cells(i, 8) = "toto" Then

ActiveSheet.Cells(i, 8).EntireRow.Delete ' 8 = colonne H
End If
Set ptr = Selection.Find(What:="toto")
If Not ptr Is Nothing Then Selection.Font.Bold = True
Next i
End Sub

Gabriel


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
ABED HADDOU
Bonjour gabriel
essaie ceci

Sub Suppligne()
For Each c In Range([h2], [h65000].End(xlUp))
If c.Value = "toto" Then c.EntireRow.Delete
Next
End Sub

Cordialement Abed_H


Bonjour,

J'ai cette macro qui efface "toto", mais partout dans la feuille ! j'aurai
aimé uniquement qu'il efface les lignes qui ont toto sur la colonne H, et je
ne sais pas comment faire...

Sub gras()
' met en gras toutes les lignes qui contiennent le critère "toto" d'une
colonne quelconque
Dim n As Long
Dim i As Long
Dim ptr As Range
n = ActiveSheet.UsedRange.Rows.Count
For i = n To 1 Step -1
ActiveSheet.Cells(i, 1).EntireRow.Select
Set ptr = Selection.Find(What:="toto")
If Not ptr Is Nothing Then Selection.Font.Bold = True
Next i
End Sub

Gabriel





Avatar
gabriel
Merci,
J'ai pris cette macro qui colle à mon usage.
Gabriel

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

*Bonjour gabriel*,


Bonjour,

J'ai cette macro qui efface "toto", mais partout dans la feuille !
j'aurai aimé uniquement qu'il efface les lignes qui ont toto sur la
colonne H, et je ne sais pas comment faire...

Sub gras()
' met en gras toutes les lignes qui contiennent le critère "toto" d'une
colonne quelconque
Dim n As Long
Dim i As Long
Dim ptr As Range
n = ActiveSheet.UsedRange.Rows.Count
For i = n To 1 Step -1
ActiveSheet.Cells(i, 1).EntireRow.Select
If Cells(i, 8) = "toto" Then

ActiveSheet.Cells(i, 8).EntireRow.Delete ' 8 = colonne H
End If
Set ptr = Selection.Find(What:="toto")
If Not ptr Is Nothing Then Selection.Font.Bold = True
Next i
End Sub

Gabriel


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O