[Résolu]je ne vois pas l'erreur mais je la constate: probleme de commandbuton

[ckoebel5]

Bonjour le forum,

Dans le fichier suivant, utilisez l'ufAjoutSalle, la feuille de classeur est normalement sensée se colorier de la même façon qu'on met en bleu les boutons de l'uf en appuyant dessus. Pourtant ce n'est pas le cas.

Quelqu'un peut-il m'aider?

Merciiiii

 

[Roland_M]

Re : je ne vois pas l'erreur mais je la constate: probleme de commandbuton

bonsoir

les boutons sont numérotés dans le sens des colonnes horizontalement !
toi tu incrémentes k en ligne ! donc ce n'est pas bon !

 

[Roland_M]

Re : je ne vois pas l'erreur mais je la constate: probleme de commandbuton

re

essais comme ceci et bien entendu revoir le reste du code qui doit être revu !

Private Sub InitializeBleu()
Dim L As Integer, C As Integer
For L = 1 To 14: For C = 1 To 15
    If CommandButtonX(((L - 1) * 15) + C).GroupBoutonUfAjoutSalle.BackColor = &HFFFF00 Then
       Bleu(L, C) = True
    Else
       Bleu(L, C) = False
    End If
Next: Next
affichebleudansfenetrexecut
End Sub

 

[Roland_M]

Re : je ne vois pas l'erreur mais je la constate: probleme de commandbuton

re

ici aussi et c'est ok j'ai essayé.
(mais tu as un problème à la création de la feuille à revoir !?)

Private Sub CréerPlacesDansSalle()
Sheets("Feuil1").Select   'ou activate ??? quelle différence?
ActiveSheet.Range("A1:Q17").Select   'pour le coloriage en violet
With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 16751052
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With
P = 0
For L = 1 To 14: For C = 1 To 15
    If Bleu(L, C) = True Then 'pour le coloriage en bleu des cellules "places"
       ActiveSheet.Cells(L + 1, C + 1).Select
       With Selection.Interior
           .Pattern = xlSolid
           .PatternColorIndex = xlAutomatic
           .Color = 13434828
           .TintAndShade = 0
           .PatternTintAndShade = 0
       End With
       P = P + 1  'p défini le numéro de place pour le collage des formules
       'Selection.Formula = "=IF(LeGroupe<0,INDEX(PrénCls,MATCH(" & p & ",Places,0)),INDEX(PrénAbsolus,MATCH(" & p & ",PlacesAbsolues,0)))"
    End If
Next: Next
' à faire:
'supprime les colonnes de droite et gauche qui sont vides ainsi que les lignes du haut et du bas
'Nomme la plage "PlanSalle" dans le gestionnaire de noms
'Ajuste la largeur et la hauteur des col et lignes
End Sub

 

[ckoebel5]

Re : je ne vois pas l'erreur mais je la constate: probleme de commandbuton

Merci pour ton aide Roland!!

Pour ce qui est de la création de la feuille, j'ai un autre souci ...mais ça fera l'objet d'un autre post.

Cordialement.