cs_lesims1000
Messages postés26Date d'inscriptionmercredi 8 avril 2009StatutMembreDernière intervention21 novembre 2011
-
8 avril 2009 à 12:23
cs_lesims1000
Messages postés26Date d'inscriptionmercredi 8 avril 2009StatutMembreDernière intervention21 novembre 2011
-
9 avril 2009 à 20:21
Bonjour,
J’ai créer un tableau de gestion de clientèle, j'ai 2 fichiers: un fichier avec un tableau sous forme de semaine et dans chaque semaine y figure un nombre de client avec un nombre d'heures différents pour chaque client (voir fichier "planning fabrication"). Ensuite j'ai un 2eme fichier avec un tableau regroupant chaque client (un client par ligne) dans se classeur j'ai 3 feuilles: "listing", "archive" et "heures de fab".
Dans la feuille listing j'ai fait une macro "création d'une nouvelle ligne" quant-on clique dessus, une nouvelle ligne en haut du tableau se crée (ligne 19) je voudrai qu'une nouvelle ligne se crée en même temps dans la feuille "heures de fab" (en ligne 14), comment faire ??
Ensuite plus compliqué !!
Dans la feuille "heures de fab" dans la colonne G doit figurer le nombre d'heure que j'entre dans le classeur "planing de fabrication" pour mon exemple sa serra la cellule B14 et B15. jusque là pas de problème avec un lien, le seul problème est qu'il faudrait que ce lien se fasse automatiquement en fonction du nom du client. ex si le nom du client est: TEST il faut que la cellule de la colonne "G" de la feuille "heures de fab" aille chercher les cellules correspondante dans le classeur "planning de fabrication" en fonction du nom du client (cellule B17). Mais l'emplacement du client "TEST" peut être amené à changer, passer de Semaine 15 à Semaine 16 par exemple.
c'est un peut compliquer à comprendre, mais à expliquer via texte interposé n'est pas facile non plus
cnt
Messages postés219Date d'inscriptionlundi 21 novembre 2005StatutMembreDernière intervention20 décembre 20101 9 avril 2009 à 19:50
Bonjour lesims1000,
Pour ta première demande, je te propose cette solution:
Sub nouvelle_affaire()
' insertion d'une ligne
Sheets("listing").Rows(19).Insert
' insertion d'une ligne
Sheets("Heure de Fab").Rows(14).Insert
' ici on copie le format de la ligne suivante pour l'appliquer sur la nouvelle ligne insérée, parce que celle-ci a la couleur(indigo) de la ligne prédente
Sheets("Heure de Fab").Rows(15).Copy
' pour l'appliquer sur la nouvelle ligne insérée
Sheets("Heure de Fab").Rows(14).PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False
End Sub
Je verrai plus tard, pour tes autres questions.
CNTJC