Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro supprime ligne qui contient...

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Re : Macro supprime ligne qui contient...

bonjour manulemalin13000, tototiti2008,


voici un essai :
Code:
Sub test()
Dim cellRecherche As Range
Set cellRecherche = ThisWorkbook.Sheets("Fluidics 1-13oct").Cells.Find("gcfluidics.exe", , , xlPart)
While Not cellRecherche Is Nothing
    cellRecherche.EntireRow.Delete
    Set cellRecherche = ThisWorkbook.Sheets("Fluidics 1-13oct").Cells.Find("gcfluidics.exe", , , xlPart)
Wend
End Sub

a+
 
Re : Macro supprime ligne qui contient...

Re,

Je souhaiterai completer la macro avec la demande suivante...

Si dans la colonne A il y a le mot Error alors effacer toute cette ligne et les 8 lignes qui sont au dessus.

Quelqu'un peut m'aider à ecrire ca ?

Merci d'avance
Manu
 
Re : Macro supprime ligne qui contient...

re bonjour,


à tester :
Code:
Sub test()
Dim cellRecherche As Range
[B]Set cellRecherche = ThisWorkbook.Sheets("Fluidics 1-13oct").Range("A:A").Find("error", , , xlPart)
While Not cellRecherche Is Nothing
    cellRecherche.Resize(8, 1).Offset(-7, 0).EntireRow.Delete
    Set cellRecherche = ThisWorkbook.Sheets("Fluidics 1-13oct").Range("A:A").Find("error", , , xlPart)
Wend[/B]
Set cellRecherche = ThisWorkbook.Sheets("Fluidics 1-13oct").Cells.Find("gcfluidics.exe", , , xlPart)
While Not cellRecherche Is Nothing
    cellRecherche.EntireRow.Delete
    Set cellRecherche = ThisWorkbook.Sheets("Fluidics 1-13oct").Cells.Find("gcfluidics.exe", , , xlPart)
Wend
End Sub

a+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
170
Réponses
7
Affichages
697
  • Question Question
Microsoft 365 Fonction si
Réponses
7
Affichages
223
Réponses
19
Affichages
869
  • Question Question
Microsoft 365 bouton supprimer
Réponses
4
Affichages
228
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…