bouton,mise en forme conditionnelle

  • Initiateur de la discussion Initiateur de la discussion redalert
  • 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 !

R

redalert

Guest
Bonjour à tous, je suis un nouveau venu, et je me suis mis au VBA, il y a peu de temps donc désolé d'avance si mes questions sont trop faciles. en tout cas cela m'aiderait enormement alors merci d'avance pour les bonnes ames charitables.


1) Pourquoi quand je crée des boutons par une macro je n'arrive pas à nommer mes boutons?
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=184, Top:=14.3382352941176, _
Width:=65.0735294117647, Height:=23.1617647058824).Select

commandbutton1.caption="toto" ne marche pas, c'est illogique!!!!

2)Alors la aussi je comprends pas !!
j'essaye d'utiliser la mise en forme conditionnelle pas en valeur mais avec une formule à l'interieur d'une boucle
et en fait la mise en forme marche n'est pas dynamique
dans la condition 1: la formule est on a soit vrai ou faux
et la formule que j'ai mise Formula1:="" & Cells(n, k + 1) < 0 n'apparait pas, c'est trop bizarre.

For k = 1 To 10
For n = 1 To 10
Cells(n, k).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="" & Cells(n, k + 1) < 0
Selection.FormatConditions(1).Interior.ColorIndex = 15
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="" & Cells(n, k + 1) > 0
Selection.FormatConditions(2).Interior.ColorIndex = 0
Next n
Next k

3)ActiveSheet.PageSetup.PrintArea = "$A$1:$AB$46"
comment fait on pour mettre des variables à la place des lettres?

repondez moi des que vous pouvez
allez bonne journee
 
bonsoir Redalert


pour ta premiere question tu peux essayer

Sub test1()
Dim oOLE As OLEObject

Set oOLE = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=184, Top:=14.3382352941176, _
Width:=65.0735294117647, Height:=23.1617647058824)

'affecte un nom
oOLE.Name = "MonNom"
'affecte une donnée sur le bouton
oOLE.Object.Caption = "MaValeur"

End Sub


et pour ta 3eme question

Sub Test2()
Dim Variable1 As String, variable2 As String
Variable1 = "A"
variable2 = "AB"
ActiveSheet.PageSetup.PrintArea = "$" & Variable1 & "$1:$" & variable2 & "$46"
End Sub


bonne soiree
MichelXld
 
merci bcp
ta reponse à la premiere question est géniale, en fait il fallait renommer notre bouton( quand meme bizarre)
Mais pour la deuxieme question

Sub Test2()
Dim Variable1 As String, variable2 As String
Variable1 = "A"
variable2 = "AB"
ActiveSheet.PageSetup.PrintArea = "$" & Variable1 & "$1:$" & variable2 & "$46"
End Sub

je voudrais que les variables1 et 2 que tu crées soit variable
et pas fixe à une valeur
car ma plage de selection n'est jamais la meme
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
25
Affichages
620
Réponses
6
Affichages
160
Réponses
2
Affichages
106
Réponses
9
Affichages
601
Retour