Discussion :

[r.morel]

Bonjour à tous

Actuellement j'insère cette formule :

Code :

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

=STXT(D12;1;SI(SIERREUR(CHERCHE(" ";D12;1)-1;"Erreur")="Erreur";NBCAR(D12);CHERCHE(" ";D12;1)-1))

Par le biais d'une macro :

Code :

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

1
2
ActiveCell.FormulaR1C1 = _
        "=MID(RC[-2],1,IF(IFERROR(SEARCH("" "",RC[-2],1)-1,""Erreur"")=""Erreur"",LEN(RC[-2]),SEARCH("" "",RC[-2],1)-1))"

J'essaye de comprendre comment ne plus insérer la formule mais vers "la fonction" dans la macro.
J'ai donc créer une p'tite macro de test :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim Valeure_reference As String
Dim Vz As Integer
Vz = 12
 
Valeure_reference = mid(cells(vz, 4),1, if(IfError(Search(" ", Cells(Vz, 4), 1) - 1, "Error") = "Error", len(cells(vz, 4)), Search(" ", Cells(Vz, 4), 1) - 1))
 
MsgBox Valeure_reference
 
End Sub

Cependant elle ne compile pas :

"Erreur de compilation : Erreur de syntaxe"

Merci par avance

[parmi]

Bonjour,

Essaie comme ceci

Code :

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

Valeure_reference = "mid(" & Cells(Vz, 4) & ",1, if(IfError(Search("" "", " & Cells(Vz, 4) & ", 1) - 1, ""Error"") = ""Error"", len(" & Cells(Vz, 4) & "), Search("" "", " & Cells(Vz, 4) & ", 1) - 1))"

[r.morel]

Bonjour,
Merci pour votre réponse.

Lorsque j'essaye le code il me renvoie :


Cordialement.

[parmi]

Si tu veux le résultat de la formule, affecte celle-ci à une cellule

Code :

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

ActiveCell.Formula = "mid(" & Cells(Vz, 4) & ",1, if(IfError(Search("" "", " & Cells(Vz, 4) & ", 1) - 1, ""Error"") = ""Error"", len(" & Cells(Vz, 4) & "), Search("" "", " & Cells(Vz, 4) & ", 1) - 1))"

Et change ActiveCell selon le besoin

Code :

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

Range("A1").Formula = "mid(" & Cells(Vz, 4) & ",1, if(IfError(Search("" "", " & Cells(Vz, 4) & ", 1) - 1, ""Error"") = ""Error"", len(" & Cells(Vz, 4) & "), Search("" "", " & Cells(Vz, 4) & ", 1) - 1))"

[r.morel]

Cela rempli la cellule avec le texte présent dans la MsgBox évoquée lors de mon message précédent.

En fait je cherche si il y a un moyen de "faire le calcul" dans la macro et de renvoyer le résultat dans la cellule.

Je vous remercie par avance.

[pc75]

Bonjour,

Tu peux expliquer précisément ce que fait ta formule ?