taj88
Messages postés113Date d'inscriptionmercredi 9 mai 2007StatutMembreDernière intervention28 août 2007
-
20 juin 2007 à 16:55
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 2011
-
21 juin 2007 à 20:30
Bonjour, voilà c'est fais un petit code afin de remplir ma page de CommandButton :
Public i As Integer
Public j As Integer
Public k As Integer
Sub Macro1()
For i = 0 To 5 (i et j pouvant varier jusquà "beaucoup" pour remplir la page excel)
For j = 0 To 5
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=True _
, DisplayAsIcon:=False, Left:=0 + 10 * j, Top:=10 * i, Width:=10, Height:=10). _
Select
Next j
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=True _
, DisplayAsIcon:=False, Left:=10 * j, Top:=0 + 10 * i, Width:=10, Height:=10). _
Select
Next i
End Sub
Malheuresement lors de ctte création, les boutons sont gris (de base) et j'aimerais les rendre transparent, à mon avis il faut rajouter quelquechose du genre:
BackStyle:=0 - fmBackStyleTransparent (c'est ce que j'ai touvé dans les propriété des commandButton) quelque part.
Mais ca marche pas, quelqu'un aurait t'il une idée.
De plus (pour corser la chose ), j'aimerais que lorsque ce fait la création du bouton un code lui soit assossier : DéfinirCoordonnées "nom du bouton" où DéfinirCoordonnées et un sous prgm dans mon code, pour avoir dans le code de la page un truc du genre :
Private Sub CommandButton1_Click()
DéfinirCoordonnées CommandButton1
End Sub
Private Sub CommandButton2_Click()
DéfinirCoordonnées CommandButton2
End Sub
Private Sub CommandButton3_Click()
DéfinirCoordonnées CommandButton3
End Sub
A chaque fois qu'il créer un CommandButton, il associe DéfinirCoordonnées CommandButtonX (X=1,2,3...)avec le bon X correspondant.
Voilà, en fait j'ai deux question: sur la transparence du bouton et l'aasovciation du code.
Ca fait quelques heures que je "trifouille le code et je suis coincé.......
Je viens de découvrir le bonheur de programmer et le VB me le rend bien
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 21 juin 2007 à 09:04
Re,
Oups autant pour moi.
Je sais pas ce que j'ai fait mais oui ca marche. En revanche il y a truc bizarre.
Il veux placer BackStyle à 0 - fmBackStyleTransparent , mais une fois que tu cliques sur le bouton ajouté, et bien il reprend un BackStyle = 1
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 21 juin 2007 à 09:24
Cette propriété ne s'applique pas sur un contrôle positionné sur une feuille, seulement sur un objet container.
Je pense que ça doit être compliquer pour M$ de déterminer le quadrillage des cellules, le texte insérer dedans, tout ça par transparence.
C'est comme tooltiptext, impossible à faire au survol des cellules.
Part contre mon deuxième problème et que j'aimerais copié "automatiquement" dans le code de chaque CommandButton :
DéfinirCoordonnées CommandButtonX (ou X est remplacé automatiquement par le numéro de bouton associé) pour avoir un truc du genre:
Private Sub CommandButton1_Click()
DéfinirCoordonnées CommandButton1
End Sub
En fait j'aimerais faire cela car avec ce"tapis" de boutons, je veux pas copié DéfinirCoordonnées CommandButton des centaines de fois (une fois par commandbutton) tout en changeant le numéro à chaque ( X ) pour que ce soit bien celui du Command Button
Vous semble t-il possible de réaliser un tel "copieur de formule automatique et adaptable au nom deu command button"?
Je viens de découvrir le bonheur de programmer et le VB me le rend bien
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 21 juin 2007 à 20:30
Renfield,
c'est ce que j'avais fait avant, mais chez moi, sans le New, il m'en crée 2 ??
Celui avec propriété Backcolor au rouge et aux bonnes dimensions, + un au milieu de la feuille de couleur "fond de fenêtre".