Msgbox si oui dans une ligne

Bonjour,

je suis a la recherche d'une manip pour m'aider a avoir un msgbox si dans la colonne AM et ça pour chaque ligne de cette colonne, le mot oui apparait.

Le mot "oui" est a choisir a partir d'une liste deroulante.

Il me faudrait le message suivant ; "Merci de saisir le conjoint sur une ligne séparée".

Merci par avance pour votre aide.

Laurent

Salut,

colle ce code dans le module de la feuille qui t'intéresse

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myRange As Range
Set myRange = Columns("AM")
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, myRange) Is Nothing Then
    If UCase(Target) = ("OUI") Then MsgBox "Merci de saisir le conjoint sur une ligne séparée."
   Target.ClearContents
End If
End Sub

Merci Game Over, ça marche du tonnerre

j'ai une autre question du meme style

j'ai dans une colonne AR des dates a inscrire ou elle reste vide.

Dans le cas ou elle reste vide pas de souci.

Mais quand je note une date sur mm/aaaa, je souhaiterai un messge disant "Merci de noter le montant de l'aide (colonne AT), dans la colonne Participation retenue (colonne BG)".

Merci une fois de plus pour ton aide.

vois si ça te convient

    Private Sub Worksheet_Change(ByVal Target As Range)

    Dim myRange As Range, myRange2 As Range

    If Target.Count > 1 Then Exit Sub

    Set myRange = Columns("AM")
    If Not Intersect(Target, myRange) Is Nothing Then
        If UCase(Target) = ("OUI") Then
            MsgBox "Merci de saisir le conjoint sur une ligne séparée."
            Target.ClearContents
       End If
    End If

    Set myRange2 = Columns("AR")
    If Not Intersect(Target, myRange2) Is Nothing Then
        If IsDate(Target) Then
            MsgBox "Merci de noter le montant de l'aide (colonne AT), dans la colonne Participation retenue (colonne BG)."
            Target.ClearContents
        End If
    End If
    End Sub