Variable ligne au complet

[Temjeh]

Bonjour

Dans une boucle je sais boucler sur une valeur X.

X = "bonjour"
For i = 1 to 100

If Range("A" & i).value = X then
...
Next

Ce que j'aimerais c'est y mettre une ligne comme variable!
X = valeur de la ligne
Si ma ligne active de feuil 1 se retrouve dans ma feuil 2 delete ligne ...next


Merci beaucoup

Temjeh

 

[WILFRIED]

Re : Variable ligne au complet

Salut themjeh

Je ne sais pas si cela correspondera à ton souhait :

Sub verif_redondance()
Dim m_cell_f1 As Range
Dim m_cell_f2 As Range
Dim plage_f1 As Range
Dim plage_f2 As Range
Dim cont_cel_f1 As Variant
Dim cont_cell_f2 As Variant

Dim nm_f1 As Worksheet
Dim nm_f2 As Worksheet

Sheets("Feuil1").Select
Set nm_f1 = ActiveSheet
Sheets("Feuil2").Select
Set nm_f2 = ActiveSheet

nm_f1.Select
Set plage_f1 = Range("A1", Range("A65536").End(xlUp))
nm_f2.Select
Set plage_f2 = Range("A1", Range("A65536").End(xlUp))
For Each m_cell_f1 In plage_f1
nm_f2.Select
For Each m_cell_f2 In plage_f2
If m_cell_f1 = m_cell_f2 Then
m_cell_f2.EntireRow.Select
Selection.Delete shift:=xlUp
Exit For
End If
Next m_cell_f2
Set plage_f2 = Range("A1", Range("A65536").End(xlUp))
Next m_cell_f1
End Sub

A+

 

[Temjeh]

Re : Variable ligne au complet

Merci beaucoup

Je suis juste venu manger je retourne au travail
J'Y ai jetté un coup d'oeuil et le principe a l'air bien

C'est bon j'y ai aussi pris des idées ici:

https://www.excel-downloads.com/threads/supprimer-ligne-en-fonction.63264/

A+
Temjeh