Discussion :

[facteur]

Bonjour

Aprés plusieurs tentatives, je me résous a venir vers vous
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 :

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

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 :

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

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

Merci de votre aide

[a_diard]

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 :

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

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

Tu devrais trouver ta valeur dans la cellule.

[Nain porte koi]

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

[Philippe Tulliez]

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 :

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

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 :

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

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