Aide macro

Bonjour,

J'aurais besoind de votre aide pour écrire une macro qui:

Si dans la colonne total( ligne 7 a 777) il y a pas écrit 10/10 alors dans la colonne resultat on ecrit x

Etant débutant ce que j'ai tenté d 'écrire ne marche pas

Merci de votre aide

Sub Cherche()
 For Each cellule In Range("total")
 i = i + 1
 If cellule.value <> "10/10" Then
 Range("resultat").Cells(i).Value = "x"
 Exit Sub
 End If
 Next cellule
 End Sub

3 réponses

  1. Bonjour,

    j'ai tenté d 'écrire ne marche pas Qu'est-ce qui ne marche pas ???
    1. Ma macro ne marche pas quand je l'utilise dans excell rien ne ce passe.

      Pouvez vous me dire si il y a des erreurs dans le code?

      Merci.
      1. Contributeur
        Bonjour

        le mieux serait de montrer ton classeur
        pour joindre une pièce
        mettre le classeur sans données confidentielles en pièce jointe sur
        http://cjoint.com/
        puis copier l'adresse du lien et la coller dans le message de réponse
    2. Modérateur
      Bonjour,

      Je suis d'accord avec mes collègues (que je salue au passage), le classeur est nécessaire, ne serait ce que pour vérifier le format des données du Range("total").

      En attendant essayez tout de même ce code :
      Sub Cherche()
       For Each cellule In Range("total")
           i = i + 1
           If cellule.Value <> "10/10" Then
               Range("resultat").Rows(i).Value = "x"
               'Exit Sub
           End If
       Next cellule
       End Sub


      Cordialement,
      Franck