formule vba avec cells

Bonjour

Aprés plusieurs tentatives, je me résous a venir vers vous :lol:
J'essaie d'écrire une formule vba avec des variables et la fonction cells

Les variables NumCol_JourFlashage et NumCol_timestamp sont bien déclarées avec comme valeur pour
NumCol_JourFlashage =2
NumCol_timestamp= 7

C'est la formule qui STXT pour recuperer une chaine de caratère

Code:

---

1 2 3 4 5 6

With ActiveWorkbook.Worksheets("feuil1")   Cells(2, NumCol_JourFlashage).Formula = "=Mid(Cells(2, NumCol_timestamp), 1, 10)     End With

---

Lorsque j'execute cette macro
Dans la cellule B2 qui correspond a la cellule Cells(2, NumCol_JourFlashage) j'ai ceci

Code:

---

=STXT(@Cells(2; NumCol_timestamp); 1; 10)

---

Merci de votre aide

Bonjour

STXT est la fonction Excel

qui équivaut a la fonction MID en VBA.

Je crois que ton résultat est normal.

Bonne Journée

Par contre en faisant :

Code:

---

Cells(2, NumCol_JourFlashage).Value = Mid(Cells(2, NumCol_timestamp), 1, 10)

---

Tu devrais trouver ta valeur dans la cellule.

Hello,

Mijd est bien interprété et transformé en STXT, mais cells n'a pas d'équivalent il faut donc changer la formule par le résultat de Cells(2, NumCol_timestamp) afin de le mettre dans la chaine

Bonjour,
La propriété Formula de l'objet Range attend la formule sous forme d'une chaine de caractères et en anglais
Si j'ai un excel français et que je veux écrire dans la cellule B3 de la feuille active, la fonction =STXT(B2;1;10) avec VBA, je devrai écrire

Code:

---

Cells(3, 2).formula = "=MID(B2,1,10)"

---

En supposant que le numéro de la ligne soit une variable, par exemple r, je devrai écrire

Code:

---

Cells(3, 2).Formula = "=MID(B" & r & ",1,10)"

---