Bug de ma macro sur une ligne(résolu)

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,
J'ai fait une macro avec les chiffres en format "texte" pour éviter les doublons dans un tableau hors il y a une ligne pourtant correct ( If .Cells(9, k) = .Cells(i, j) Then)qui n'est pas pris en compte !
Pouvez-vous m'expliquer !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Option Explicit
 
Sub test()
Dim i As Long, j As Long, k As Long
With Sheets("Feuil1")
Range("A9:I9") = ""
 For i = 1 To 6
  For j = 1 To 3
  .Cells(i, j).NumberFormat = "@"
   For k = 1 To 9
   .Cells(9, k).NumberFormat = "@"
   If .Cells(9, k) = .Cells(i, j) Then ' n'est pas pris en compte
   Exit For
   ElseIf .Cells(9, k) <> .Cells(i, j) And .Cells(9, k) = "" Then
   .Cells(9, k) = .Cells(i, j)
   Exit For
   End If
   Next k
  Next j
 Next i
End With
End Sub

Bonne soirée

27/11/2017, 18h46
Menhir

Il suffit d'une différence minime, parfois invisible comme un espace en début ou en fin de chaine, pour que VBA considère qu'il n'y a pas d'égalité.
Vérifie le contenu de tes cellules en faisant une comparaison avec Excel avec comme formule un simple "=" entre deux références de cellules que tu penses identiques et regarde su ça répond VRAI ou FAUX.
27/11/2017, 19h08
jbchb

1 pièce(s) jointe(s)

Citation:

Envoyé par Menhir

Il suffit d'une différence minime, parfois invisible comme un espace en début ou en fin de chaine, pour que VBA considère qu'il n'y a pas d'égalité.
Vérifie le contenu de tes cellules en faisant une comparaison avec Excel avec comme formule un simple "=" entre deux références de cellules que tu penses identiques et regarde su ça répond VRAI ou FAUX.

En effet, les références de cellules affichent " FAUX " pour la cellule concernée !
Comment peut-on y remédier !
Pièce jointe 330577
27/11/2017, 19h48
unparia

Bonjour
Je remarque que tu compares facilement du texte (ce qu'est visiblement le contenu de B9) et du numérique (ce qu'est visiblement le contenu de C2).
Ce ne sont pas là de bonnes habitudes ....

Citation:

Envoyé par unparia

Bonjour
Je remarque que tu compares facilement du texte (ce qu'est visiblement le contenu de B9) et du numérique (ce qu'est visiblement le contenu de C2).
Ce ne sont pas là de bonnes habitudes ....

Le problème est résolu ainsi !
Je pense que le format Texte était nécessaire pour cette comparaison !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Option Explicit Sub test() Dim i As Long, j As Long, k As Long With Sheets("Feuil1") Range("A9:I9") = "" For i = 1 To 6 For j = 1 To 3 .Cells(i, j).NumberFormat = "@" For k = 1 To 9 .Cells(9, k).NumberFormat = "@" If .Cells(9, k).Text = .Cells(i, j).Text Then Exit For ElseIf .Cells(9, k).Text <> .Cells(i, j) And .Cells(9, k).Text = "" Then .Cells(9, k) = .Cells(i, j) Exit For End If Next k Next j Next i End With End Sub
Bonne soirée