Problème lecture cellule composée

Résolu/Fermé
Berorn Messages postés 30 Date d'inscription jeudi 16 février 2017 Statut Membre Dernière intervention 5 août 2022 - 28 mai 2019 à 22:16
Berorn Messages postés 30 Date d'inscription jeudi 16 février 2017 Statut Membre Dernière intervention 5 août 2022 - 29 mai 2019 à 08:27
Bonjour,
Dans un code VBA, j'ai un petit soucis de lecture de cellule. Je m'explique
Dans la colonne A de la feuille 1, j'ai du texte associé à des chiffres ou non, idem dans la feuille 2 : par ex
A1 = G160
A2 = CTRLCU
A3 = ABC1
A4 = ABC3
Dans mon code à un moment j'essaie d'utiliser une fonction IF pour comparer une cellule de la feuille 1 à une cellule de la feuille 2 :
If Sheets("Feuil1").Cells(1,1)=Sheets("Feuil2").Cells(1,1)
[instruction]
End If

Je lance la macro en pas à pas
Nous sommes d'accord que si la Cellule A1 (feuille 1) = A2 (feuille 1), elle doit lire l'instruction. C'est le cas que lorsque la cellule est composé seulement de texte.

OK :
Sheets("Feuil1").Cells(1,1) = CTRLCU = Sheets("Feuil2").Cells(1,1)

NOK :
Sheets("Feuil1").Cells(1,1) = G160 = Sheets("Feuil2").Cells(1,1), pas de lecture de l'instruction.

Existe-t-il une fonction qui déclare ce genre de "valeur" dans une cellule ?
Pouvez-vous m'aider ? Est ce que cela peut venir d'une écriture avec variable (pour le forum, j'ai souhaité faciliter le code pour une meilleure compréhension, mais en réalité j'utilise des variables pour les lignes et les colonnes ) ?

3 réponses

via55 Messages postés 14032 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 27 janvier 2023 2 548
28 mai 2019 à 22:58
Bonsoir

Il n'y a pas de raison si tes 2 cellules contiennent G160 ça doit matcher et l'instruction s’exécuter
Si ce n'est pas le cas c'est que les 2 écritures ne sont pas identiques (un espace invisible après une valeur par exemple)Impossible d'en dire plus sans connaître ton fichier réel
Poste un exemple de ton fichier avec sa macro sur mon-partage.fr, copies le lien crée et reviens le coller ici

Cdlmnt
Via

1
eriiic Messages postés 24494 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 29 janvier 2023 7 156
Modifié le 29 mai 2019 à 01:01
Bonjour,

met le code exact que tu utilises.
Car si c'est
Sheets("Feuil1").Cells(1,1) = G160 = Sheets("Feuil2").Cells(1,1) 
tel que, pas étonnant que tu aies un pb.
eric

En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
1
Berorn Messages postés 30 Date d'inscription jeudi 16 février 2017 Statut Membre Dernière intervention 5 août 2022
29 mai 2019 à 08:27
Bonjour,
Non eriiic ce n'est pas le code c'était pour montrer le défaut que j'avais écrit ça, désolé si c'était pas explicite.
En revanche j'ai résolu mon problème : j'ai juste réécrit ma liste à laquelle je comparais mon fichier principal, je n'avais pas de différence mais ça ne marchait pas. Je suppose que cela provienne du fait que ma liste provenait d'un copier-coller, j'avais vérifié le style de l'écriture et tout mais c'étais pareil. J'ai déjà eu des surprises avec les copier-coller.... Merci via55 de m'avoir mis sur la piste.

Merci de vos réponses !
0