Formule STXT en VBA

Bonjour,
J’essaie d’écrire la formule =STXT(G108,2,NBCAR(G108)) en VBA où la ligne est variable, pour enlever le 1er caractère de gauche du contenu d’autre cellule de la colonne G (par exemple, la cellule G108). La formule fonctionne lorsque je l’écris dans la cellule, mais je n’arrive pas à la faire fonctionner en VBA. Il n’y a pas de message d’erreur, mais la cellule reste vide ou affiche le numéro de la ligne. J’ai essayé toutes sortes de combinaisons et je ne sais plus quoi inventer pour que ça fonctionne. Voici ce que j’ai essayé jusqu’à présent :

Code:

---

1 2	Ligne = ActiveCell.Row ActiveCell.Offset(0, 5) = "=MID(G" & CStr(Ligne) & "," & CStr(2) & ",LEN(G" & CStr(Ligne) & ")"

---

Code:

---

1 2	Ligne = ActiveCell.Row ActiveCell.Offset(0, 5) = "=MID(G" & CStr(Ligne) & ",2,LEN(G" & CStr(Ligne) & ")"

---

Code:

---

1 2	Ligne = ActiveCell.Row ActiveCell.Offset(0, 5) = "=MID(G" & Ligne & ",2,LEN(G" & Ligne & ")"

---

Code:

---

1 2	Ligne = ActiveCell.Row ActiveCell.Offset(0, 5) = "=" & VBA.Mid("G" & CStr(Ligne), 2, Len("G" & CStr(Ligne)))

---

Aucun de ces codes n'a fonctionné. Quelqu'un a une autre idée?

Bonjour,
Par défaut si on ne précise pas la propriété, c'est la valeur de la cellule.
Pour mettre à jour la formule :

Code:

---

ActiveCell.Offset(0, 5).Formula = ...

---

Bonjour,

En utilisant Formula comme stipulé par arkham46, j'opterais pour la 3e formule.

Voici une réponse 100% VBA :

Code:

---

1 2 3 4 5 6 7

Dim Ligne As Double Dim Cellule As Range   Ligne = ActiveCell.Row Set Cellule = Cells(Ligne, 7)   ActiveCell.Offset(0, 5) = Right(CStr(Cellule.Value), Len(CStr(Cellule.Value)) - 1)

---

J'espère que ça répond à ta demande.

Bonsoir,

tu peux également utiliser mid directement car c'est un fonction VBA comme Len

Code:

---

1 2 3 4 5 6

' Syntaxe :Mid ( text, start_position, number_of_characters )   Dim Ligne, Lign2 As long Ligne =7 Lign2 =8 'par exemple Cells(Lign2, 7).value =Mid(cells(Ligne,7).value, 2,4) ' prend les 4 caractère en commençant par la deuxième

---

Merci à tous pour vos réponses. :) Bon point Arkham46. Je ne m'étais pas aperçu que je ne l'écrivais pas comme il faut, concentrant toutes mes efforts à l'autre côté de l'équation. Finalement, j'ai opté pour la solution de OBO29.