bouton,mise en forme conditionnelle

[redalert]

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

 

[michel]

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

 

[redalert]

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

 

[michel]

bonsoir Redalert

quand j'écris

Variable1 = "A"
variable2 = "AB"

ce n'est qu'un exemple .

pour l'instant tu n'as donné aucune information sur les caracteristiques de tes variables ...


bonne soiree
MichelXld