Objet requis avec Set VBA
Bonjour,
J'ai un problème avec mon code, il m'indique "objet requis sur la ligne du "Set" souligné. Pouvez-vous m'aider svp ?
(Je suis débutant en VBA)
Public Sub Suppressionligne2()
Dim Lig2, Lig3, i As Single
'Feuille 2
Set F2 = Sheets(2)
Lig2 = F2.Range("E65536").End(xlUp).Row
'Feuille 3
Set F3 = Sheets(3)
Lig3 = F3.Range("B65536").End(xlUp).Row
i = 2
Do
Set cell3 = F3.Cells(i, 2)
Set aa = F2.Range(F2.Cells(1, 5), F2.Cells(Lig2, 2)).Find(cell2.Value, , xlValues, xlWhole)
If i <= Lig3 Then
If aa Is Nothing Then
cell3.EntireRow.Delete
Lig3 = Lig3 - 1
Else
i = i + 1
End If
End If
Loop While i <= Lig3
End Sub
Merci d'avance !
Bonjour,
fait un essai en ajoutent la déclaration suivante
Dim F2 As WorksheetMerci de ta réponse rapide i20100
J'ai essayé de rajouter la déclaration mais l'erreur apparait toujours..
Bonjour,
cell2 n'est pas déclarée.
Cordialement.
re,
il faut déclarer toutes les variables.
Dim Lig2 As Long, Lig3 As Long, i As Long
Dim F2 As Worksheet, F3 As Worksheet
dim cell3 as Range, aa as RangeMerci de me répondre aussi rapidement
J'ai donc déclarer mes variables mais ça ne fonctionne toujours pas...
Programme :
Public Sub Suppressionligne2()
Dim Lig2 As Long, Lig3 As Long, i As Long
Dim F2 As Worksheet, F3 As Worksheet
dim cell3 as Range, aa as Range
'Feuille 2
Set F2 = Sheets(2)
Lig2 = F2.Range("E65536").End(xlUp).Row
'Feuille 3
Set F3 = Sheets(3)
Lig3 = F3.Range("B65536").End(xlUp).Row
i = 2
Do
Set cell3 = F3.Cells(i, 2)
Set aa = F2.Range(F2.Cells(1, 5), F2.Cells(Lig2, 2)).Find(cell2.Value, , xlValues, xlWhole)
If i <= Lig3 Then
If aa Is Nothing Then
cell3.EntireRow.Delete
Lig3 = Lig3 - 1
Else
i = i + 1
End If
End If
Loop While i <= Lig3
End Sub
Question : c'est quoi cell2 ?
re,
Set aa = F2.Range(F2.Cells(1, 5), F2.Cells(Lig2, 2)).Find(cell2.Value, , xlValues, xlWhole)
Merci beaucoup i20100 et gyrus, c'était cell3 et non cell2 dans ma ligne set !!!!
Merci de votre réponse si rapide
Bonne journée et bonne continuation