Microsoft 365 Un macro qui alterne entre 2 valeurs

  • Initiateur de la discussion Initiateur de la discussion pat66
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pat66

XLDnaute Impliqué
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
 
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
 
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
 
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
 
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
 
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 😉
 
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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour