Useform selon le jour de la semaine

Bonjour Thierry,

Dis moi quand penses tu;

Private Sub CommandButton1_Click()
Dim C As Byte
Dim N As Byte
CommandButton1.BackColor = RGB(192, 192, 192)
C = ActiveCell.Column
For N = 3 To 15 'si il y a 30 ligne
If Cells(N, C) = CommandButton1.Caption Then
Cells(N, C) = ""
End If
Next N

End Sub

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveCell.Value = CommandButton1.Caption
CommandButton1.BackColor = RGB(255, 0, 0)
End Sub

Je double clique, il insert la prestation DS sur la cellule Active et le commandbutton devient rouge, si je simple clique il supprume la prestation de la liste et le command button devrais retourner dans ca couleur initial, mais le je bloque

Quand dis tu?

J'ai juste constaté, que si je fais cette operations en disons D5, si je passe a D7 que mon command button n'es plus rouge, du probablement a la réouverture du userform d'origine, tu crois qu'il ya moyen de le faire ouvrir que 1 fois pour la collone, de uniquement ouvre le userform au changement de collone et non au changement de ligne.

Merci beaucoup a toi et Stephane

@Christophe@

Salut @Xtof@ et STéphane...

Tu bloques ? quoi ? (où ?) pour la couleur ?

Pour ta deuxième question, ben là c'est simplement parceque tu n'as pas cherché ni réfléchi... Car c'est vraiment facile, enfin pas trop difficile!

RECAPITULONS : Tu as donc une évènementielle on Selection_Change qui va agir SI on est Verrou True et SI on est bien dans la Zone "B1:AC12"... Donc il suffit de lui ajouter une condition SI on change de Colonne... Et donc il suffit de renseigner VBA sur la colonne où l'on se trouve.......

Voici comment faire :
En haut de Module tu ajoute une déclaration de Variable Public :
Dim Colonne As Byte

Et tu ajoutes dans tes macros :

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "Phase Insertion"
Verrou = True
Call_UserForm
Colonne = ActiveCell.Column '<<<<<<<<<<<<<ICI on indique la colonne
Else
ToggleButton1.Caption = "Phase Normale"
USF_Unload
Verrou = False
End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Verrou = False Then Exit Sub
If Not Application.Intersect(Target, Range("B1:AC12")) Is Nothing Then
If ActiveCell.Column <> Colonne Then '<<<<<<<<<<LA CONDITION
Adresse = ActiveCell.Address
Call_UserForm
End If
End If
Colonne = Target.Column '<<<<<<<<< On indique où on était en partant..
End Sub

Voilà... c'est vraiment pas compliqué...
Mais il faut un peu chercher aussi de ton coté... Car on dirait que tu n'as pas assez d'initiative où que tu n'es pas assez curieux... Tu crois que çà me vient comme çà, par l'opération du Saint Esprit !! lol... Non pas du tout, c'est à forcer d'essayer des trucs qu'on arrive à trouver une Soluce...

Bon après midi...

Et explique toi pour :"le command button devrais retourner dans ca couleur initial, mais le je bloque" car je n'ai rien capté...

@+Thierry

Ben la Thierry, super

Thierry, mille excuse de ne pas avoir chercher moi même, comme tu dis j'aurais pu, mais j'ai été plus occupé a aider les autres ce matin sur le forum que a mon propre probleme, mais j'ai tous de meme travailler les commandbutton, c'est déja pas mal, lol

Ce que je bloque et que je bloque pas, je donne une couleur RGB a mon commandbutton

CommandButton1.BackColor = RGB(255, 0, 0)
le voila rouge, maintenant si je veux lui faire reprendre ca couleur initiale, ya t'il un clear color, ou quelque chose dans ce genre la, j'ai essayé mais rien a faire

alors j'ai fais
CommandButton1.BackColor = RGB(192, 192, 192)
Mais ce gris est plus foncé que le gris d'origine, tu vois


En tous cas Thierry et Stéphane un grand grand grand merci a vous deux

Et une tres tres bonne journée aussi

Re @Xtoph@

Ben c'est idem... Il suffit d'être curieux... Dans la fenêtre propriété quand on met un "BackColor" à "Button Face" il apparaît "&H8000000F&"....

Donc j'ai essayé :
Private Sub CommandButton1_Click()
CommandButton1.BackColor = &H8000000F
End Sub

Et ça roule !!

Bien sur j'ai essayé différents trucs avant.... style :
CommandButton1.BackColor = "H8000000F" ou encore
CommandButton1.BackColor = "&H8000000F&"....

Mais bon... C'est :
CommandButton1.BackColor = &H8000000F

Voilà il suffit d'être curieux.......et observateur....

Bon Aprèm
@+Thierry

Thanks Thierry

Ben tu vois on en apprends tous les jours, je ne savais pas que ce genre de code marchait.

Un grand merci

Je vais continue mon boulot, j'espere ne plus tomber devant un os, lol

Ca devrait aller, j'ai tous, j'ai encore quelque Userform a completé.

Thanks

A bientot