Modifier formule matriciel dans une macro VBA

Bonjour,
J'ajoute une information provenant d'une liste à une formule matriciel à l'aide d'une macro

Voici l'exemple d'une formule matricielle dans un calendrier :

Citation:

---

{=SIERREUR(INDEX(ETABEVENEMENT;PETITE.VALEUR(SI(EDATE='Horaire (2)'!L24;LIGNE(EDATE)+1);LIGNE(ÉVÉNEMENTS!$3:$3))-DébutLigneTableau;4);"")}

---

Résultat : Collecte - Noël des enfants

À l'aide d'un clic droit sur la cellule, j'ai une liste déroulante d'une barre de menue personnalisé avec des partenaires provenant d'une autre table, et quand j'en choisis un, ça l'ajoute à la suite de ma formule à l'aide d'une macro :

Code:

---

1 2 3 4 5

Sub Macro1()   ActiveCell.FormulaArray = ActiveCell.FormulaArray & " &" & """" & " - " & CommandBars.ActionControl.Text & """"   End Sub

---

Résultat :

Citation:

---

{=SIERREUR(INDEX(ETABEVENEMENT;PETITE.VALEUR(SI(EDATE='Horaire (2)'!F31;LIGNE(EDATE)+1);LIGNE(ÉVÉNEMENTS!$1:$1))-DébutLigneTableau;4);"") &" - PCa"}

---

Ce qui donne :

Collecte - Noël des enfants - PCa

J'aimerais maintenant pouvoir modifier ma macro afin qu'il recherche s'il y a déjà de l'information, et si oui, la remplacer par la nouvelle information.
Je voyais quelque chose comme :
recherche ce qui est après " &", supprime et remplace par la nouvelle valeur.

C'est là que je n'y arrive à rien.

Pouvez-vous m'aider ?

Merci infiniment

Tim

Bonjour

Code:

---

1 2 3 4 5 6 7 8

Dim Frml As String   Frml = ActiveCell.FormulaArray   If InStr(Frml, "&") Then Frml = Left(Frml, InStrRev(Frml, "&"))   Frml = Frml & """ - " & CommandBars.ActionControl.Text & """" ActiveCell.FormulaArray = Frml

---

Bonjour Mercatog,

j'en profite pour te remercier, car depuis des années que j'utilise développez dans l'ombre, tu est à la base de nombreuses solution que j'ai trouvé.

Merci aussi pour ton code rapide, comme toujours. Voici le résultat :

Si je veux modifier un champ contenant déjà un partenaire, il le modifie bien (good job !!).
Si par contre je veux en modifier un que je n'ai pas mis de partenaire, il me lance une erreur d'exécution '1004' :
Impossible de définir la propriété FormulaArray de la classe Range.

Ce qui me pointe vers :

Code:

---

ActiveCell.FormulaArray = Frml

---

J'ai essayé toute sorte de patente, mais j'arrive jamais à avoir un résultat fonctionnel.

Merci encore !

Tim

Bonjour

Petite coquille

Code:

---

1 2 3 4 5 6 7 8

Dim Frml As String   Frml = ActiveCell.FormulaArray   If InStr(Frml, "&") Then Frml = Left(Frml, InStrRev(Frml, "&") - 1)   Frml = Frml & "&"" - " & CommandBars.ActionControl.Text & """" ActiveCell.FormulaArray = Frml

---

C'est GÉNIAL !

Merci Mercator !
Que ton code puisse servir à d'autre :)

Tim