Microsoft 365 Un macro qui alterne entre 2 valeurs

[pat66]

Bonjour le forum,

est il possible qu'en cliquant sur une forme l'on puisse, soit coller la valeur de BB15 dans A26 soit remettre A26 à zéro
Le 1er clic colle la valeur de BB15 dans A26
Le 2 ème clic remet A26 à zéro


merci d'avance pour vos conseils

cdt

 

[patricktoulon]

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

 

[Phil69970]

Bonjour @pat66

Une manière de faire

Merci de ton retour

 

[gbinforme]

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

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

 

[Phil69970]

Bonjour à tous

Et si tu veux avoir un bouton comme demandé

en cliquant sur une forme

 

[pat66]

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

 

[patricktoulon]

tralalalalère heu.......

 

[pat66]

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

 

[patricktoulon]

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

 

[pat66]

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

 

[pat66]

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

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

 

[patricktoulon]

re
bonjour

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

 

[pat66]

re,

merci beaucoup, c'est nickel

cdt

 

[pat66]

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

 

[patricktoulon]

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

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