XL 2013 Problème sur un code VBA

[Egypto95]

Bonjour à tous,

j'ai besoin de votre aide, j'ai problème avec un de mes code VBA, je suis novice et j'aimerais vraiment de l'aide.

Je suis en train de développer une "Application" avec création de bon et tableau de suivi.

Mais pour mon tableau de suivi je n'arrive pas a faire apparaitre les éléments de mon bon sans qu'il ne s'efface.

 

[Egypto95]

oui c'est exactement ca, la feuille "Retour" il y a 3 boutons :

Le bouton Nouveau: Qui incrémente le numéro de bon de la feuille "Retour" automatiquement en fonction de la date et qui vide les dernières données du client précèdent

Le bouton Annuler: Qui vide le formulaire "Retour" en cas d'erreur

Le bouton Imprimer: Qui crée un PDF qui est imprimer pour la sauvegarde papier et stocker dans un classeur ( ce qui devrait disparaitre a termes) et qui s'enregistre dans un dossier en Local pour sauvegarde en cas de perte papier d'où le lien hypertexte (consulter)

 

[Phil69970]

Ok j'ai compris pour la feuille "Retour"
Mais pour la feuille "Bon retour" ??
Est ce une sorte d'archives des retours ???
Et plus généralement à quoi elle sert ?

 

[Egypto95]

Oui c'est effectivement un tableau de suivi et d'archivage.
A termes j'aimerais récolter les données des quantités et désignation par client pour voir ou l'on perd du matériels en gros!

 

[Phil69970]

Ok maintenant que j'ai compris le fonctionnement je vais voir ce que je peux faire

 

[Egypto95]

 

[Phil69970]

Bonjour @Egypto95

Il me manque juste 2 détails pour tout finaliser
Les chemins complets de tous ces dossiers d'enregistrement de la feuille parametre

Exemple : C:\bidule\truc\MonRepertoire\Machin\

Et le nom et chemin complet ou se trouve le fichier excel

Exemple : C:\bidule\truc\MonRepertoire\monFichier.xlsm

 

[Egypto95]

Bonjour @Phil69970,

Voici les chemins pour chaque dossiers

Retour Matériels	C:\Users\GROUPE-I2T\Desktop\Documents\Retour
Sortie Matériels	C:\Users\GROUPE-I2T\Desktop\Documents\Sortie
EPI / TENUE	C:\Users\GROUPE-I2T\Desktop\Documents\EPI
Planning Privée	C:\Users\GROUPE-I2T\Desktop\Documents\Planning_Privée
Retour-sortie	C:\Users\GROUPE-I2T\Desktop\Documents\Bon Retour
Planning Public	C:\Users\GROUPE-I2T\Desktop\Documents\Planning_Public

Voici le chemin du fichier

C:\Users\GROUPE-I2T\Desktop\ALEX\Excel

Voila

 

[Phil69970]

@Egypto95

Je te propose ce fichier

J'ai juste fait le code qui envoie les valeurs de la feuille "Retour" à la feuille "Bon retour"
J'ai commenté le code (voir le module 6)

Fait des tests il y a du ménage à faire dans les autres modules ......

Tu devrais voir ou revoir la gestion des tableaux structurés
==> https://laurent-ott.developpez.com/tutoriels/Tableaux-Structures/

Merci de ton retour

 

[Phil69970]

@Egypto95

J'ai un peu optimisé le code

Les feuilles "Retour", "Sortie" et "EPI" font les mêmes choses à 99% donc ont peu les rationaliser

==> Retour en totalité ,Sortie tous sauf une "sub" , EPI en partie

Merci de ton retour

 

[Egypto95]

Bonjour @Phil69970,

merci beaucoup pour ce code, effectivement les taches que je me mets en place sont effectivement les mêmes pour les Retour Sortie, la gestion des EPIs.

Concernant les commentaires dans le code, tu me demande l'utilité d'afficher le PDF lors de la création du bon

Je veux que la personne qui utiliseras l'outil, imprime le bon lors de sa création dans un premier temps car je veux vraiment qu'il prenne l'outil en main. Et que je n'ai pas de perte d'infos. Même si le rendu de ton code et parfait Je sais que si la fenêtre ne s'ouvre pas lors de la création, il va oublier de l'imprimer.

 

[Phil69970]

@Egypto95

Concernant les commentaires dans le code, tu me demande l'utilité d'afficher le PDF lors de la création du bon

Si tu veux remettre l'ouverture du pdf il te suffit de supprimer l'apostrophe

Variante :
On peut forcer l'impression sans demander à l'utilisateur et avec ou sans ouverture du PDF


As tu regarder la V2 ?

 

[Egypto95]

Bonjour @Phil69970,

Oui désolé pour le temps de réponse mais entre le WE et le temps de regarder le code.
Alors je tenais a te remercier car les explication que tu me donne dans le code sont top!!!!

Même si je ne suis qu'au début de mon apprentissage!

Mais il subsiste encore une petite chose que je n'arrive pas a résoudre.
J'ai pu créer un tableau de suivi "Bon Sortie" qui fonctionne bien.

Dans ma feuille "Retour", le N° de bon est nommé R2024-01-0001

R comme Retour

Dans ma feuille "Sortie", le N° de bon est nommé E2024-1-0001, j'aimerais S2024-1-0001
Dans ma feuille "Epi", Le N° de bon est nommé I2024-1-0001, j'aimerais E2024-1-001

Mais je ne vois pas ou je peux modifier ce paramètres.

 

[Phil69970]

@Egypto95

Bug de ma part..... que j'ai pas vu .....
Dans le code VBA ==> Tu vas dans le module commun (Mod_Commun)

Dans la sub Nouveau

Tu remplaces ET UNIQUEMENT ceci :

UCase(Right

Par

UCase(Left

Tu dois avoir 2 remplacements à faire

Et cela fonctionne beaucoup mieux

 

[Egypto95]

@Phil69970

Bonjour,
merci pour cette modif, même si je n'est pas vraiment compris comment cela fonctionné.
Mais cela fonctionne !!!!

Merci pour ton aide très précieuse.

 

[Phil69970]

@Egypto95

même si je n'est pas vraiment compris comment cela fonctionné.
Mais cela fonctionne !!!!

Je récupère la 1ere lettre lettre à gauche du nom de la feuille donc si ta feuille s'appelle :
==> EPI ==> E
==> Sortie ==> S
==> Retour ==> R

Et comme j'ai fait les tests sur Retour J'ai pas pu remarquer mon erreur

Left ==> Gauche
Right ==> Droite

Pourtant c'est facile :
==> la droite c'est quand tu tends la main là ou le pouce est à gauche
==> la gauche c'est quand tu tends la main là ou le pouce est à droite