Utiliser une chaine de caractères dans une cellule excel comme base d'une conditionnelle VBA

Version imprimable

14/12/2013, 14h42
deedoo12

Utiliser une chaine de caractères dans une cellule excel comme base d'une conditionnelle VBA

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!
14/12/2013, 14h58
nibledispo

utiliser une chaine

Bonjour,

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

Cordialement,
14/12/2013, 14h58
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.

1 pièce(s) jointe(s)

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

Code:

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

utiliser une chaine

re....,

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

Code:

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,

14/12/2013, 18h10
deedoo12

Trouvé

La honte, je viens de trouver le problème! :oops:
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!