fonction si dans excel en vba Fermé

Question

Bonjour,
Je souhaiterais inclure dans mon code VBA ceci :
Si  d2 contient le mot "standalone" alors
afficher b2
si d2 contient le mot "%master" alors
afficher b2
si d2 contient le mot "Membre" alors 
prendre la dernière lettre de la chaine de caractère et 
afficher la case "Master %"la lettre en question"%


Je ne sais pas si c'est bien clair, n'ésitez pas à me poser des questions

tobec · Answer

salut,

ca doit donner quelque chose comme :

if worksheets(numero_feuille).range("D2").value="standalone" then

msgbox(worksheets(numero_feuille).range("B2").value)

end if

je crois que c'est ca^^

par contre je n'ai pas exactement compris ce que tu veux pour la derniere condition.

Bidouilleu_R · Answer

Bonjour, 
Je souhaiterais inclure dans mon code VBA ceci : 
Si d2 contient le mot "standalone" alors 
afficher b2 
si d2 contient le mot "%master" alors 
afficher b2 
si d2 contient le mot "Membre" alors 
prendre la dernière lettre de la chaine de caractère et 
afficher la case "Master %"la lettre en question"% 
' je ne comprends pas l'epression "afficher la case "Master %"
je placerai le contenu de d2 dans une variable pour simplifier l'écriture

Sub test()
y = Range("d2").Value
X = InStr(1, y, "standalone")

If InStr(1, X, "standalone") > 0 Then
    'on affiche b2
    s = MsgBox(b2)
End If

If InStr(1, X, "%master") > 0 Then
    'on affiche b2
    s = MsgBox(b2)
End If

If InStr(1, X, "Membre") > 0 Then
    'on prend la dernière lettre de la chaine
    derniere_lettre = Right(X, 1)
    
    s = MsgBox(b2 & " la dernière lettre est : " & dernier_lettre)
End If


End Sub

Bidouilleu_R · Answer

le caractère % est vu comme une référence à une variable dans certains environnment comme windows.

par exemple %path% te renvoie le chemin sous windows ou sous dos 
mais pour vba il faut faire référence à des variables system.
A+

Fonction si dans excel en vba

3 réponses

Discussions similaires