Planning 5/8

[Actis64]

Bonjour le forum

debutant dans ce forum et en programmation j'ai demandé votre aide pour exploiter un planning .
n'ayant eu aucune réponse je pense que la partie jointe n'a pas eté envoyée.Je renouvelle donc ma demande , en vous remrciant.

PS: en parcourant le forum , j'ai relevé un code interessant ,mais je ne vois pas comment l'exploiter.
Sub NombredeCellulesbleues()
Dim Cellule As Range
Dim total As Variant
For Each Cellule In Selection
If Cellule.Interior.ColorIndex = 5 Then 'bleu
total = total + Cellule.Count
End If
Next
MsgBox 'Il y a ' & total & ' Cellules bleues'
' Range('A1') = total - Cette option place le total dans la cellule A1
End Sub

 

[Dull]

Salut Actis64, le Forum

Place ce code dans le module feuil1 par exemple
créer un Bouton et attaches-y ce code

Sub NombredeCellulesbleues()
Dim Cellule As Range
Dim total As Variant
For Each Cellule In Selection 'Pour chaque cellule dans ta selection
If Cellule.Interior.ColorIndex = 5 Then 'si la (les) cellules sont en bleu
total = total + Cellule.Count 'Compte de nombre de cellule correspondant au critère
End If' fin de si
Next 'passe à cellule suivante
MsgBox 'Il y a ' & total & ' Cellules bleues'
' Range('A1') = total - Cette option place le total dans la cellule A1
End Sub

selectionne une plage pour voir l'effet et clic sur le bouton

PS: t'aurais bien envoyer un fichier mais peu pas

espérant que cela t'aide

Message édité par: Dull, à: 19/06/2006 12:00

 

[actis 64]

Merci Dull pour la réponse .
le mieux ça aurait été de voir le fichier joint mais ce matin impossible de joindre un fichier .par contre si vous parcourez le poste d'hier (planning 5/8) le fichier à bien été envoyé.

 

[Actis 64]

Lien supprimé

 

[Dull]

Re Actis 64

donnes moi ton @mail et je te fait parvenir ton fichier corrigé

 

[Actis64]

le voici

Magharft@free.fr

 

[Actis64]

le voici

Magharft@free.fr

 

[porcinet82]

Salut Actis64, Dull 😉

Comme j'avais commencé quelques chose je le post même si c'est certainement à adapter afin de généraliser car là le code fonctionne pour la plage de date que tu précise dans ton tableau.

Sub compte()
Dim bleu%, vert%, S%, D%, CP%

Application.Goto Sheets('feuil1').Range('E44')
For p = 6 To 10
    With Sheets('juin2006')
        For k = 24 To 44
            If .Cells(p, k).Interior.ColorIndex = 41 Or .Cells(p, k).Interior.ColorIndex = 6 Then
                bleu = bleu + 1
            ElseIf .Cells(p, k).Interior.ColorIndex = 4 Then
                vert = vert + 1
            ElseIf .Cells(5, k).Value = 'S' Then
                S = S + 1
            ElseIf .Cells(5, k).Value = 'D' Then
                D = D + 1
            ElseIf .Cells(5, k).Value = 'CP' Then
                CP = CP + 1
            End If
        Next k
    End With
    With Sheets('juin2006')
        For k = 10 To 16
            If .Cells(p, k).Interior.ColorIndex = 41 Or .Cells(p, k).Interior.ColorIndex = 6 Then
                bleu = bleu + 1
            ElseIf .Cells(p, k).Interior.ColorIndex = 4 Then
                vert = vert + 1
            ElseIf .Cells(5, k).Value = 'S' Then
                S = S + 1
            ElseIf .Cells(5, k).Value = 'D' Then
                D = D + 1
            ElseIf .Cells(5, k).Value = 'CP' Then
                CP = CP + 1
            End If
        Next k
    End With
    Cells(38 + p + x, 5).Value = bleu
    bleu = 0
    Cells(38 + p + x, 6).Value = vert
    vert = 0
    Cells(38 + p + x, 7).Value = S
    S = 0
    Cells(38 + p + x, 8).Value = D
    D = 0
    Cells(38 + p + x, 9).Value = CP
    CP = 0
    x = x + 1
Next p
End Sub

@+

 

[Actis 64]

Merci porcinet82

tres bien le code .il reste a affiner pour qu'il puisse fonctionner automatiquement sur toutes les feuilles du classeur . l'ideal serait une boite de dialogue me demandant les dates de début et de fin ,et la macro cherche les donnees sur toutes les feuilles ,pour indiquer le resultat sous forme de tableau .

dans tous les cas je suis agreablement surpris de la rapidité et l'efficacité de vos réponses.

@+ 🙂 Lien supprimé
🙂

 

[porcinet82]

re,

J'avais effectivement pensé à intégrer un USF demandant les périodes de début et de fin. Je regarde ca un peu plus tard dans l'aprem parce que là je suis en train de faire ma présentation pour ma soutenance de stage.

@+

 

[Actis 64]

ça marche ...

A+

 

[Dull]

Re le Fil

Romain 😉 , juste pour te dire M....E, (en majuscule) pour ta soutenance de stage.

PS: faut qu'un jour tu me racontes pourquoi tu as choisi Porcinet comme Pseudo et Bourriquet comme avatar... (Mon fils à de ces questions) :lol: :lol: :lol:

 

[porcinet82]

re,

Je t'ai préparé un truc avec USF à partir du fichier que tu as joint. Je te l'envoi sur ton mail puisqu'on ne peut pas joindre de fichier sur le forum en ce moment.

Je mettrais le fichier en pièce jointe dès qu'on pourra a nouveau le faire.

Tiens moi au courant.

@+

 

[Gruick]

Salut à tous,
Dans le fichier que tu as joint, les périodes des mois ne correspondent pas à celles coloriées.
Aussi, je me suis permis de les remettre en adéquation, et en supprimant certaines colonnes du début cachées. Ont-elle une utilité, ou est-ce uniquement pour la présentation.
J'ai commencé une approche beaucoup plus simple que celle de mon collègue Porcinet que je salue au passage. Cela t'intéresse-t-il ?
Fais-le moi savoir.
Gruick