Microsoft 365 Transformer une formule excel en code vba

[eric66430]

Bonjour,

J'ai une formule a modifier qui, une fois transformée via"? ActiveCell.Formula " me met un code erreur a la mise en place:

formule Excel : =MAJUSCULE((SI(ESTNUM(TROUVE("-";C4));STXT(C4;1;1)&STXT(C4;TROUVE("-";C4)+1;1);STXT(C4;1;2))&STXT(D4;1;1))&"-"&DROITE([@ID];3)&"-"&TEXTE(E4;"jjmmaaa-hhmm"))

code vba:

Private Sub LabelID_Fact_Click()
Feuil3.Select
Range("I2:I").Select
ActiveCell.FormulaR1C1 = UPPER((IF(ISNUMBER(FIND("-",C2:C)),MID(C2:C,1,1)&MID(C2:C,FIND("-",C2:C)+1,1),MID(C2:C,1,2))&MID(D2,1,1))&"-"&RIGHT([@ID],3)&"-"&TEXT(E2:E,"jjmmaaa-hhmm"))
End Sub

Ici le "IF" me met un code erreur "erreur de compilation" et "attendu expression"

Un truc que je pige pas, merci pour votre aide !

 

[herve62]

Bonjour
Ne peux tu pas mettre un bout du fichier ? (la partie concernée)
Sinon expliquer ce que tu veux faire et alors voir pour utiliser une autre méthode en vba pour arriver au même résultat

 

[TooFatBoy]

Bonjour,

Déjà, il te faut :
- doubler les guillemets,
- ne pas oublier le = au début de la formule,
- encadrer la formule par des guillemets (simples, cette fois).

 

[eric66430]

Bonjour,

Déjà, il te faut :
- doubler les guillemets,
- ne pas oublier le = au début de la formule,
- encadrer la formule par des guillemets (simples, cette fois).

plus precisement svp ? en exemple ?

 

[TooFatBoy]

Ça donnerait ça :

ActiveCell.FormulaR1C1 = "= UPPER((IF(ISNUMBER(FIND(""-"",C2:C)),MID(C2:C,1,1)&MID(C2:C,FIND(""-"",C2:C)+1,1),MID(C2:C,1,2))&MID(D2:D)1,1))&""-""&RIGHT([@ID],3)&""-""&TEXT(E2:E,""jjmmaaa-hhmm""))"

En tout cas, c'est à tester.


Mais, comme l'a dit Hervé, il est toujours préférable de fournir un petit bout de fichier.

 

[eric66430]

voici le fichier en question
dans la "base rdv" le "num fact" doit s'afficher de façon automatique via le formulaire.
A partir de la un autre formulaire sera creer pour entrer les infos necessaires.
L'idee sera aussi de lister plus tard le nombre de rdv avec les num fact avec lien par client ou d'ouvrir un dossier specifique evec les infos et les factures.

 

[TooFatBoy]

Dans ton code, juste avant l'affectation de ta formule, tu as une erreur :

Range("i2:i").Select

Et je pense que dans ta formule il y a une erreur de syntaxe à ce niveau :

STXT('D2':(D);1;1)

 

[eric66430]

Dans ton code, juste avant l'affectation de ta formule, tu as une erreur :

Range("i2:i").Select

Et je pense que dans ta formule il y a une erreur de syntaxe à ce niveau :

STXT('D2':(D);1;1)

* sur la feuil3, manuellement cela fonctionne. c'est la transposition en code vba que ça coince ...
* ('D2'D);1;1) pourquoi l'ecrire de cette manière?

 

[TooFatBoy]

Les deux syntaxes n'ont aucun sens.
À toi de corriger en fonction de ce que tu veux faire.

 

[eric66430]

Les deux syntaxes n'ont aucun sens.
À toi de corriger en fonction de ce que tu veux faire.

pas compris desolé

 

[TooFatBoy]

"i2:i"

n'a aucun sens.

'D2':(D)

a encore moins de sens.

Donc tu dois corriger cela.

 

[eric66430]

ok, j'enlève donc la sélection de la cellule "I"
mais pourquoi le choix de la colonne D en sélectionnant D2 a t il moins de sens que les sélections C2:C ?

Private Sub LabelID_Fact_Click()

Feuil3.Select

ActiveCell.FormulaR1C1 = "= UPPER((IF(ISNUMBER(FIND(""-"",C2:C)),MID(C2:C,1,1)&MID(C2:C,FIND(""-"",C2:C)+1,1),MID(C2:C,1,2))&MID(D2,1,1))&""-""&RIGHT([@ID],3)&""-""&TEXT(E2:E,""jjmmaaa-hhmm""))"

End Sub

c'est une formule qui marche traduite d'Excell par "? ActiveCell.Formula" en vba ...
suis pas très doué en vba, suis plutôt bricoleur lol, j'ai donc besoin de temps en temps qu'on m'explique un peu en excusant mon manque de savoir
Merci

 

[TooFatBoy]

mais pourquoi le choix de la colonne D en sélectionnant D2 a t il moins de sens que les sélections C2:C ?

Pour moi ça n'a doublement aucun sens, car d'une part je ne sais pas ce que représente 'D2' et d'autre part je ne sais pas non plus ce que représente (D) mais toi tu dois savoir, je suppose.

{edit][
Au temps pour moi pour "i2:i", la syntaxe doit en réalité être correcte.
Je crois que j'ai compris : c'est une syntaxe que je ne connais pas mais qui, je suppose, doit en fait vouloir dire "toute la colonne i à partir de la deuxième ligne".
Bref, tu l'as compris : j'y pige pas plus que toit et donc ne saurais t'aider. Désolé.
PS : je vois qu'il n'y a plus les apostrophe autour de D2. C'est déjà mieux.
[/edit]

 

[eric66430]

Pour moi ça n'a doublement aucun sens, car d'une part je ne sais pas ce que représente 'D2' et d'autre part je ne sais pas non plus ce que représente (D) mais toi tu dois savoir, je suppose.

le fichier est téléchargeable plus haut : D2 est la 2eme ligne de la colonne D sur la feuil3.
l'objectif est de créer un code facture a partir des 2 premières lettres du nom, de la première lettre du prénom, du mois de naissance et des 3 derniers chiffres de l'année de naissance et des 3 dernier chiffres du code client ... un peu plus d'humilité pour le débutant que je suis serait un peu plus agréable svp

 

[TooFatBoy]

un peu plus d'humilité pour le débutant que je suis serait un peu plus agréable svp

T'as pas dû piger ce que j'ai écrit !

J'ai dit que bien que j'ai essayé de t'aider, je n'y pigeais rien de plus que toi et que par conséquence je ne saurais te donner la bonne syntaxe et que j'en étais désolé.


Bye