Re, tout le monde
Re, Mimimathy
alors comme je veux suivre tes conseils, j’ai commencé à refaire le tout et de mettre l’ensemble dans un classeur et je garde uniquement des autres pour les archivages.
Ci-joint, le fichier « TDB » (qui sert juste comme essai) il est comme l’original, sauf que j’ai pas mis l’ensemble pour le moment.
Sur l’onglet « ACCUEIL PILOTE RESTAURATION » on peut appeler le "UserForm « HEURES ».
Par contre j’ai un soucis avec le code qui se trouve dans le UserForm « HEURES ». Lorsque je saisi les heures dans les Textbox de ce dernier et que je valide il m’affiche une erreur.
Je voudrai aussi que tu jettes un coup d’oeil au code qui se trouve dans l’onglet « RELEVES DES HEURES » Je n’ai pas eu de bug avant avec cet onglet, mais on ne sait jamais !
Merci d’avance pour ton aide.
Cdt Rubis57
TDB.xlsm (111,9 Ko)
Re Mimimathy,
le code dans l’onglet « RELEVES DES HEURES » c’est OK, j’ai retrouvé à quoi il sert donc on peut le laisser.
Re,
je me suis creusé un peu la tête Mimimathy .
Alors j’arrive à faire en sorte qu’il prends en charge les données que je saisi dans le UserForm .
Tu veux juste vérifier le code de ce dernier si c’est ok pour toi ?
Merci d’avance
Rubis57
TDB.xlsm (116,0 Ko)
Peut-être sur un salarié, mais avec un deuxième c’est la CATA
Déjà sur relevé des heures en B8, j’ai un #REF pour le taux horaire brut
ensuite, tu enfiles toutes les lignes + 1 alors qu’il y a deux lignes vides + une ligne avec la date pour le deuxième → NIET
Il faut faire une boucle avec un saut (STEP +9 )
Bref il y a encore beaucoup à revoir, demain matin, il fera jour
MERCI.
Pas de soucis, a demain et bonne nuit
Re,
Le mieux encore était de renommer les TextBox
A tester
TDB (6).xlsm (112,7 Ko)
Bonjour,
Merci pour ton retour.
Donc si j’ai bien compris tu as changer le nom des textbox ?
Et pour ce que tu avais écris hier soir
« Peut-être sur un salarié, mais avec un deuxième c’est la CATA
Déjà sur relevé des heures en B8, j’ai un #REF pour le taux horaire brut
ensuite, tu enfiles toutes les lignes + 1 alors qu’il y a deux lignes vides + une ligne avec la date pour le deuxième → NIET
Il faut faire une boucle avec un saut (STEP +9 ) » ?
Autre solution de macro plus réduite en nommant les TextBox avec la correspondance des lignes
OK.
Par contre j’ai un soucis ! j’ai bien recopié le tout dans mon fichier réel (les " onglets sont identiques) mais il décale des cellules dans l’onglet « RELEVE DES HEURES »
Comme d’habitude,
Je t’ai précisé que les TextBox sont renommés
Et tu ne place pas les fichiers définitifs, donc après, BUG
j’ai déplacé ton onglet « RELEVE DES HEURES » dans mon fichier et j’ai renommé les TextBox !
Il me décale déja le premier salarié de quelques lignes tu vois
Re,
C’est pas avec une image que je vais résoudre ton problème
J’ai compris, tu as changé le nom de tous les TextBox , je viens de remplacer mon UserForm par le tiens et ça fonctionne.
Je t’avais mal compris, désolé.
Mais ça rentre tout doucement tu vois 
Je vois la suite dans la journée et te tiens informé.
Merci beaucoup 
Rubis57
Re,
alors voila j’ai beaucoup travaillé sur le changement de mon sujet.
Dans le fichier exemple « TDB » ci-joint il y a les trois onglets du stock et lorsque j’ouvre mon fichier réel et que j’ouvre l’onglet « STOCK » il m’affiche une erreur dans une des trois dernières lignes du code de l’onglet « STOCK »
Private Sub Worksheet_Activate()
If [Tab_1].ListObject.AutoFilter Is Nothing Then
[Tab_1].AutoFilter
End If
End Sub
Sub initValeurs()
Valeurs = Application.Transpose(Range(« Tabl_1[Désignation] »))
End Sub
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = False Then Application.Calculate (il affiche cette ligne en jaune)
End Sub
tu peux en conclure quelque chose comme ça ?
Merci d’avance à toi
Rubis57
TDB.xlsm (166,9 Ko)
Re,
que veut faire par cette routine
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = False Then Application.Calculate
End Sub
Re,
Pour le moment cela fonctionne. Je n ai pas compris yon message « que veut faire cette routine »?
Re,
Tu voulais dire quoi avec" que veut faire par cette routine" ?
Qu’est censé faire cette macro
Re,
je pensais que tu allais me le dire. Donc d’après toi tout le code sur cet onglet ne sert à rien ?
