zeltron
XLDnaute Occasionnel
Bonjour à tout le forum,
Je ne comprends pas pour ma macro ne fonctionne pas.
Vous verrez en fichier joint, sur le 1er onglet ('Finitial" j'ai un bouton contenant le code. J'ai un 2eme onglet ("Bass") qui contient en colonne Z des valeurs. Je souhaites supprimer tous les lignes contenant en colonne Z la valeur "#REF!".
Pour cela, j'ai le code suivant:
Private Sub CommandButton1_Click()
Dim x As Range
Set x = ThisWorkbook.Sheets("Bass").Range("Z1:Z" & Range("Z65536").End(xlUp).Row)
For Each x In x
If x = "#REF!" Then
x.EntireRow.Delete
End If
Next x
End Sub
Je ne vois pas pourquoi cela ne fonctionne pas.
Pouvez vous m'aider?
Vous remerciant par avance pour votre retour
Cordialement
Zeltron
Je ne comprends pas pour ma macro ne fonctionne pas.
Vous verrez en fichier joint, sur le 1er onglet ('Finitial" j'ai un bouton contenant le code. J'ai un 2eme onglet ("Bass") qui contient en colonne Z des valeurs. Je souhaites supprimer tous les lignes contenant en colonne Z la valeur "#REF!".
Pour cela, j'ai le code suivant:
Private Sub CommandButton1_Click()
Dim x As Range
Set x = ThisWorkbook.Sheets("Bass").Range("Z1:Z" & Range("Z65536").End(xlUp).Row)
For Each x In x
If x = "#REF!" Then
x.EntireRow.Delete
End If
Next x
End Sub
Je ne vois pas pourquoi cela ne fonctionne pas.
Pouvez vous m'aider?
Vous remerciant par avance pour votre retour
Cordialement
Zeltron