Discussion :

[deedoo12]

Bonjour,

Je voudrais baser une instruction conditionnelle sur une chaine de caractères à récupérer dans excel (qui est soit payé, soit acompte, soit à payer à la réception).

Je ne pense pas que ce soit la récupération qui pose problème. Je définis que payement est une chaine de caractères et ensuite = Sheets().Cells().Value.

Par contre, au niveau du if, c'est toujours le else qui est exécuté. C'est là que doit se trouver le problème. J'ai mis if payement = "payé" ou else if payement = "à payer à la réception" then... instruction.

Avez-vous une idée de ce qui ne va pas?

Merci beaucoup!

[nibledispo]

Bonjour,

Difficile de se faire une idée. Merci de joindre le code ou l'extrait de code pertinent entre balises (#).

Cordialement,

[Philippe Tulliez]

Bonjour,
Sans visualiser le code complet (au moins toute l'instruction If Then Else), il est difficile de répondre.
Toutefois une erreur fréquente lors d'une comparaison avec des chaînes de caractères peut se produire soit avec une casse différente entre les éléments comparés soit avec des espaces avant et après la chaîne de caractères dans un de ceux-ci.

[deedoo12]

Voici le code (et un printscreen des cases excel si ça sert à quelque chose) :

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
Sub reste_a_payer()
 
Dim ligne As Integer
Dim Payement As String
 
ligne = 2
 
    While ligne <= 21
 
    Payement = Sheets("Feuilles de route").Cells(ligne, 10).Value
 
        If Payement = "Payé" Then
            Sheets("Feuilles de route").Cells(ligne, 13).Value = "Solde apuré"
 
        ElseIf Payement = "A la réception" Then
            Sheets("Feuilles de route").Cells(ligne, 13).Value = "Doit encore " & Cells(ligne, 10).Value
 
        Else
            Sheets("Feuilles de route").Cells(ligne, 13).Value = "Doit encore " & (Cells(ligne, 10).Value) * 0.8
 
        End If
 
    ligne = ligne + 1
 
    Wend
 
End Sub

[nibledispo]

re....,

ce n'est peut-être pas optimum comme écriture mais cela semble fonctionner au vu de mes essais

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
 
Sub reste_a_payer()
 
Dim ligne As Integer
Dim Payement As Range
 
ligne = 2
 
While ligne <= 21
      Set Payement = Sheets("Feuil2").Cells(ligne, 10)
        With Payement
            If .Value = "Payé" Then
                Cells(ligne, 13) = "Solde apuré"
            ElseIf .Value = "A la réception" Then
                Cells(ligne, 13) = "Doit encore " & Cells(ligne, 10).Value
            Else
                Cells(ligne, 13) = "Doit encore " & (Cells(ligne, 10).Value) ' * 0.8
            End If
        End With
    ligne = ligne + 1
Wend
End Sub

Cordialement,

[deedoo12]

La honte, je viens de trouver le problème!
J'avais mal compté le numéro de la colonne...

Bon, on aura revu la manière de faire référence à des strings...

Merci à tous les deux!