Discussion :

[Phil333250]

Bonjour à toutes et tous,

Je cherche à écrire une formule dans une cellule.
Ce code fonctionne.

Code :

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

1
2
DerCell = Cells(Rows.Count, "E").End(xlUp).Row
Cells(DerCell, "E").FormulaR1C1 = "=Today()"

Mais celui-ci ne fonctionne pas. Message Erreur d'exécution 1004

Code :

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

1
2
3
DerCell = Cells(Rows.Count, "H").End(xlUp).Row 'Cherche la dernière cellule remplie de la colonne Nature
'Décale de 1 en dessous => Cells(DerCell + 1 et ecrit la formule => FormulaR1C1
Cells(DerCell + 1, "H").FormulaR1C1 = "=RECHERCHEV(F25;Tab_Ch_Rev_Var[[#Tout];[Opérations]:[Mode_Rgt]];3;FAUX)"

La formule =RECHERCHEV(F25;Tab_Ch_Rev_Var[[#Tout];[Opérations]:[Mode_Rgt]];3;FAUX) fonctionne quand je la met directement dans une cellule.
Pour l'instant la cellule recherchée F25 est en dur mais je la mettrai en automatique.

La colonne [Opérations] doit être renseignée grâce à une liste déroulante présente dans un formulaire.
J'ai interpelé le forum à ce propos https://www.developpez.net/forums/d2...ulante-autres/

Ma demande dans ce post vient du fait que je n'arrive pas à le faire dans le formulaire, c'est à dire lancer une recherche en fonction de l'élément sélectionné dans la liste déroulante.

Merci pour votre aide.

Philippe

[Philippe Tulliez]

Bonjour,
Les fonctions utilisées dans la chaîne de caractères à passer à FormulaR1C1 doivent être en anglais.
Pour ne pas vous tromper, il suffit d'écrire la formule dans une cellule quelconque (par exemple N7) et d'ensuite utiliser la ligne de code ci-dessous dans la fenêtre d'exécution de l'éditeur VBA

Code :

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

? range("N7").Formula2R1C1

La formule en cellule N7

Code :

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

=RECHERCHEX(M7;Tableau_Q_Train_Driver_2_Excel[N° Licence];Tableau_Q_Train_Driver_2_Excel[Nom];"Pas trouvé")

Le résultat renvoyé dans la fenêtre d'exécution

Code :

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

=XLOOKUP(RC[-1],Tableau_Q_Train_Driver_2_Excel[N° Licence],Tableau_Q_Train_Driver_2_Excel[Nom],"Pas trouvé")

[Phil333250]

Bonjour Philippe Tulliez,

Merci pour votre réponse.
J'ai copié / collé le premier code que vous m'avez donné.

Le ? s'est transformé en Print
Donc le code que j'ai est le suivant :

Code :

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

Print range("H1").Formula2R1C1

En H1 j'ai mis ma formule =RECHERCHEV(F25;Tab_Ch_Rev_Var[[#Tout];[Opérations]:[Mode_Rgt]];3;FAUX)

Cela ne fonctionne pas. => Message : Erreur d'exécution 438 Propriété ou méthode non gérée
Et effectivement Print n'est pas répertorié dans les propriétés/méthodes. Il n'y a que PrintForm.

Pouvez vous m'expliquer ce qu'il se passe.
Merci
Philippe

[Philippe Tulliez]

Bonjour,

Le ? s'est transformé en Print
Donc le code que j'ai est le suivant :

J'ai bien indiqué d'écrire la ligne de code dans la fenêtre d'exécution et pas dans une procédure.
Pour afficher cette fenêtre d'exécution, vous pouvez utiliser le raccourci clavier Ctrl + G ou sélectionner cette fenêtre dans le menu [Affichage]

[Phil333250]

Bonjour Philippe Tulliez,

Merci pour votre réponse.

Je viens de comprendre que c'est un traducteur de formule que vous me proposiez.
Je ne connaissait pas cette fonctionnalité.

Bonne fin de journée

Philippe