Microsoft 365 Un macro qui alterne entre 2 valeurs

patricktoulon

XLDnaute Barbatruc

• 7 Novembre 2023

• #2

Bonjour
dans la macro affectée a ta shapes
[A26]=array([BB15].value,0)(abs([A26].value=[bb15].value))

rien de plus rien de moins

 

Vote positif 0 Vote négatif

Solution

Phil69970

XLDnaute Barbatruc

• 7 Novembre 2023

• #3

Bonjour @pat66

Une manière de faire

Merci de ton retour

 

Pièces jointes

• Clic ou pas clic V1.xlsm

  25.3 KB · Affichages: 5

Vote positif 0 Vote négatif

G

gbinforme

XLDnaute Impliqué

• 7 Novembre 2023

• #4

Bonjour
Tu peux le faire aussi avec un double clic sur A26 par exemple

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Range("A26"), Target) Is Nothing Then
        Cancel = True
        If Target.Value = "" Then
            Target.Value = Range("BB15").Value
        Else
            Target.Value = ""
        End If
    End If
End Sub

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 7 Novembre 2023

• #5

Bonjour à tous

Et si tu veux avoir un bouton comme demandé

pat66 à dit:

en cliquant sur une forme

Cliquez pour agrandir...

 

Pièces jointes

• Clic ou pas clic V2.xlsm

  25.1 KB · Affichages: 6

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 7 Novembre 2023

• #6

re,

merci à tous pour votre aide,

toutes vos solutions répondent parfaitement à mon problème et je vous en remercie, j'opte pour la solution de Patricktoulon parce qu'elle est courte en écriture, mais je conserve les autres solutions pour d'autres configurations

merci à tous

cdt

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 7 Novembre 2023

• #7

tralalalalère heu.......

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 8 Novembre 2023

• #8

bonjour patricktoulon
bonjour le fil

patricktoulon

je souhaite utiliser votre macro dans une autre configuration,
je m'explique, la forme qui déclenche la macro et BB15 sont sur la même feuille, mais A26 est sur une autre feuille, pourriez me dire comment préciser les feuilles
[A26]=array([BB15].value,0)(abs([A26].value=[bb15].value))

merci d'avance

cdt

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Novembre 2023

• #9

re
ben comment fait tu d'habitude ?
feuil1.[A26]=array(feuil2.[BB15].value,0)(abs(feuil1.[A26].value=feuil2.[bb15].value))
remplace feuil1 et feuil2 pas le codename des feuilles concernées
je dis bien le code name pas le nom que tu a sur l'onglet

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 8 Novembre 2023

• #10

re,

oui bien sur tout simplement, j'ai même pas essayé, désolé mais en ce moment je bugge grave

un grand merci pour ta réactivité

cdt

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 17 Novembre 2023

• #11

patricktoulon à dit:

re
ben comment fait tu d'habitude ?
feuil1.[A26]=array(feuil2.[BB15].value,0)(abs(feuil1.[A26].value=feuil2.[bb15].value))
remplace feuil1 et feuil2 pas le codename des feuilles concernées
je dis bien le code name pas le nom que tu a sur l'onglet

Cliquez pour agrandir...

Bonjour le fil,

patricktoulon, pourriez vous m'aider à adapter votre solution, svp, j'ai bien essayé mais je n'y arrive pas

il faudrait alterner entre feuil.1[A25] et feuil2.[BB15] au lieu d'alterner entre 0 et feuil2.[BB15],

merci d'avance pour votre aide

cdt

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 17 Novembre 2023

• #12

re
bonjour

VB:

feuil1.[A26]=array(feuil2.[BB15].value,Feuil1.[A25].value)(abs(feuil1.[A26].value=feuil2.[bb15].value))

le principe
[A26]=array(valeur1 , valeur2) (abs([A26]=valeur1))
les valeur1 et 2 peuvent venir de ce que tu veux
si c'est des feuilles différentes il faut le préciser
l'abs converti la valeur boolean du calcul en (0 ou 1)
c'est pas difficile à comprendre

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 17 Novembre 2023

• #13

re,

merci beaucoup, c'est nickel

cdt

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 7 Février 2024

• #14

Bonjour Patricktoulon,

Auriez vous la gentillesse de m'indiquer comment additionner la valeur de BB13 à celle de BB15 avec votre formule ci dessous enfin si c'est possible bien sûr ?

Votre formule : [B26] = Array([BB15].Value, 0)(Abs([B26].Value = [BB15].Value))

Ma tentative inopérante : [B26]= Array([BB15+BB13].Value, 0)(Abs([B26].Value = [BB15+BB13].Value))

un grand merci

 

Dernière édition: 7 Février 2024

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 7 Février 2024

• #15

re
bonjour
je ne teste pas mais ça devrait être ça

VB:

[B26]= Array([BB15]+[BB13], 0)(Abs([B26].Value = [BB15]+[BB13]))

 

Vote positif 0 Vote négatif