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. 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
    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. Bonjour,

      j'ai tenté d 'écrire ne marche pas Qu'est-ce qui ne marche pas ???