Utilisation des *, ?, + en VBRésolu

Question

Bonjour &#224; tous, j'ai, je pense un probl&#232;me de syntaxe.

Je souhaite simplement rep&#233;rer des valeurs se terminant par 7 soit 0.7,1.7,2.7, ... dans une colonne excel
Voil&#224; le code que j'ai ecrit et qui a priori ne marche pas:

 VarA = ActiveSheet.Columns("A:A").Value 
     If (j = 1) Then
        Range("A" & j).Value = "0.0"
     ElseIf (VarA(j - 1, 1) = "*,7") Then
        Range("A" & j).Value = VarA(j - 1, 1) + 0.3
     Else
        Range("A" & j).Value = VarA(j - 1, 1) + 0.1
     End If

Merci d'avance pour ceux qui peuvent me dire ce qui ne va pas!

cs_Willi · Accepted Answer

Bonjour, On parcourt toute les lignes de ta colonnes jusqu'a ce qu'on ne trouve plus de valeur. Ensuite on regarde avec Right() si le dernier caractère est un 7, si oui affichage d'un message Dim i as integer i=0 While (Range("A" & i) <> "") if Right$(CStr(Range("A" & i)),1) = "7" then msgbox "Valeur se terminant par 7 trouvé à la ligne " & i & " dans la colonne A" end if i=i+1 Wend Ou While (Range("A" & i) <> "") if CStr(Range("A" & i)) like "*.7" then 'ou "*,7" sa dépend si tu uitlises un . ou une , msgbox "Valeur se terminant par 7 trouvé à la ligne " & i & " dans la colonne A" end if i=i+1 Wend

tortuegenie · Answer

Merci mais le probleme c'est que "*,7" n'est pas lu Si je fais (VarA(j - 1, 1)) "0,7") ou (VarA(j - 1, 1)) "1,7") ca marche
Mais quand je fais (VarA(j - 1, 1)) = "*,7") cela ne marche plus alors je ne comprends pas!!!

Pourrais-tu m'expliquer?

cs_etniqs · Answer

"like" pas "="  !!

co&#239;to ergo sum

cs_Willi · Answer

C'est normal que cela ne marche pas.
Regarde la 1iere m&#233;thode que j'ai donn&#233;. J'utilise Right pour regarder quel est le dernier caract&#232;re. Si c'est un 7 c'est ok.
Si tu veux v&#233;rifier si c'est de la forme "*,7" modifie mon Right comme ceci: Right$(Cstr(Range("A" & i)),2) = ",7"
Sinon la seconde m&#233;thode doit marcher avec le like "*,7".

>Merci mais le probleme c'est que "*,7" n'est pas lu >Si je fais (VarA(j - 1, 1)) "0,7") ou (VarA(j - 1, 1)) "1,7") ca marche
>Mais quand je fais (VarA(j - 1, 1)) = "*,7") cela ne marche plus alors je ne comprends pas!!!

cs_Willi · Answer

Pour info le mot cl&#233; Like v&#233;rifie si ta chaine que tu tests correspond au mod&#232;le d'expression "*,7".

Utilisation des *, ?, + en VB

5 réponses

Discussions similaires