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

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
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…