VBA : SI Msgbox et trier sinon rien

Bonjour,

J'aurai besoin d'aide, je ne trouve en aucun cas des réponses sur internet au niveau de complexité de mes attendus..

J'aimerai que lors d'une extract de données et d'un collage, la macro suivent ce cheminement :

Aller dans la feuille OP MES

Chercher dans la colonne F s'il y a des cellules contenant le mot "Nouveau"

Afficher une MsgBox annonçant qu'il a des nouveaux s'il y en a sinon s'arrêter là

Si il y a des nouveaux, aller dans la feuille OP MES

Filtrer la colonne F affichant tout les "Nouveau"

Je vous mets le code ci-joint :

    'Message de prévention sur les nouveaux dans OP MAJ 08/04/2024

    If Worksheets("OP").Columns(6).Value Like "Nouveau" Then

    Select Case MsgBox("Il y a des nouveaux à reporter !", vbOK, "Information")

    Case vbOK

    Windows("OP MES.xlsx").Activate

    ActiveSheet.Range("$A$1:$BD$50000").AutoFilter Field:=6, Criteria1:=Array( _

    "Nouveau"), Operator:=xlFilterValues

    End If 'Message de prévention sur les nouveaux dans OP - FIN

Merci de votre aide !

Bonjour,

Merci de mettre votre profil à jour en y indiquant votre version excel et non FR qui ne veut rien dire et n'aide pas celui qui doit vous répondre.
si vous êtes sous excel Windows --> 1997, 2003, ... 2021 ?
Si vous êtes sous excel MAC pensez à ajouter MAC devant votre version (ex MAC2011, MAC2016, ...)

Pour votre demande, essayez le code comme ceci

Sub test()
Dim lig
On Error Resume Next
lig = Worksheets("OP").Columns(6).Find("Nouveau", LookIn:=xlValues, lookat:=xlPart).Row
If lig = 0 Then MsgBox "il n'y a pas de nouveaux à reporter", , Information: Exit Sub 'pas de nouveau trouves
    MsgBox "Il y a des nouveaux à reporter !", , "Information"
    With Workbooks("OP MES.xlsx")
        .Activate
        .ActiveSheet.Cells.AutoFilter Field:=6, Criteria1:=Array("Nouveau"), Operator:=xlFilterValues
    End With
End Sub

Si ok, pensez à cloturer le fil -->

Crdlt

Profil mis à jour.

Le code fonctionne super, merci à toi