Discussion :

[avenir80]

Bonjour à tous les membres du forum,
Je suis novice en vba excel, j'ai créé mon premier usf avec différents combobox, texbox et dtpicker et je reporte toutes ces données dans une feuille excel, cela sans trop de problème grâce au consultation sur le forum et internet.
Mais je bute en voulant choisir un numéro de semaine dans une combobox et un autre dans une autre combobox et à reporter cette plage en couleur dans ma feuille (exemple : colorier la plage semaine 40 à 52, choisi dans les 2 combobox).
J'arrive à faire le choix de la couleur, mais pas à reporter dans la colonne correspondante( une cellule par numéro de semaine).
Pourriez-vous m'aider, merci d'avance.

Didier

[fring]

Bonjour,

Pour pouvoir orienter la réponse, tu peux donner un exemple de ce qui devrait être colorié si on sélectionne la semaine 12 et la semaine 25 ? Autrement dit, quelles cellules correspondent aux 52 semaines ?

[avenir80]

Bonjour fring,
Justement tout touche à l'endroit où ça fait mal.
Si je considère mes colonnes N à BN sur ma feuille correspondant aux semaines et si je choisis avec mes combobox semaine 12 correspondant à colonne Y et semaine 20 correspondant à colonne AG, j'aimerais colorier les cellules Y à AG sur la feuille et sur la même ligne que les autres données de mon usf ( autres combobox, listbox etc...)
Merci
Didier

[fring]

Voici un exemple à adapter à ton utilisation (nom de combos, nom de la feuille, n° de ligne, lancement de la procédure, etc...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub CommandButton1_Click()
Dim Ligne As Integer, Sem1 As Integer, Sem2 As Integer
 
'vérification qu'une semaine est bien sélectionnée dans le premier combo
If Me.ComboBox1 = "" Then
    MsgBox "Veuillez sélectionner une semaine de départ"
    Exit Sub
Else
    Sem1 = Me.ComboBox1
End If
 
'vérification qu'une semaine est bien sélectionnée dans le second combo
If Me.ComboBox2 = "" Then
    MsgBox "Veuillez sélectionner une semaine de fin"
    Exit Sub
Else
    Sem2 = Me.ComboBox2
End If
 
Ligne = 1 '<-- n° de ligne à définir selon tes procédures de choix
 
'Mise en couleur des cellules
Sheets(1).Range(Cells(Ligne, Sem1 + 13), Cells(Ligne, Sem2 + 13)).Interior.ColorIndex = 6
 
End Sub

Sem1 correspond à la sélection de ton premier combo.
+13 parce que ta première semaine commence à la colonne N (14ème colonne), donc si on sélectionne 1 dans le combo --> 1 + 13 = 14...it's magik

[avenir80]

Bonjour fring,

C'est parfait, j'ai adapté sans problème ton code à mon projet. C'est vrai que ça parait évident quand on nous le dit, c'est comme tout il faut passer par le stade "petit scarabée".
Il me reste pour cette première étape à adapter mon choix de couleur du format LONG au format de couleur de cellule, mais j'ai encore du boulot après.

Merci encore fring, ce forum fourmille d'idées.
A plus
Didier