Utilisation de CNum

Bonjour

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

Code:

---

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 :/

Bonjour le forum, :D

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:

---

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:

---

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

---

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:

---

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

---

Hervé.