Discussion :

[poytim]

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 :

{=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 :

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

1
2
3
4
5
Sub Macro1()
 
ActiveCell.FormulaArray = ActiveCell.FormulaArray & " &" & """" & " - " & CommandBars.ActionControl.Text & """"
 
End Sub

Résultat :

{=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

[mercatog]

Bonjour

Code :

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

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

[poytim]

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 :

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

ActiveCell.FormulaArray = Frml

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

Merci encore !

Tim

[mercatog]

Bonjour

Petite coquille

Code :

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

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

[poytim]

C'est GÉNIAL !

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

Tim