Bonjour,
Sorry je vais essayer d'être le plus clair possible et je me rend bien compte que c'est pas gagné...
En fait j'ai un "userform" dans VB...
où j'ai créé 9 "frames" composée de 9 "optionbouton" chacune....
ce qui correspond à des 9 personnes (frame) pour lequelle on doit sélectionner au moins un poste de travail (optionbouton)
Chaque poste correspond à l'activité d'une semaine (10 demi-journées) où en fonction du poste les personnes font des taches différentes d'un jour à l'autre...
quand on valide l'encodage...
le tout est copié dans excel en ce déplacant d'une colonne vers la droite pour chaque demi journée et en descendant d'une ligne après chaque personne
ce qui me rempli mon planing de la semaine...
actuellement voila ma macro dans laquelle la liste des taches est définie pour le poste 1 en ce décalant d'une colonne à droite après chaque tache...puis je recommence pour le poste 2 pour la personne 1...3...4 ... à la fin de la personne 1 je demande qu'il descende d'une ligne et je recommence ce qui pour 9x9 me fait 81 possibilités... il me dit que ma fonction est trop longue
pour la personne 1
ActiveCell.Offset(1, 0).Range("A1").Select
if FormEncodage.poste1.Value = True Then
ActiveCell.Offset(0, 0).Value = "Personne 1"
ActiveCell.Offset(0, 1).Value = "Tache1"
ActiveCell.Offset(0, 2).Value = "Tache2"
ActiveCell.Offset(0, 3).Value = "Tache3"
ActiveCell.Offset(0, 4).Value = ....
ActiveCell.Offset(0, 5).Value = "tache3"
ActiveCell.Offset(0, 6).Value = "='pl'!F3"
ActiveCell.Offset(0, 7).Value = "='pl'!G3"
ActiveCell.Offset(0, 8).Value = "='pl'!H3"
ActiveCell.Offset(0, 9).Value = "='pl'!I3"
ActiveCell.Offset(0, 10).Value = "='pl'!J3"
ActiveCell.Offset(0, 11).Value = "='pl'!K3"
End If
if FormEncodage.poste2.Value = True Then
...
puis pour la personne 2
'personne 2
ActiveCell.Offset(1, 0).Range("A1").Select...
et ainsi de suite pour chaque personne
le début de ma macro est...
Sub Entrée ()
Userform.hide
Range ("A1").select
Selection.end(x1down).select
ActiveCell....
Mais pour chaque poste les taches journalières sont identiques... j'aurai donc aimé fixer des conditions de départ détaillant chaque poste et les rappeler lorsque la valeur de ce poste = true pour cette personne...
J'espère que c'est assez clair...
déjà un tout grand merci
Jérôme
Un tout grand merci d'avance