Discussion :

[misterbo42]

Bonjour à tous,
Je suis étudiant, et j'aurai besoin d'un coup de main sur une macro Excel.
J'ai un fichier contenant des quantités (ancienne et nouvelles) et des références.
Les références sont de type 152-02893.

J'ai fait une macro qui recherche les mêmes références et qui doit les faire apparaitre en couleur.

voici le code :

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
Sub Macro()
 
Dim i As Integer
Dim ref1 As String
Dim ref2 As String
i = 2
Do Until Cells(i, 3) = ""
    ref1 = ThisWorkbook.Worksheets("Feuil1").Range("C" & CStr(i)).Value
    ref2 = ThisWorkbook.Worksheets("Feuil1").Range("C" & CStr(i + 1)).Value
    If ref1 = ref2 Then
    Cells(i, 6) = "double"
        Range(Cells(i, 1), Cells(i + 1, 5)).Select
        With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
        End With
    End If
i = i + 1
Loop
End Sub

J'ai fait des tests, la macro parcourt bien tout le tableau, ref1 et ref2 renvoient parfois les mêmes valeurs, mais la condition "ref1=ref2" n'est jamais vraie !

Auriez vous une idée qui pourrait m'aider ?

Cordialement.


EDIT:
Les références viennent de divers tableaux excels issus d'autre logiciels, lorsque je retape quelques références à la main, la macro fonctionne, mais sinon cela ne fonctionne pas !

[L'Albatros]

Bonjour,

1) Il faut éviter de bouclé avec des incrémentations de type "i = i + 1"
Remplace par une belle boucle:

Code :

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

1
2
3
For Compteur_Boucle = 1 To Range("A1").End(xlDown).Row
'Action(s)
Next Compteur_Boucle

Cela ne règlera pas le problème mais déjà cela sera plus propre

2) la fonction "CStr" renvoie une chaîne de caractères, donc l'appliquer à "i", qui est le compteur de la boucle, bin...
Le problème vient donc de:

Code :

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

1
2
ref1 = ThisWorkbook.Worksheets("Feuil1").Range("C" & CStr(i)).Value)
ref2 = ThisWorkbook.Worksheets("Feuil1").Range("C" & CStr(i + 1)).Value

A vue d'oeil, essaie ceci:

Code :

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

1
2
ref1 = CStr(ThisWorkbook.Worksheets("Feuil1").Range("C" & (i)).Value)
    ref2 = CStr(ThisWorkbook.Worksheets("Feuil1").Range("C" & (i + 1)).Value)

Si c'est bien cela que tu veux faire, au pire syntaxiquement c'est déjà plus correct

[misterbo42]

Merci pour ta réponse.
J'ai modifié la boucle avec ta solution.

Sinon, la fonction Cstr n'arrange malheureusement pas les choses...

Par contre, j'ai "découpé" mes références en plusieurs colonnes :
153-02893 est devenu 153 dans une colonne et 02893 dans une suivante.

Derrière j'ai concaténer à l'aide de :

Code :

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

=C273&"-"&D273

et en effectuant le test sur ces dernières valeurs que j'obtiens, et bien tout fonctionne !

Les références venaient d'un logiciel tiers, et XL ne devait pas aimer ceci.

Si quelqu'un a plus d'info sur cette erreur !

[L'Albatros]

Mhm non pas d'info.
Mais bon du moment que ça marche... soyons pragmatiques !

Merci de cliquer sur "résolu" !