Discussion :

[cedric.stat]

Bonjour,

J'aimerais pouvoir résoudre le problème suivant. Mon code possède deux boucles t.
Lors de la première boucle, je veux utiliser l'opérateur ">" dans un IF (en gras rouge) et lors de la deuxième boucle, je veux utiliser l'opérateur "<" dans ce même IF (en gras rouge).
J'ai tenté le coup avec la variable signe. J'ai tenté d'autres manières mais je n'y parviens pas. Surement juste une question de synthaxe.
Je pourrais evidemment utiliser un autre If et répéter presque deux fois presque le même code mais ce n'est pas mon but.

Merci des solutions que vous pourrez m'apporter.

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Sub top5_evolution()
    
    For t = 1 To 2
    
    For p = 1 To 3
    
For w = 1 To 4

If w > 1 Then
    Range("K4").Value = "Product/Period"
    Dim ref As Integer
    ref = 26023 + w - 2 + 5 * (p - 1)
    Range("K5").Formula = "=CONCATENATE(LEFT(D" & ref & ",2*" & w & "-2),""?? *"")"
    Range("A3:I26014").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Range("K4:K5"), Unique:=False
    
    Range("K4").Value = ""
    Range("K5").Value = ""
    Cells(26025 + w - 2 + 5 * (p - 1), 4).CurrentRegion.Select
    
    selection.Offset(w - 1, 0).Select
    selection.Clear
End If

Set Table = Range("A1").CurrentRegion
Table.Offset(3, 0).Resize(Table.Rows.Count - 3, Table.Columns.Count - 0).Copy
Cells(26025 + w - 2 + 5 * (p - 1) + 15 * (t - 1), 4).PasteSpecial
selection.Replace What:="", Replacement:="0"

Dim lignes As Integer
lignes = selection.Rows.Count

    selection.End(xlToRight).Select
    selection.Offset(0, 1).Resize(lignes, 1).Select

   selection.FormulaR1C1 = "=RC[-3]-RC[-4]"
    
Dim chiffres As Single
chiffres = 0
Set tablecopy = Cells(26025 + w - 2 + 5 * (p - 1) + 15 * (t - 1), 4).CurrentRegion
Cells(26025 + w - 2 + 5 * (p - 1) + 15 * (t - 1), 13).Activate

Dim signe As String

If t = 1 Then
signe = ">"
Else
signe = "<"
End If

For i = 1 To tablecopy.Rows.Count
    If ActiveCell & signe & chiffres Then
        chiffres = ActiveCell.Value
        Cells(26024 + w - 2 + 5 * (p - 1) + 15 * (t - 1), 5).Value = chiffres
        ActiveCell.Offset(0, -9).Copy
        Cells(26024 + w - 2 + 5 * (p - 1) + 15 * (t - 1), 4).PasteSpecial
        ActiveCell.Offset(i, 9).Select
    End If

ActiveCell.Offset(1, 0).Select
Next i

Next w

Cells(26028 + 5 * (p - 1) + 15 * (t - 1), 4).CurrentRegion.Select

selection.Offset(4, 0).Resize(selection.Rows.Count - 4, selection.Columns.Count).Select
selection.Clear

Next p

Next t

End Sub

Erreur de type missmatch

[joe.levrai]

Bonjour,

je n'ai pas le temps de corriger ce point, mais travailler à coup de selects pour utiliser Activecell, c'est fortement déconseillé
il faut également prendre l'habitude d'indiquer la propriété utilisées, ici c'est donc Activecell.Value

voici une proposition illustrative de ce que pense être ton besoin, si j'ai bien compris
la fonction Evaluate me semble opportune

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub toto()
Dim signe As String, chiffre As Long, MaFormule As String
chiffre = 5
    For t = 1 To 2
        ' attention à ce que la cellule contienne bien un chiffre !!
        ' donc à sécuriser en amont
        MaFormule = ActiveCell.Value & IIf(t = 1, ">", "<") & chiffre
 
        If Evaluate(MaFormule) Then
            MsgBox "condition vérifiée : " & MaFormule
        End If
    Next t
End Sub

Mon commentaire au titre de la sécurisation est à prendre en compte également

[cedric.stat]

Merci mais ça ne fonctionne pas.

Oui la cellule comprend bien un chiffre.

Le code fonctionnait très bien avant l'introduction de la boucle t. Je me dis donc que l'erreur ne peut venir que de cette variable signe... D'ailleurs, il refonctionne très bien quand je remplace cette variable signe par un opérateur dans le IF. Plus d'erreur mismatch.

Ou d'une question de synthaxe...

J'ai introduit cette variable signe pour pouvoir réaliser un même traitement avec des conditions différentes selon que t=1 ou 2

[joe.levrai]

Merci mais ça ne fonctionne pas.
Oui la cellule comprend bien un chiffre.

[...]
Le code fonctionnait très bien avant l'introduction de la boucle t. Je me dis donc que l'erreur ne peut venir que de cette variable signe... D'ailleurs, il refonctionne très bien quand je remplace cette variable signe par un opérateur dans le IF. Plus d'erreur mismatch

erreur type mismatch (ou incompatibilité de type en français) est à relier à l'usage d'Evaluate dont j'ai parlé
tu cherches à "estimer" une chaine de caractère qui représente une formule.
On ne peut pas l'estimer, on doit "l'évaluer"...

Menhir contourne cet aspect en évitant l'évaluation, il effectue simplement le calcul en utilisant le réel opérateur sans évaluer une formule typée String

Et si tes cellules ne contiennent pas un nombre, tu obtiendras (même avec Evaluate) une erreur 13
Sécuriser son code n'est jamais du luxe, même si tu sais qu'il y aura 99,9999% de chance de n'avoir que des nombres.
Il faut toujours prévoir l'improbable

[Menhir]

Menhir contourne cet aspect en évitant l'évaluation, il effectue simplement le calcul en utilisant le réel opérateur sans évaluer une formule typée String

Pourquoi s'obstiner dans une voie incertaine et difficile quand il existe une solution fiable, rapide et simple ?

Sécuriser son code n'est jamais du luxe, même si tu sais qu'il y aura 99,9999% de chance de n'avoir que des nombres.
Il faut toujours prévoir l'improbable

Comme l'a énoncé Edward Murphy dans sa célèbre loi : "S'il existe au moins deux façons de faire quelque chose et qu'au moins l'une de ces façons peut entraîner une catastrophe, il se trouvera forcément quelqu'un quelque part pour emprunter cette voie".
C'est une loi que je garde toujours présente à l'esprit quand je développe une application (ou que je conçois n'importe quoi d'autre).

[cedric.stat]

Merci, ça fonctionne très bien.

[Menhir]

Première chose qui me hérisse le poil : on ne mets JAMAIS de déclaration de variable (Dim) à l'intérieur d'une boucle.
Pour coder proprement, on ne place pas des déclarations opportuniste à la volée dans le code, on les place en début de code.

Seconde chose : tu devrais faire des itérations de ligne (décalage vers la droite) plus propres : ça te permettrait (ainsi qu'à d'éventuels lecteurs) de lire plus facilement ton code.

Cela dit, ceci devrait résoudre ton problème.

Code :

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

1
2
3
4
5
6
7
8
Dim signe as Long    ' A placer en début de code
 
[...]
 
signe = IIf(t=1, 1, -1)
 
For i = 1 To tablecopy.Rows.Count
  If ActiveCell * signe > chiffres * signe Then

[Invité]

Bonjour,

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
Sub test()
A = 7: B = 6: Operateur = ">"
If PlusGrandPlusPetit(A, Operateur, B) Then MsgBox A & " " & Operateur & " " & B
 
 
A = 6: B = 6: Operateur = ">"
If PlusGrandPlusPetit(A, Operateur, B) Then MsgBox A & " " & Operateur & " " & B
 
 
A = 6: B = 6: Operateur = "<"
If PlusGrandPlusPetit(A, Operateur, B) Then MsgBox A & " " & Operateur & " " & B
 
 
A = 5: B = 6: Operateur = "<"
If PlusGrandPlusPetit(A, Operateur, B) Then MsgBox A & " " & Operateur & " " & B
End Sub
Function PlusGrandPlusPetit(A, Operateur, B) As Boolean
If (A - B) < 0 And Operateur = "<" Or (A - B) > 0 And Operateur = ">" Then PlusGrandPlusPetit = True
End Function

tu peux même rajouter un Or pour "="