Suppression par rapport à deux feuilles

N

nanard25

Guest
Suppression Ligne en comparant deux feuilles

Bonsoir à Toutes et à Tous,

J'aimerais créer une macro qui serait comme ceci

Sub Suppression()
Dim FinFichier As Long
Dim FinFichier2 As Long
Dim TrouveClient As String


Sheets("Bilan Dépenses").Select
'Filtre sur la Colonne E (Total Annuel) qui contient 0
Selection.AutoFilter Field:=5, Criteria1:="0,00 " ' Colonne E

FinFichier2 = Range("C65535").End(xlUp).Row
Range("C4").Select ' Commence ligne 4

'Colonne C qui contient les Noms
'Variable Nom pour pouvoir vérifier avec la feuille 'Table Fournis'
' Supprimer cette ligne filtrée

Sheets("Table Fournis").Select
FinFichier = Range("B65535").End(xlUp).Row
Range("B3").Select ' Commence ligne 3
'Colonne B qui contient les Noms
' Chercher avec la Variable Nom dans cette feuille
' Si trouvé alors suppression de cette ligne

'Continuer avec la ligne suivante dans la feuille 'Bilan Dépenses'

End Sub

Je pensais faire une boucle imbriquée avec lecture de chaque ligne et suppression, mais l'exécution de cette macro serait trop longue à mon avis
et je ne vois pas comment faire
Pourriez-vous m'indiquer la manière à suivre

merci beaucoup et bonne soirée à vous
 

Pièces jointes

  • test.zip
    38.9 KB · Affichages: 21
  • test.zip
    38.9 KB · Affichages: 22
  • test.zip
    38.9 KB · Affichages: 16
Dernière modification par un modérateur:

Discussions similaires

Réponses
8
Affichages
347

Statistiques des forums

Discussions
314 058
Messages
2 105 153
Membres
109 278
dernier inscrit
Mirra48