création de planning

[remy3885]

Bonjour à vous tous.
Je suis en train de me créer un planning et n'ayant pas de grande notion en VBA j'aurais besoin de vos lumières.
En fait j'ai une feuille ou on trouve le planning des postes travaillés de 5 équipes A,B,C,D,E selon la date pendant X années (Feuil1)
et sur une autre (Feuil2) je voudrais affiché un calendrier sur année avec les jours fériés, les weekends et les jours de la semaine qui s'actualisent en fonction de l'année qu'on rentre dans une cellule (A2) et le gros du boulot c'est en cliquant sur un bouton on ouvre un userform (que j'ai créé) et en renseignant l'équipe dans laquelle je travail et la date d'entrée et de sortie dans cette équipe il va me chercher dans la feuil1 et copier sur mon planning (Feuil2) les postes travaillé dans cette plage de date.

exemple du 01/07/09au 28/07/09 je suis dans l'équipe C. il copie les postes travaillé par l'équipe C du 01/07/09 au 28/07/09 et me copie ça sur mon planning

(dans mon userform j'airais aussi la possibilité de rentrer directement le poste travaillé M,S,N,R...)

Voilà j'espère avoir était assez clair j'attend vos réponses bye.

 

[Bebere]

Re : création de planning

bonjour Remy
changé feuil2
choix d'une équipe dans combobox1
le mois est pris dans feuil1
valider
à bientôt

 

[remy3885]

Re : création de planning

Déjà merci Bebere pour ta réponse.
J'ai testé un peu ta macro et elle bloque au niveau de equipe = combobox1
Private Sub CommandButton1_Click() 'valider
Dim ColEquipe As Byte, Cel As Range, Tbl
Dim DerLigne As Byte

If ComboBox1 = "" Then Exit Sub

equipe = ComboBox1

With Worksheets("Feuil1")
mois = .Cells(2, 2).Text
Set Cel = .Rows(1).Find(UCase(equipe))
If Not Cel Is Nothing Then
ColEquipe = Cel.Column
DerLigne = .Cells(50, ColEquipe).End(xlUp).Row
Tbl = .Range(.Cells(2, ColEquipe), .Cells(DerLigne, ColEquipe))
End If
End With


For Each Cel In Range("A6:X6")
If Cel.Text = mois Then
colmois = Cel.Column + 1
Exit For
End If
Next Cel

Cells(7, colmois).Resize(UBound(Tbl, 1), UBound(Tbl, 2)) = Tbl

End Sub

Pour le moment j'arrive pas à régler le problème, si tu peux jeter un oeil
merci

 

[Bebere]

Re : création de planning

bonjour Remy

déclare equipe et mois si tu as option explicit en tête de feuille
Dim DerLigne As Byte,Equipe as string,Mois as string
içi pas de problème
à bientôt

 

[remy3885]

Re : création de planning

J'ai déclaré équipe et mois comme tu me l'as dis mais ça bug toujours au niveau de UCase cette fois. Peux tu m'expliquer ce que signifie chaque ligne pour voir si j'arrive à m'en sortir parce que là je comprend rien à ce code.

 

[Bebere]

Re : création de planning

bonjour Remy
si tu as une erreur avec une fonction
aller voir dans menuutils,références et décocher si marqué MANQUANT
j'ai mis des commentaires
si tu fais des essais attention que la feuille 2 soit active
lire l'aide,exécuter le code pas à pas(F8) et regarder dans fenêtre variables locales

à bientôt

 

[remy3885]

Re : création de planning

Je te remercie d'avoir répondu aussi vite je vais regarder ça