Commande Bouton

Bonjour,

Grâce à ce forum j'ai pu obtenir une macro qui fonctionne.

Le souci est, que je veux attribuer cette macro à un bouton, mais là rien ne se passe.

J'ai essayé dans la feuille directement, puis par un module, mais rien

C'est quoi mon erreur. ( à part celle d'être nul en excel !!!)

Merci

Bonsoir,

je vois 2 problème

1) le code doit être associé à feuil2

Private Sub CmdBtnRappel_Click()
For Each cel In Sheets("Echeancier").Range("E2:E1000")
            If cel = "oui" Then
                reponse = MsgBox("Rappel " & cel.Offset(0, -4), vbYesNoCancel)
                If reponse = vbYes Then
                    cel.Value = Date
                End If
            End If
         Next
End Sub

2) le code teste un "oui" en minuscule or dans le fichier fourni il n'y a que des "OUI" majuscule

Bonsoir,

Voir fichier avec code modifié comme ci-dessous.

Cdlt

Option Explicit
Private Sub CmdBtnRappel_Click()
Dim ws As Worksheet
Dim Derligne As Long
Dim Plage As Range, c As Range
Dim reponse

    Application.ScreenUpdating = False
    Set ws = Worksheets("Echeancier")
    With ws
        Derligne = .Range("E" & Rows.Count).End(xlUp).Row
        Set Plage = .Range("E2:E" & Derligne)
        For Each c In Plage
            If UCase(c) = "OUI" Then
                reponse = MsgBox("Rappel : " & c.Offset(0, -4), vbYesNo)
                If reponse = vbYes Then c.Offset(, 1) = Date
            End If
        Next
    End With
    Set ws = Nothing: Set Plage = Nothing

End Sub

Bonsoir h2so4 ,

Merci

Oui tu as raison il suffisait de mettre le code dans la feuille correspondante et de changer le = par <>.

le souci est que cela m'oblige à faire 1000 fois annuler.

Heureusement Jean-Eric est arrivé à temps.

Bonsoir Jean-Eric.

Tu as su lire dans mes pensées de code.

Voilà exactement où je voulais en arriver à la fin.

Merci très sincèrement à vous deux.