Cellule non considérée comme identique

Résolu/Fermé
mace.arnaud Messages postés 2 Date d'inscription lundi 4 mars 2013 Statut Membre Dernière intervention 4 mars 2013 - 4 mars 2013 à 14:37
mace.arnaud Messages postés 2 Date d'inscription lundi 4 mars 2013 Statut Membre Dernière intervention 4 mars 2013 - 4 mars 2013 à 16:24
Bonjour,

Je viens vers car je ne sais plus quoi faire...
Je dispose de données sous Excel, je veut juste comparer deux cellules entre elles.
Ma condition est qu'il faut qu'elles soient identiques.

Mon problème est que quand mes deux cellules sont bien identique ma condition ne se valide pas alors qu'elles sont bien identique !!! J'ai vérifier en posant des espions sur mes deux cellules et les valeurs sont exactement les mêmes !!
J'ai pourtant sélectionné tout mon tableau excel et j'ai mis comme format de cellule "Texte" a tout mon tableau.

Je vous joint l'extrait de mon code


Sub proprietaire()

'déclaration de l'objet x
Dim x, y As Long
Dim Prop1, Prop2, Siren, Datenaissance, Lieu, Sigle As String


'1er boucle (Principale) sur le nombre de lignes Excel

'x est le numéro de la première ligne du classeur
x = 2
y2 = 2

While x <> 923

'Stockage des informations
Prop1 = Excel.Cells(x, 7)
Adresse = Excel.Cells(x, 13)
Siren = Excel.Cells(x, 8)
Datenaissance = Excel.Cells(x, 9)
Lieu = Excel.Cells(x, 10)
Sigle = Excel.Cells(x, 11)

'Deuxième boucle permettant de rechercher l'éxistance du propriétaire courant dans la liste

'y est le numéro de la première ligne de la liste des propriétaire
y = 2
Z = 0

While Excel.Cells(y, 23) <> ""


Prop2 = Excel.Cells(y, 23)

'Si Z=1 Alors le propriétaire courant n'est pas présent dans la liste
If Prop1 = Prop2 Then
Z = 1
Else
End If

y = y + 1
Wend


If Z = 0 Then
Excel.Cells(y2, 23) = Prop1
Excel.Cells(y2, 24) = Adresse
Excel.Cells(y2, 25) = Siren
Excel.Cells(y2, 26) = Datenaissance
Excel.Cells(y2, 27) = Lieu
Excel.Cells(y2, 28) = Sigle
y2 = y2 + 1
End If




En espérant que cela est tout bête, et quelqu'un pourra m'aider ;)

D'avance merci énormément !

1 réponse

mace.arnaud Messages postés 2 Date d'inscription lundi 4 mars 2013 Statut Membre Dernière intervention 4 mars 2013
4 mars 2013 à 16:24
Autant pour moi l'erreur venait du fait que certaine cellule possédaient des espaces à la fin du mots...
0