Discussion :

[CLion]

Bonjour

j'ai vu la fonction formula et je voulu faire ça est ce que c'est possible ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Range("B3").Formula = "=SI(CNUM(DROITE(B3;NBCAR(B3)-3))>3;'le premier';'le dernier;')"

=SI(CNUM(DROITE(B3;NBCAR(B3)-3))>3;"le premier";"le dernier;")
marche bien dans une cellule excel mais pas dans les macros :/

[Duddy]

Bonjour le forum,

Le fonctionnement des macros est différent de la feuille de calcul.

Tu prends des infos sur la feuille, tu traites ces infos et tu rends un résultat:

Dans ton cas tu peux avoir cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If CDbl(Right(Cells(3, 2), Len(Cells(3, 2)) - 3)) > 3 Then
    MsgBox "Le Premier"
Else
    MsgBox "Le Dernier"
End If

ou aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If CDbl(Right(Range("B3"), Len(Range("B3")) - 3)) > 3 Then
    MsgBox "Le Premier"
Else
    MsgBox "Le Dernier"
End If

[Theze]

Bonjour,
Tout d'abords, si tu utilise en VBA des formules Excel en Français, il te faut l'indiquer au VBE avec "FormulaLocal", deuxièmement, dans ta formule tu crée une référence circulaire (B3 étant dans la formule et c'est elle aussi qui reçoit la formule), troisièmement, dans ta formule, si tu entre des mots entre guillements, il te faut alors les doubler. Teste ce qui suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("B5").FormulaLocal = "=SI(CNUM(DROITE(B3;NBCAR(B3)-3))>3;""le premier"";""le dernier"")"

Hervé.