Problème avec IF , ELSE IF et ELSE

Version imprimable

Bonjour les amis,

avec de l'aide j'ai pu programmer une fonction presque parfaite, j'en suis arrivé qu'à un moment le résultat n'est plus escompté car j'ai deux cas de figure...

cas 1 : la valeur "maVal" contient en fin de chaîne de caractères le caractère "," (par exemple "750,") et là je fais le code :

Code:

maVal2 = Left(maVal, Len(maVal) - 1)

cas 2 : la valeur "maVal" ne contient pas en fin de chaîne de caractères le caractère "," (par exemple "624" et la je fais le code :

Code:

maVal2 = Left(maVal, Len(maVal))

NB : la valeur "maVal" n'est jamais le même chiffre

et ensuite affiche la valeur "maVal2" sur la feuille "Analyse" cellule "K4"

j'ai essayé cela (voir ci dessous), mais ca ne fonctionne pas (VBA me fait une erreur sur le Else : IF)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 ' Test Dim pos1virg As Long 'InStr = donne la position du caractere "," pos1virg = InStr(maVal, ",") ' Test SI "," présent ou non + Calcul le nombre de caractères restant : Len(maVal) Dim maVal2 As String If pos1virg = 1 Then maVal2 = Left(maVal, Len(maVal) - 1) Else: If pos1virg = 0 Then maVal2 = Left(maVal, Len(maVal)) Else 'renseigne la cellule "N4" Set maFeuil = ThisWorkbook.Sheets("ANALYSE") maFeuil.Range("K4").Value = maVal2 End If End Sub
Pouvez vous m'aider s'il vous plait et me dire où j'ai fait ma "boulette" :)
Par avance merci et je vous souhaite une agréable journée :)

David

01/11/2019, 08h06
Philippe Tulliez

Bonjour,
Pourquoi utilises-tu la fonction Left dans le cas où la virgule n'est pas présente ?
Ne serait-ce pas plus simple ainsi

Code:

If pos1virg Then maval2 = Left(maVal, pos1virg - 1) Else maval2 = maVal

Merci philippe,

ca marche impeccablement,

Code:

1
2
3
4
5
6
7
8
9
10
    '   Test si la chaine restante contient "," ou non à la fin
        Dim pos1virg As Long
        'InStr = donne la position du caractere ","
        pos1virg = InStr(maVal, ",")
        ' si "," retire 1 caractère, sinon prend la valeur "maVal"
        If pos1virg Then maVal2 = Left(maVal, pos1virg - 1) Else maVal2 = maVal
 
        'renseigne la cellule "N4"
        Set maFeuil = ThisWorkbook.Sheets("ANALYSE")
        maFeuil.Range("K4").Value = maVal2

Bonjour

regarder ce que fait ceci :

Code:

1
2
3
4
valeur = "782,12"
MsgBox Val(Replace(valeur, ",", "."))
valeur = "782,"
MsgBox Val(Replace(valeur, ",", "."))