planning

[pasmermayvir]

Bonsoir le Forum
J'ai vraiment besoin de votre aide....
Je n'arrive pas à faire passer les variables correspondantes sur la feuille "semaine" qui se crée.
Je vous joins un fichier pour que vous puissiez me comprendre....
Je vous remercie par avance

 

[JNP]

Re : planning

Bonjour Pasmermayvir 🙂,
Pas évidente ton usine à gaz, mais sympa... Si j'ai bien compris, ton problème est d'envoyer les valeurs rentrées dans tes USF vers ta feuille de semaine générée automatiquement. A mon avis, le problème vient du stockage des variables. Tu fais remplir un USF et tu passes au suivant en déchargeant le précédent, donc tes variables sont vides. La solution que j'utilise généralement avec les USF, c'est de rendre publiques les variables dont j'aurai besoin à la fin et de les renseigner au fur et à mesure du passage d'un USF à l'autre.
A te lire 😎

 

[pasmermayvir]

Re : planning

Salut JNP
Aurais-tu un petit exemple pour que je comprenne le principe.....
Je te remercie encore

 

[JNP]

Re : planning

Bonjour Pasmermayvir 🙂,
Pour un exemple, mon planning est bien trop différent du tien, si bien que je ne te le fournirai pas (trop volumineux, si tu cherches dans mes réponses, tu trouveras un morceau, mais je pense que cela ne t'interressera pas...).
Pour ton fichier, j'essayerais:
Public Lundi as String
Et dans le code de ton USF
Lundi = Combo.Value
Où Combo prends la valeur de l'emploi du temps d"Untel dans l'équipe 1 (2,
3...)
Après, il faut l'injecter dans la case correspondante...
Vu comme cela, c'est un peu nébuleux, mais il n'est pas évident de se positionner par rapport à ton usine à gaz, ni de faire la part de ta création et de ce qui a été récupéré sur ce forum...
Bon courage 😎

 

[fanfan38]

Re : planning

Bonjour
Si tu mets userform.hide au lieu de me.unload tu peux réutiliser les données qui sont dans l'userform...

A+ François

 

[pasmermayvir]

Re : planning

Salut Fanfan
Je vais essayer de voir ce que change ton code....
Je débute en VBA et j'ai déjà lu ce fameux Hide mais je ne savais pas à quoi il servait....
Je remets un fichier où tu (et les autres) pourront voir que j'arrive maintenant à passer les donnés sur la feuille nouvellement crée) mais peut-être il y a mieux....
Je me suis bien pris la tête pour l'userform "Absences"....
Autrement je continue à améliorer mon usine à gaz
A plus

 

[pasmermayvir]

Re : planning

Mille excuses
J'avais oublié le fichier.... en fait il est trop lourd, c'est juste 50ko !!!
Il m'est difficile de le réduire
Bon j'ai fait çà sur le module 7

Private Sub CommandButton1_Click()
Sheets("Original").Select
If Range("A1") = "" Then
MsgBox "Il faut cliquer sur une date !"
Exit Sub
End If
Sheets("Original").Copy after:=Sheets(1)

On Error GoTo fin
ActiveSheet.Name = Range("S1")
' Plages Lundi Matin '
Range("C4") = Range("accueil!A1")
Range("C5") = Range("accueil!A2")
If Range("accueil!N1") = "3" Then
Range("C6") = Range("accueil!A5")
End If
Range("G4") = Range("accueil!A3")
Range("G5") = Range("accueil!A7")
If Range("accueil!N2") = "3" Then
Range("I6") = Range("accueil!A8")
End If
Range("M4") = Range("accueil!A10")
Range("M5") = Range("accueil!A4")
If Range("accueil!N3") = "3" Then
Range("M6") = Range("accueil!A6")
End If
' Plages Lundi Après Midi '
Range("T4") = Range("accueil!A27")
Range("T5") = Range("accueil!A28")
If Range("accueil!N4") = "3" Then
Range("T6") = Range("accueil!A21")
End If
Range("X4") = Range("accueil!A25")
Range("X5") = Range("accueil!A26")
If Range("accueil!N5") = "3" Then
Range("X6") = Range("accueil!A24")
End If
Range("AB4") = Range("accueil!A23")
Range("AB5") = Range("accueil!A30")
If Range("accueil!N6") = "3" Then
Range("AB6") = Range("accueil!A22")
End If
' Plages Mardi Matin '
Range("C11") = Range("accueil!B3")
Range("C12") = Range("accueil!B4")
If Range("accueil!N7") = "3" Then
Range("C13") = Range("accueil!B7")
End If
Range("G11") = Range("accueil!B8")
Range("G12") = Range("accueil!B10")
If Range("accueil!N8") = "3" Then
Range("I13") = Range("accueil!A2")
End If
Range("M11") = Range("accueil!B1")
Range("M12") = Range("accueil!B6")
If Range("accueil!N9") = "3" Then
Range("M13") = Range("accueil!B9")
End If
' Plages Mardi Après Midi '
Range("T11") = Range("accueil!B22")
Range("T12") = Range("accueil!B30")
If Range("accueil!N10") = "3" Then
Range("T13") = Range("accueil!B23")
End If
Range("X11") = Range("accueil!B27")
Range("X12") = Range("accueil!B29")
If Range("accueil!N11") = "3" Then
Range("X13") = Range("accueil!A31")
If Range("accueil!N1") = "2" Then
Range("X13") = Range("accueil!B21")
End If
End If
Range("AB11") = Range("accueil!B28")
Range("AB12") = Range("accueil!B24")
If Range("accueil!N12") = "3" Then
Range("AB13") = Range("accueil!B25")
End If

' Plages Mercredi Matin '
Range("C18") = Range("accueil!C5")
Range("C19") = Range("accueil!C6")
If Range("accueil!N13") = "3" Then
Range("C20") = Range("accueil!C10")
End If
Range("G18") = Range("accueil!C9")
Range("G19") = Range("accueil!C4")
If Range("accueil!N14") = "3" Then
Range("I20") = Range("accueil!C3")
End If
Range("M18") = Range("accueil!C7")
Range("M19") = Range("accueil!C8")
If Range("accueil!N15") = "3" Then
Range("M20") = Range("accueil!C1")
End If
' Plages Mercredi Après Midi '
Range("T18") = Range("accueil!C23")
Range("T19") = Range("accueil!C24")
If Range("accueil!N16") = "3" Then
Range("T20") = Range("accueil!C26")
End If
Range("X18") = Range("accueil!C21")
Range("X19") = Range("accueil!C30")
If Range("accueil!N17") = "3" Then
Range("X20") = Range("accueil!C27")
End If
Range("AB18") = Range("accueil!C25")
Range("AB19") = Range("accueil!C22")
If Range("accueil!N18") = "3" Then
Range("AB20") = Range("accueil!C28")
End If
' Plages Jeudi Matin '
Range("C25") = Range("accueil!D9")
Range("C26") = Range("accueil!D10")
If Range("accueil!N19") = "3" Then
Range("C27") = Range("accueil!D4")
End If
Range("G25") = Range("accueil!D1")
Range("G26") = Range("accueil!D2")
If Range("accueil!N20") = "3" Then
Range("I27") = Range("accueil!D6")
End If
Range("M25") = Range("accueil!D3")
Range("M26") = Range("accueil!D5")
If Range("accueil!N21") = "3" Then
Range("M27") = Range("accueil!D8")
End If
' Plages Jeudi Après Midi '
Range("T25") = Range("accueil!D29")
Range("T26") = Range("accueil!D21")
If Range("accueil!N22") = "3" Then
Range("T27") = Range("accueil!D22")
End If
Range("X25") = Range("accueil!D23")
Range("X26") = Range("accueil!D24")
If Range("accueil!N23") = "3" Then
Range("X27") = Range("accueil!D25")
End If
Range("AB25") = Range("accueil!D30")
Range("AB26") = Range("accueil!D26")
If Range("accueil!N24") = "3" Then
Range("AB27") = Range("accueil!D27")
End If
' Plages Vendredi Matin '
Range("C32") = Range("accueil!E7")
Range("C33") = Range("accueil!E8")
If Range("accueil!N25") = "3" Then
Range("C34") = Range("accueil!E1")
End If
Range("G32") = Range("accueil!E5")
Range("G33") = Range("accueil!E6")
If Range("accueil!N26") = "3" Then
Range("I34") = Range("accueil!A32")
End If
Range("M32") = Range("accueil!E9")
Range("M33") = Range("accueil!E2")
If Range("accueil!N27") = "3" Then
Range("M34") = Range("accueil!E3")
End If
' Plages Vendredi Après Midi '
Range("T32") = Range("accueil!E25")
Range("T33") = Range("accueil!E26")
If Range("accueil!N28") = "3" Then
Range("T34") = Range("accueil!E24")
End If
Range("X32") = Range("accueil!E28")
Range("X33") = Range("accueil!E22")
If Range("accueil!N29") = "3" Then
Range("X34") = Range("accueil!E31")
End If
Range("AB32") = Range("accueil!E24")
Range("AB33") = Range("accueil!E21")
If Range("accueil!N30") = "3" Then
Range("AB34") = Range("accueil!E32")
End If
ini
Exit Sub
fin:
MsgBox "Existe déjà !"
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
ini
Exit Sub
Sheets("accueil").Select
Range("A1").Select

End Sub
Sub ini()
Range("Original!A1") = ""
Range("Original!F1") = ""
Range("Original!O1") = ""

Unload UserForm07

End Sub
Private Sub CommandButton2_Click()
ini
End Sub