Discussion :

[Akhlan]

Bonjour,

j'ai un soucis sur une petite macro et je pense deviner que cela bien du format des deux cellules à comparer mais le résultat est que ma boucle n'est pas fonctionnelle....
Je lui demande de tester la valeur de deux cellules et si celles ci sont identiques on passe à un "Exit Sub"... Dans mon cas, le script de déroule jusqu'à la fin même si les conditions sont remplies :-(

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    Dim Lig, DerLig As Integer
    '-------------------------------------------------------------------------------------------------
    '-------- Vérification si G4 existe déjà dans la colonne A pour éviter les doublons --------------
    '-------------------------------------------------------------------------------------------------
    DerLig = Range("A65536").End(xlUp).Row
    For Lig = 17 To DerLig
    If Range("A" & Lig).Value = Range("G4").Value Then Exit Sub '<-- NE FONCTIONNE PAS....
    Next Lig

et je voudrai que dans cette macro, on demande à l'utilisateur de choisir une réponse parmi 3 choix et que cette valeur complète une des cellules définit et là, je n'y arrive pas du tout :-(

PS : Ce script devra sans doute est adaptable pour fonctionner sous Google Docs....