XL pour MAC MFC + Fonction effacées si saisie manuelle

R@chid

XLDnaute Barbatruc

Supporter XLD

• 18 Novembre 2023

• #2

Bonjour,
Mais que souhaites-tu obtenir comme résultats pour autre 3, autre 4 et autre 5 ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 18 Novembre 2023

• #3

Bonjour Pilou, R@chid,

pilou010 à dit:

Par contre dans les cellules ou la MFC et la fonction ne s'appliquent pas, je saisie une valeur manuellement ce qui bien sûr écrase la fonction. Par contre si je suis amené à re modifier cette valeur, la fonction n'est plus là...

Cliquez pour agrandir...

Une fois la formule d'une cellule détruite par l'entrée d'une valeur, alors la formule est définitivement détruite. Et "la fonction n'est plus là"

Reste à savoir ce que vous attendiez comme comportement.
Une fois la formule détruite, vous entrez une valeur, ensuite vous voudriez que si cette cellule redevient vide la formule réapparaisse ?
Si c'est le cas cela peut être fait en VBA.

 

Vote positif 0 Vote négatif

pilou010

XLDnaute Occasionnel

• 18 Novembre 2023

• #4

Bonjour,
Effectivement j'ai mal exprimé ce que j'attends comme résusltat...
Donc, la donnée "Autre 3" en E6 avec une valeur que je saisi manuellement en F6 peut être modifier en Item 10 ou 20. C'est dans ce cas que j'aimerais que la formule "réapparaisse".
Au départ je pensais le faire avec une MFC mais cela n'est pas possible (ou je ne connais pas la formule).
Est-ce possible en VBA ???
Merci de la prise en compte de ma question
Bien à vous
Pilou

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Novembre 2023

• #5

Bonjour.
Ma proposition.

 

Pièces jointes

• WshChgPilou010.xlsm

  20.2 KB · Affichages: 6

Vote positif 0 Vote négatif

Solution

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 18 Novembre 2023

• #6

Re, bonjour Patrick,
Un peu à labour, mais comme c'est fait ...
Un essai en PJ avec ce que j'ai compris:
1- En Colonne2 il y a une formule.
2- On peut "détruire" une de ces formules en entrant en colonne2 une valeur.
3- Si on efface une de ces valeurs entrées à la main alors on ré installe la formule avec ce code :

VB:

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [Tableau2[Colonne2]]) Is Nothing Then
        Formule = "=IFERROR(IF(Tableau2[[#This Row],[Colonne1]]=""Item 20"",""Item2"",IF(Tableau2[[#This Row],[Colonne1]]=""Item 10"",""Item1"","""")),"""")"
        If Target = "" Then Range(Target.Address).Formula = Formule
    End If
Fin:
End Sub

Comme je n'ai que 2007 j'ai remplacé les IFS par plusieurs IF.

 

Pièces jointes

• Classeur1 (2).xlsm

  17.1 KB · Affichages: 5

Vote positif 0 Vote négatif

pilou010

XLDnaute Occasionnel

• 19 Novembre 2023

• #7

Bonsoir,
Vous êtes géniaux...
J'ai appliqué la solution de Dranreb et avoir avoir vu celle de Sylvanu je l'ai utiliser dans un autre tableau.
Merci encore de votre travail et de vos propositions.
Sans ce forum, mon tableur ne serait pas aussi élaborer...
Pilou

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Novembre 2023

• #8

Si ça vous intéresse, il serait aussi possible d'ajouter des mises en formes conditionnelles aux nouveaux éléments. Mais il me faudrait le nombre de couleurs différentes maximum que vous voudriez. Au delà de 8 il peut devenir difficile de les distinguer.

 

Vote positif 0 Vote négatif

pilou010

XLDnaute Occasionnel

• 20 Novembre 2023

• #9

Dranreb à dit:

Si ça vous intéresse, il serait aussi possible d'ajouter des mises en formes conditionnelles aux nouveaux éléments. Mais il me faudrait le nombre de couleurs différentes maximum que vous voudriez. Au delà de 8 il peut devenir difficile de les distinguer.

Cliquez pour agrandir...

Dans ce tableau je n'utilise que 2 couleurs pour 2 valeurs récurrentes... Mais je retiens la proposition !
Je reviendrai ici au besoin... Encore merci de votre aide

 

Vote positif 0 Vote négatif