Bonjour à toutes et tous,
Je cherche à écrire une formule dans une cellule.
Ce code fonctionne.
Mais celui-ci ne fonctionne pas. Message Erreur d'exécution 1004
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()"
La formule =RECHERCHEV(F25;Tab_Ch_Rev_Var[[#Tout];[Opérations]:[Mode_Rgt]];3;FAUX) fonctionne quand je la met directement dans une cellule.
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)"
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
Partager