Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Un macro qui alterne entre 2 valeurs

P

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
 
Trier par date Trier par votes
P

pat66

XLDnaute Impliqué
Bonjour Le forum
Bonjour patricktoulon

Patrick vous m'aviez aidé avec cette macro qui fonctionne très bien et je vous en remercie encore
VB: 
[A26]=array([BB15].value,0)(abs([A26].value=[bb15].value))

Pourriez vous encore m'aider mais cette fois en alternant la saisie de oui ou non dans la cellule N35

merci beaucoup
 
Vote positif 0 Vote négatif
P

pat66

XLDnaute Impliqué
re,

merci beaucoup !!

et pour terminer, peut on aussi en même temps alterner entre 2 couleurs rvb
si N35 = oui alors police en rouge 255,0,0 sinon en bleu 0,32,96

merci d'avance pour votre aide
 
Vote positif 0 Vote négatif
P

pat66

XLDnaute Impliqué
re,

merci patricktoulon, mais je t'ai induits en erreur, mille excuses !!

Ce n'est pas la police de N35 qui doit changer de couleur, mais la police de la forme ("Rectangle : coins arrondis 21")

je fais un clic sur un bouton :
[N35]=array("oui","non")(abs([N35].value="oui"))
Si N35 = "oui" alors la police du ("Rectangle : coins arrondis 21") devient rouge
clic suivant
N35 = "non", alors la police du ("Rectangle : coins arrondis 21") devient (rgb(0,32,96)

merci d'avance
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
encore une fois bonnet blanc blanc bonnet
activesheet.drawingobjects("Rectangle : coins arrondis 21").font.color=......le reste tu connais
vérifie le nom de ta shape des fois vba le reçois en anglais

et :
essaie un peu de comprendre la logique de cette ligne de code
tu va pas revenir a chaque fois que tu veux modifier ou t'en resservir pour autre chose

état=array(proposition1,proposition2)(abs(proposition=1))
état peut être une valeur , un état , une propriété , etc.....
 
Vote positif 0 Vote négatif
P

pat66

XLDnaute Impliqué
re,

j'ai essayé avec les macros suivantes, mais cela ne fonctionne pas, pourrais-tu s'il te plait me mettre sur une piste ou me dire où je fais une erreur ?, merci d'avance

VB: 
ActiveSheet.DrawingObjects("Rectangle : coins arrondis 21").Font.Color = Array(TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0,32,96), TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 0, 0))(Abs(ActiveSheet.DrawingObjects("Rectangle : coins arrondis 21").TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0,32,96)))

ou aussi avec
VB: 
ActiveSheet.DrawingObjects("Rectangle : coins arrondis 21").Font.Color = Array(Font.Color.RGB = RGB(0, 32, 96), Font.Color.RGB = RGB(255, 0, 0))(Abs(ActiveSheet.DrawingObjects("Rectangle : coins arrondis 21").Font.Color.RGB = RGB(0, 32, 96)))

ou aussi avec
Code: 
ActiveSheet.DrawingObjects("Rectangle : coins arrondis 21").Font.Color = Array(Font.Color.RGB = RGB(0, 32, 96), Font.Color.RGB = RGB(255, 0, 0))(Abs(Font.Color.RGB = RGB(0, 32, 96)))

ou aussi avec

Code: 
ActiveSheet.DrawingObjects("Rectangle : coins arrondis 21").Font.Color = Array(RGB(0, 32, 96), RGB(255, 0, 0))(Abs(RGB(0, 32, 96)))
 
Dernière édition:
Vote positif 0 Vote négatif
P

pat66

XLDnaute Impliqué
bonjour le forum,

finalement j'ai opté pour une autre solution tout aussi efficace et j'ai modifié les couleurs
merci quand même
cdt

VB: 
[N35] = Array("oui", "non")(Abs([N35].Value = "oui"))

If ActiveSheet.[N35].Value = "oui" Then
ActiveSheet.Shapes("Rectangle : coins arrondis 21").Fill.ForeColor.RGB = RGB(1, 122, 255)
ActiveSheet.Shapes("Rectangle : coins arrondis 21").TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 255, 255)
Else
ActiveSheet.Shapes("Rectangle : coins arrondis 21").Fill.ForeColor.RGB = RGB(149, 179, 215)
ActiveSheet.Shapes("Rectangle : coins arrondis 21").TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 32, 96)
End If
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

P
  • Résolu(e)
Microsoft 365 Macro qui permet de basculer entre oui et non
Réponses
4
Affichages
396
pat66
P
P
  • Question
Microsoft 365 TextBox avec limitation de la saisie entre 2 valeurs
Réponses
8
Affichages
258
pat66
P
  • Résolu(e)
XL 2013 Effacer le contenu si la valeur n'est pas entre 13000 90000 et copier les valeurs dupliqués
Réponses
8
Affichages
186
lestoiles1
P
  • Question
Microsoft 365 Macro qui masque 2 formes et les reaffichent
Réponses
7
Affichages
290
pat66
P
L
  • Résolu(e)
Microsoft 365 Filtrer une ListView sur un intervalle de valeurs avec ComboBox
Réponses
4
Affichages
616
Lyrix
L
T
  • Question
XL 2016 Saisir la différence entre 2 dates sous 2 conditions
Réponses
6
Affichages
675
Dranreb
M
  • Résolu(e)
XL 2016 Recopier des cellules en valeur après un clic
Réponses
10
Affichages
658
Merlin258413
M
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
679
Pac41240
P
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
411
loreak
L
F
  • Question
Microsoft 365 Somme valeurs uniques entre 2 dates
Réponses
3
Affichages
571
fisoccer
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…