[XL-2007] probleme de boucle [Résolu]

[chris09300]

bonjour
sur une feuille excel, j'ai un tableau, en horizontal j'ai 31 cellules qui correspondent au jours du mois de janvier, et en vertical j'ai 65 lignes.
le 1 jour est en cellule C9 et le 31 en cellule AG9.

je souhaiterais quand je selectionne la cellule C9 a J9 que je met en couleur jaune, que dans la cellule B9 la valeur 0.25 s'affiche.
je souhaiterais quand je selectionne la cellule J9 a K9 que je met en couleur jaune, que dans la cellule B9 prenne la valeur 0.25, si C9 a J9 celle ci sont en jaune + 0.25 sinon B9 = 0.25
je vous joint ma feuille pour mieux visualiser.

[casefayere]

Bonsoir,
J'essaie de décrypter ton message mais je cale. Expliques-toi mieux car vu l'énoncé tu est toujours à 0.25 dans B9

[chris09300]

je joint mon fichier, car precedement il etait trop important.
merci de vos reponses
christian

[casefayere]

Je vais essayer de t'aider, j'ai fait moi-même un fichier de réservation de chalets mais completement différent car adapté pour mon C.E.

J'aimerais savoir si :
- tes locations ne se font qu'à la semaine ou au nombre de jours indifférents
- tes pourcentages ne peuvent être que 25, 50, 75 et 100 %
ça m'avancera déjà et bien sur il ne faut pas être pressé.

[casefayere]

Pour l'instant, j'ai ajouté un bouton de commande sur ta feuille "Janv" et mis ce code, mais attention, il faudra l'adapter pour les autres feuilles car j'ai mis à 31 le nombre de jours

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()
Dim i As Integer, jaune As Integer, j As Integer
jaune = 0
With Sheets("Janv")
   For j = 9 To 73
      For i = 3 To 33
         If .Cells(j, i).Interior.ColorIndex = 6 Then
            jaune = jaune + 1
         End If
      Next i
      .Cells(j, 2) = Application.WorksheetFunction.MRound(jaune / 31, 0.25)
      If jaune = 0 Then .Cells(j, 2) = ""
      jaune = 0
   Next j
End With
End Sub

le principe est celui-là, avec un bouton, il n'y a pas de problèmes, quant avec l'évènement "change" je dois vérifier si c'est possible

Bonne nuit

[casefayere]

Je ne dors toujours pas,
tu peux essayer cette autre solution,
copies ce code dans l'évènement selection_change de la feuille

Code :

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
26
27
28
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer, jaune As Integer, j As Integer, mess As String
If Target.Row >= 9 And Target.Column >= 3 Then
   mess = MsgBox("mettre en jaune la selection ?", vbOKCancel)
   If mess = 1 Then
      Selection.Interior.ColorIndex = 6
      jaune = 0
      For i = 3 To 33
         If Cells(Target.Row, i).Interior.ColorIndex = 6 Then
            jaune = jaune + 1
         End If
      Next i
      Cells(Target.Row, 2) = Application.WorksheetFunction.MRound(jaune / 31, 0.25)
      If jaune = 0 Then Cells(Target.Row, 2) = ""
      Cells(2, 2).Select
   Else
      Selection.Interior.ColorIndex = -4142
      For i = 3 To 33
         If Cells(Target.Row, i).Interior.ColorIndex = 6 Then
            jaune = jaune + 1
         End If
      Next i
      Cells(Target.Row, 2) = Application.WorksheetFunction.MRound(jaune / 31, 0.25)
      If jaune = 0 Then Cells(Target.Row, 2) = ""
      Cells(2, 2).Select
   End If
End If
End Sub

[hben1961]

Bonjour à tous,

Une autre solution en utilisant les formules et mise en forme conditionnelle... La coloration des cellules est automatique, il suffit d'indiquer le numéro du jour début dans la colonne AI et le numéro du jour fin dans la colonne AH... Le pourcentage des cellules colorées dans la ligne désignée est donné dans la colonne B (si tu veux que le pourcentage soit un multiple de 25 on ajoute à la formule la fonction ARRONDI.AU.MULTIPLE)... Voir fichier attaché.

Cordialement

[casefayere]

re,
oui mais j'aimerais que chris teste mon deuxieme code avec son coté pratique.

bonne journée

[casefayere]

chris a écris :

excuse moi j'ai omis de dire autre chose.
Quand je choisi une zone, je clique sur le bouton reservation, cela va me chercher un userform qui me demande le nom de la personne qui reserve, je lui donne, puis la zone se met en jaune, le code que je viens de t'envoyer marche comme je te l'est dit sur la premiere ligne, mais ne deroule pas sur les autres lignes. voila je crois avoir ete plus clair, merci pour tes infos, qui me permettent de voir d'autres possibilites.

Je ne savais pas que tu passais par un USF pour mettre le fond jaune, ce qui remet en question mon dernier code, en effet, j'étais omnibulé par cette feuille et pas les autres boutons, mais tu devrais pouvoir adapter, je regarderai et diffuserai le code que tu m'as envoyé en MP.

[casefayere]

Peux-tu, comme tu l'as fait pour janvier, envoyer le meme modele mais pour février, je crois qu'on va passer par un module qui gérera toutes les feuilles (tous les mois), mais jene promets rien, d'autant plus que demain => Vacances.

[chris09300]

voici le fichier pr fevrier.

[casefayere]

il me faut aussi le nom exact de chaque feuille, exemple Janv je connais
mais fevrier, c'est "fev" ou "fevrier"...
et mars, avril....

[casefayere]

J'ai supprimé un message où je disais des bétises, par contre je vois que fevrier se termine le 3 mars, mars commence t'il le 4/3 ? et décembre, avec le décalage se termine l'année d'après ?
excuses-moi mais il faut que je sache

[casefayere]

E attendant tes réponses, ecris ce code dand un module

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub pourcent_jaune()
Dim i As Integer, jaune As Integer, j As Integer, fl As Worksheet
Set fl = activeworksheet
jaune = 0
With fl
   For j = 9 To 73
      For i = 3 To 33
         If .Cells(j, i).Interior.ColorIndex = 6 Then
            jaune = jaune + 1
         End If
      Next i
      .Cells(j, 2) = Application.WorksheetFunction.MRound(jaune / 31, 0.25)
      If jaune = 0 Then .Cells(j, 2) = ""
      jaune = 0
   Next j
End With
End Sub

comme tu disais :

je lui donne, puis la zone se met en jaune,...

juste derriere ta partie de code qui a mis en jaune tu vas dans le module et poursuis ensuite ton code

Code :

1
2
3
....
pourcent_jaune
.....