Discussion :

[Thimmy]

Bonjour tout le monde,

Mon niveau de programmation en VBA et quelque peu nul. Pour cela pourriez-vous m'aider à réaliser une opération qui consisterai à faire afficher une boîte de dialogue si la valeur d'une cellule n'est pas la bonne.

Si vous vous référencer à la pièce jointe de ce post, cela aura plus de sens.

Je m'explique :

Une valeur est entrée dans la cellule D15. Si la valeur de la cellule C15 est égale à "épargnant" faire en sorte que lorsqu'une valeur est entrée dans l'une des cellules (D15, E15, F15) une MSGBOX apparaisse et ainsi dire à l'utilisateur s'est trompé de section.
De même si la cellule G15 est renseigné alors que la cellule C15 affiche "allocataire", faire apparaître une MSGBOX disant à l'utilisateur qu'il s'est trompé de section.

Si vous trouvé un autre moyen plus simple pour répondre à ce besoin, je suis tout-ouïe.

Merci d'avance.

Thimmy

[Gorfael]

Salut Thimmy et le forum
Clic-droit nsur le nom de l'onglet => Menu contextuel>>Visualiser le code
Tu colles la macro suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
Dim Pla As Range
Dim x As String
Set Pla = Intersect(Target, Range("D15:I65536"))
If Pla Is Nothing Then Exit Sub
For Each Cel In Pla
    If Not (IsEmpty(Pla)) Then
        If Cells(Cel.Row, "C") Like "épargnant" And _
           Cel.Column > 6 Then
            Cel.Offset(0, -3) = Cel
            Cel.ClearContents
        End If
        If Cells(Cel.Row, "C") Like "allocataire" And _
           Cel.Column < 7 Then
            Cel.Offset(0, 3) = Cel
            Cel.ClearContents
        End If
    End If
Next Cel
End Sub

si allocataire ou épargnant dans la colonne C et que tu te trompes de colonne, la macro automatique rectifie l'erreur
Si besoin d'explication demande
A+