Cellule non considérée comme identique
Résolu
mace.arnaud
Messages postés
2
Statut
Membre
-
mace.arnaud Messages postés 2 Statut Membre -
mace.arnaud Messages postés 2 Statut Membre -
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 !
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 !
A voir également:
- Cellule non considérée comme identique
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Diviser une cellule excel en deux horizontalement ✓ - Forum Excel
- Excel cellule choix multiple - Guide