Bonjour,
J'aimerais un petit coup de pouce pour améliorer ma méthode d'effacement de tableau,
Actuellement j'efface en VBA des plages précise de cellule mais je me rend compte que ce n'est plus adapté si j'agrandi celui-ci en nombres de lignes,
Voici mon code actuel :
Sub Raz()
Dim Raz As Byte
Raz = msgbox("Etes-vous certain de vouloir vider la feuille Data ?", vbYesNo + vbQuestion, "Effacer le contenu")
If Raz = vbYes Then
Worksheets("Data").Range("C8:C36").ClearContents
Worksheets("Data").Range("G8:G36").ClearContents
Worksheets("Data").Range("H8:H36").ClearContents
msgbox "Contenu effacé avec succès !", vbInformation, "Confirmation"
Else
Exit Sub
End If
End Sub
Ce que j'aimerais ce serait plutôt tester la cellule en B8 si = "mavaleur" alors.... on efface le contenu des cellules avoisinantes en C8, G8 et H8
Ainsi de suite pour test de C9......
Ainsi cela me permettrais d'effacer tout le contenu désiré sans avoir à mettre à jour mon code.
L'idéal serait de tester par exemple de B8 à B100 pour éviter d'alourdir de trop mon code.
J'ai essayé de mon coté mais il ne ce passe rien,
Cordialement,