Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Transcrire formule en vba

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

rudymagny

XLDnaute Occasionnel
Bonjour à tous,
J'avais ouvert un fil dans la mauvaise section https://www.excel-downloads.com/threads/extraire-donnees-chaine-de-caractere.195895/
Je remercie JDCL, Modeste, Victor21, Staple1600 et modeste geedee pour leurs réponses ;-)

D'ailleurs la solution suivante sous forme de formule étant concluante :
Code: 
=SIERREUR(GAUCHE(H2;3)&DROITE(H2;NBCAR(H2)-3)*1;"")

Cependant je voudrais réaliser la même chose sous forme VBA dans cet esprit :
Code: 
L3 = Sheets("Feuil1").Range("E65536").End(xlUp).Row
        For i = 2 To L3
            ancien_ref = Cells(i, 5).Value
            nouvelle_ref = SIESTNA(GAUCHE(ancien_ref;3)&DROITE(ancien_ref;NBCAR(ancien_ref)-3)*1;"")
            cells(i,5).value=nouvelle_ref
            MsgBox nouvelle_ref
        Next i

Mais je n'arrive pas à faire fonctionner le code ;-(

Comment puis je transcrire la formule d'origine sous forme VBA ?

Merci d'avance @ vous
 
Trier par date Trier par votes
Re : Transcrire formule en vba

Je complète mon message en clarifiant le résultat, je ne veux pas insérer la formule dans une cellule mais remplacé la valeur de la cellule par le résultat de cette formule.

En utilisant l'enregistreur de macro voic le résultat
Code: 
        For i = 2 To L3
            ancien_ref = Cells(i, 5).Value
            'nouvelle_ref = SIERREUR(GAUCHE(L2;3)&DROITE(L2;NBCAR(L2)-3)*1;"")
            nouvelle_ref = "=IFERROR(LEFT(ancien_ref,3)&RIGHT(ancien_ref,LEN(ancien_ref)-3)*1,"""")"
            MsgBox nouvelle_ref
        Next i

Mais forcément ça m'insère la formule mais pas le résultat ...

Merci d'avance
 
Vote positif 0 Vote négatif
Re : Transcrire formule en vba

J'ai essayé ceci mais le résultat est vide

Code: 
        For i = 2 To L3
            ancien_ref = Cells(i, 5).Value
            'nouvelle_ref = SIERREUR(GAUCHE(L2;3)&DROITE(L2;NBCAR(L2)-3)*1;"-")
            nouvelle_ref = Evaluate("=IfError(Left(" & ancien_ref & ", 3) & Right(" & ancien_ref & ", Len(" & ancien_ref & ") - 3) * 1, """")")
            MsgBox nouvelle_ref
        Next i
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Transcrire formule en vba

Bon bah après avoir fais travailler mes doigts et accessoirement mon cerveau, j'ai trouvé l'équivalence :
Code: 
        'Suppression des 0 inutiles des références des tickets et avis
        For i = 2 To L3
            nouvelle_ref = Evaluate("=IfError(Left(E" & i & " , 3) & Right(E" & i & ", Len(E" & i & ") - 3) * 1, """")")
            MsgBox nouvelle_ref
        Next i

Bonne journée
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Résolu(e)
XL 2021 Transformer une formule en vba
2
Réponses
20
Affichages
1 K
kiki29
  • Suggestion Suggestion
Texte Définir les propriétés d'une cellule ou d'un Range (couleurs, fonte, ..., valeur) dans une formule
Réponses
0
Affichages
2 K
Dudu2
  • Question Question
Microsoft 365 Coder en vba une formule
2 3
Réponses
37
Affichages
3 K
Usine à gaz
  • Résolu(e)
Microsoft 365 traduire une formule en code vba
Réponses
3
Affichages
989
Usine à gaz
  • Question Question
XL 2013 VBA Problème d'insertion d'une formule dans une colonne avec mise en forme de tableau
Réponses
9
Affichages
1 K
Flown720
  • Résolu(e)
Microsoft 365 Transformer une formule excel en code vba
2 3
Réponses
31
Affichages
4 K
eric66430
  • Question Question
Microsoft 365 Simplification de code
Réponses
1
Affichages
1 K
GADENSEB
N
  • Résolu(e)
XL 2016 Lenteur à l'insertion de ligne en VBA
Réponses
5
Affichages
3 K
Nicocotte125
N
R
  • Question Question
Microsoft 365 Problème code VBA masquer ligne fonction onglet déroulant + TcD
Réponses
8
Affichages
1 K
reyjak
R
  • Question Question
Comptage des espaces en début de cellule en VBA
Réponses
5
Affichages
3 K
jeff1494
V
  • Question Question
Microsoft 365 Actualisation formule écrite via macro en liaison avec une BBD
Réponses
2
Affichages
2 K
vynmarius
V
A
  • Question Question
XL 2013 Table multiplication VBA
Réponses
6
Affichages
5 K
Anr1
A
  • Question Question
XL 2010 Alléger et rendre plus rapide un code VBA
Réponses
10
Affichages
2 K
thunder23
K
  • Question Question
XL 2013 concatenate dans un VBA avec separateur "-"
Réponses
5
Affichages
2 K
herve62
  • Question Question
XL 2013 Formule collée en tant que texte dans un code
Réponses
10
Affichages
1 K
luke3300
T
  • Question Question
conversion d'une formule en vba
Réponses
0
Affichages
630
tigeline001
T
G
  • Question Question
fonction personalisé en VBA avec formule CTXT
Réponses
11
Affichages
3 K
gonz19
G
  • Question Question
Convertion de formule en VBA
2
Réponses
15
Affichages
2 K
GADENSEB
V
  • Question Question
VBA Copier/coller cellules avec mise en forme
Réponses
3
Affichages
2 K
Marc L
M
  • Question Question
XL 2013 Optimisation de code pour une présentation
Réponses
5
Affichages
1 K
Merlin258413
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…