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
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
Dernière modification par un modérateur: