Remplir un tableau à deux entrées avec un userform d'un autre classeur

  • Initiateur de la discussion Initiateur de la discussion clem8756
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

clem8756

XLDnaute Nouveau
Bonjour,
Je recherche depuis un moment sur votre forum une réponse à ma question, mais je ne trouve pas Je suis débutante en programmation c'est pourquoi je sollicite votre aide.🙄

Je suis en train de créer un formulaire, pour saisir tous les jours les heures travaillées par des ouvriers. Pour cela j'ai un userform, où je choisis la date avec un contrôl calendar, et je sélectionne le nom des ouvriers avec un contrôl comboBox. Ensuite, je saisie les heures correspondant à chaque ouvriers dans un Textbox. Cette étape est réalisée dans un classeur nommé suivi.

Je souhaite récupérer ces heures dans un second classeur nommé Pointage. Dans ce classeur j'ai un tableau dont les colonnes représentent les jours de la semaine, et les lignes les noms des ouvriers. J'aimerais que les heures de chaque ouvrier se placent à la bonne intersection colonne/ligne. Pour l'instant je n'y arrive pas, le second classeur s'ouvre mais rien ne se passe

Mon code se présente comme suit:
(classeur suivi, combobox4:nom des ouvriers, DTPicker1: jours de la semaine, Heures1T1: heures pour une ouvrier)

Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Dim Fichier As String, Repdefaut As String


RepPardefaut = "E:"

Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls", , "Sélectionner un fichier.")
If Answer = vbCancel Then Exit Sub
If Fichier <> "" Then
Workbooks.Open Fichier

With ActiveWorkbook.Sheets("Avril")

.Range(Pointage_Equipe.Combobox4.Value & Pointage_Equipe.DTPicker1.Value).Value = Heures1T1.Value


End With
End If

Application.ScreenUpdating = True
Application.DisplayAlerts = True

Si quelqu'un à la réponse à mon problème, merci de me la communiquer! 🙂

A bientôt
 
Re : Remplir un tableau à deux entrées avec un userform d'un autre classeur

Bonjour clem et bienvenue sur le forum

Toujours pas de réponse 3 heures après avoir posé la question
............ c'est qu'il y a un problème 😕😕😕

Clique ci-dessous et va voir le point 3C:
Lien supprimé

sans voir ton fichier, cette ligne me parait 😡😡😡
.Range(Pointage_Equipe.Combobox4.Value & Pointage_Equipe.DTPicker1.Value).Value = Heures1T1.Value

à+
Philippe
 
Re : Remplir un tableau à deux entrées avec un userform d'un autre classeur

Bonjour,

Veuillez trouver ci-joint les fichiers qui vous permettront de "comprendre" mon travail et la question que je vous pose.

La partie concernée se trouve dans Suivi et dans le userform Pointage_Equipe. Et c'est lorsque j'utilise le bouton "Pointage Ouvriers" qu'il y a un problème. C'est à ce moment que je souhaite que les informations soient transférées dans le fichier "Pointage Ouvriers".

J'espère être suffisamment claire... 😕

A bientôt

Clem
 

Pièces jointes

Re : Remplir un tableau à deux entrées avec un userform d'un autre classeur

Je ne sais pas si mon fichier n'est pas clair, ou si ma question semble désuète, mais je suis vraiment perdue... si quelqu'un pouvait m'aider cela me soulagerait énormément dans mon travail.

Merci de votre compréhension

Clem
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour