Bonjour,
Je cherche à effacer le contenu d'une cellule selon un critère qui se trouve dans une liste déroulante en cellule C3.
J'ai donc essayé d'adapter des codes que j'ai trouvés sur le Net mais ça ne marche pas.
Voici le code en question :
Private Sub CommandButton3_Click()
'déclaration de la cellule dans laquelle se trouve le critère (du texte)
Dim Nom As String
Nom = Range("C3").Value
'Recherche de la cellule comprise entre H2 et H210 correspondant au critère
For Each Cellule In Range("H2:H210")
If Cellule.Value = Nom Then
'Nettoyage de la cellule
Cellule.ClearContents
End If
Next
End Sub
Merci d'avance pour vos lumières
Je cherche à effacer le contenu d'une cellule selon un critère qui se trouve dans une liste déroulante en cellule C3.
J'ai donc essayé d'adapter des codes que j'ai trouvés sur le Net mais ça ne marche pas.
Voici le code en question :
Private Sub CommandButton3_Click()
'déclaration de la cellule dans laquelle se trouve le critère (du texte)
Dim Nom As String
Nom = Range("C3").Value
'Recherche de la cellule comprise entre H2 et H210 correspondant au critère
For Each Cellule In Range("H2:H210")
If Cellule.Value = Nom Then
'Nettoyage de la cellule
Cellule.ClearContents
End If
Next
End Sub
Merci d'avance pour vos lumières