Petite aide

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Target.Address = ("$G$3") Then Feuil1.Range("A4:L203").ClearContents

End Sub

Je voudrais rajouter la cellule g5, merci

Bonjour

A essayer

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub
If Not Intersect(Range("G3,G5"), Target) Is Nothing Then Feuil1.Range("A4:L203").ClearContents
End Sub

Bonjour

Remplace

If Target.Address = ("$G$3") Then Feuil1.Range("A4:L203").ClearContents

par

If Target.Address = ("$G$3,$G$5") Then Feuil1.Range("A4:L203").ClearContents

Cordialement

Merci chef.

J'ai une autre petite demande la dessus,

Il y a une liste déroulante en cellule A1 et je voudrais que quand elle est non vide un msgbox s'affiche pour demander une validation. Du genre " Vous êtes sur de chosir" Oui ou Non et après lancer ma macro si oui.

Merci

Je viens de rajouter un fichier.

Bonjour

Essaye

Sub Test()
If Range("A1") > 0 Then
Dim Rep As Integer

Rep = MsgBox("Etes-vous sûr de votre choix ?", vbYesNo + vbQuestion, "CHOIX LISTE")
If Rep = vbYes Then

'içi ton code si la réponse est OUI

Else
End
End If
End If
End Sub

Amicalement

Nad

Bon week end , merci bien.