Discussion :

[jbchb]

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 :

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

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

[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.

[jbchb]

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 !

[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 ....

[jbchb]

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 :

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

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