Bonjour à tous,
Je viens vers vous car j'ai épuisé toutes mes ressources...
Voici mon problème:
Je souhaite supprimer 1 ligne sur 2 feuilles différentes avec une recherche par mot clés. Vous pourrais constater en essayant le fichier joint que cela fonctionne mais que sur la feuille active... Impossible d'avoir le même résultat sur l'autre feuille !
Je pense que c'est la première boucle FOR / NEXT qui me fait sortir du SUB mais je ne sais pas comment lui faire lire la 2ème boucle pour l'autre feuille...
Pouvez-vous m'aider à trouver une solution ?
Merci par avance pour votre aide.SUP1.xlsx
NB: j'ai une erreur quand j'essaie d'attacher le fichier .xlsm, donc je vous mets le code de la macro:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31 Sub Macro2() ' ' Macro1 Macro ' ' Dim Mot As String Dim I As Integer Dim k As Integer Mot = InputBox("Texte ?", "Titre") For k = 1 To 100 With F8.Range("PREMIERE5", "DERNIERE5") If Cells(k, 2) = Mot Then Rows(k).Delete k = 100 End If End With Next k For I = 1 To 100 With F7.Range("PREMIERE4", "DERNIERE4") If Cells(I, 2) = Mot Then Rows(I).Delete I = 100 End If End With Next I End Sub
Partager