XL 2013 Problème sur un code VBA

Avec le code c'est mieux




Sub Retour_enregistrer()

' creation d'une ligne du tableau de suivi
Sheets("Bon retour").Range("E10").EntireRow.Insert

'Date de bon
Sheets("Bon retour").Range("F10").Value = Sheets("Retour").Range("J9").Value

'Numéro de bon
Sheets("Bon retour").Range("E10").Value = Sheets("Retour").Range("J10").Value

'Nom du sous traitant
Sheets("Bon retour").Range("G10").Value = Sheets("Retour").Range("I14").Value

'Etat - Rendu/ Non-Rendu
Sheets("Bon retour").Range("H10").Value = Sheets("Retour").Range("J38").Value

' Désignation du materiels
Sheets("Bon retour").Range("k10").Value = Sheets("Retour").Range("F20").Value
Sheets("Bon retour").Range("k11").Value = Sheets("Retour").Range("F21").Value
Sheets("Bon retour").Range("k12").Value = Sheets("Retour").Range("L11").Value
Sheets("Bon retour").Range("k10").Value = Sheets("Retour").Range("F20").Value
Sheets("Bon retour").Range("k10").Value = Sheets("Retour").Range("F20").Value
Sheets("Bon retour").Range("k10").Value = Sheets("Retour").Range("F20").Value
Sheets("Bon retour").Range("k10").Value = Sheets("Retour").Range("F20").Value
Sheets("Bon retour").Range("k10").Value = Sheets("Retour").Range("F20").Value

' Quantité du materiels sortie
Sheets("Bon retour").Range("L10").Value = Sheets("Retour").Range("I20").Value
Sheets("Bon retour").Range("L11").Value = Sheets("Retour").Range("I21").Value

'Définition par défaut
Sheets("Bon retour").Range("H10").Value = "Rendu"


Dim nomDocument As String, dossierAdresse As String
dossierAdresse = Sheets("Parameters").Range("K13").Value & "\"
nomDocument = Sheets("Retour").Range("J10").Value

Sheets("Bon retour").Range("Q10").Value = dossierAdresse & nomDocument & ".pdf"
With Sheets("Bon retour").Hyperlinks.Add(Sheets("Bon retour").Range("I10"), Address:=dossierAdresse & nomDocument & ".pdf", TextToDisplay:="Consulter")
.Range.Font.Name = "Product Sans Ms"
.Range.Font.Color = RGB(60, 65, 205)
.Range.Font.Size = 11
End With


Dim wb As Workbook, feuille As Worksheet
Dim plage As String
Dim iVis As XlSheetVisibility

Set wb = ThisWorkbook
Set feuille = wb.Sheets("Retour")

Bonjour @Egypto95 et bienvenu sur XLD

Et on fait comment pour t'aider ??

Sans fichier on est proche de la voyance !!

Et avec le code entre balise c'est plus lisible

De plus ton code n'est pas complet !!!!

C'est quoi ceci ????

Bonjour

Phil69970 à dit:

Bonjour @Egypto95 et bienvenu sur XLD

Et on fait comment pour t'aider ??

Sans fichier on est proche de la voyance !!

Cliquez pour agrandir...

Bonjour Phil,

Désolé j'ai posté mon code juste après m'être rendu compte de mon oubli

Donc voici le code qui me pose problème, et voila ce que j'aimerais obtenir.

Je crée des bons de Retour de matériels (Feuille_Retour), sur les bons , la date, un numéro de bon sont créer automatiquement. Des champs comme la désignation et la quantité sont remplir par l'utilisateur.
J'ai un tableau de suivi de ces retours (Feuille Bon retour) sur lesquelles j'aimerais faire apparaitre les données saisie dans le bon. alors mon code fonctionne très bien si le bon ne comporte qu'une seul ligne de designation mais si j'ai plusieurs ligne. Elle s'efface automatiquement sur mon tableau de suivi.

J'espère que j'ai été clair?

Sub Retour_enregistrer()

' creation d'une ligne du tableau de suivi
Sheets("Bon retour").Range("E10").EntireRow.Insert

'Date de bon
Sheets("Bon retour").Range("F10").Value = Sheets("Retour").Range("J9").Value

'Numéro de bon
Sheets("Bon retour").Range("E10").Value = Sheets("Retour").Range("J10").Value

'Nom du sous traitant
Sheets("Bon retour").Range("G10").Value = Sheets("Retour").Range("I14").Value

'Etat - Rendu/ Non-Rendu
Sheets("Bon retour").Range("H10").Value = Sheets("Retour").Range("J38").Value

' Désignation du materiels
Sheets("Bon retour").Range("k10").Value = Sheets("Retour").Range("F20").Value
Sheets("Bon retour").Range("k11").Value = Sheets("Retour").Range("F21").Value
Sheets("Bon retour").Range("k12").Value = Sheets("Retour").Range("L11").Value
Sheets("Bon retour").Range("k10").Value = Sheets("Retour").Range("F20").Value
Sheets("Bon retour").Range("k10").Value = Sheets("Retour").Range("F20").Value
Sheets("Bon retour").Range("k10").Value = Sheets("Retour").Range("F20").Value
Sheets("Bon retour").Range("k10").Value = Sheets("Retour").Range("F20").Value
Sheets("Bon retour").Range("k10").Value = Sheets("Retour").Range("F20").Value

' Quantité du materiels sortie
Sheets("Bon retour").Range("L10").Value = Sheets("Retour").Range("I20").Value
Sheets("Bon retour").Range("L11").Value = Sheets("Retour").Range("I21").Value

'Définition par défaut
Sheets("Bon retour").Range("H10").Value = "Rendu"


Dim nomDocument As String, dossierAdresse As String
dossierAdresse = Sheets("Parameters").Range("K13").Value & "\"
nomDocument = Sheets("Retour").Range("J10").Value

Sheets("Bon retour").Range("Q10").Value = dossierAdresse & nomDocument & ".pdf"
With Sheets("Bon retour").Hyperlinks.Add(Sheets("Bon retour").Range("I10"), Address:=dossierAdresse & nomDocument & ".pdf", TextToDisplay:="Consulter")
.Range.Font.Name = "Product Sans Ms"
.Range.Font.Color = RGB(60, 65, 205)
.Range.Font.Size = 11
End With


Dim wb As Workbook, feuille As Worksheet
Dim plage As String
Dim iVis As XlSheetVisibility

Set wb = ThisWorkbook
Set feuille = wb.Sheets("Retour")

Bonjour,

Comme a dit le camarade Phil69970 écrit ainsi le code n'est pas très lisible :

Phil69970 à dit:

Et avec le code entre balise c'est plus lisible

Cliquez pour agrandir...

Sinon, utilises manuellement la balise code=vb.

Re
Bonjour TFB

@Egypto95

1) J'ai toujours pas vu ton fichier

2) Le code n'est pas complet

3) Il faut mettre le code entre balise pour la lisibilité du code


En clair tout ce que je t'ai demandé dans mon 1er post ......

Désole comme évoqué je suis novice, aussi bien dans le codage que sur le forum.

Sorry

Voici le fichier ce sera peut-être plus simple.

Re
@Egypto95

Je te fais le 1er retour vite fait de ce que j'ai vu

1) D'abord sans aucune donnée dans ton fichier c'est pas évident de comprendre le pb
Tu aurais pu expliquer dans quelle feuille ce situe le PB et mettre des données bidons !!!

2) Tu as des tableaux structurés et on écrit pas un code comme cela avec des TS

3) Tu n'auras jamais plus de 13 retours pour un même numéro de bon retour ?
4) Peux tu mettre un exemple complet rempli à la main des feuilles Retour et Bon retour
Je veux pas de code juste le résultat complet rempli à la main je m'en fou des valeurs
Exemple :


et ce que cela donnerait dans la feuille Bon retour rempli à la main

5) Faire un hyperlien avant le fichier PDF ne me semble pas logique
Perso je ferais d'abord le PDF et ensuite l'hyperlien mais c'est un détail

J'attends donc un fichier rempli avec des données à la main dans au moins les 2 feuilles que j'ai cité plus haut remplies......

Bonjour Phil,
Déja merci pour ton aide.

1) Le problème se situe dans la feuille bon retour (Il devrait en fait s'appelait Suivi bon Retour)
Lorsque je crée une Fiche de Retour de matériels (Feuil Retour)



Les données sont enregistré dans un tableau (Bon retour)
Un lien hypertexte vers un le bon enregistrer en local et en PDF consultable en cas de perte.


Quand je créer un nouveau bon pas de soucis les données sont enregistré à la suite sans soucis.

Si je n'ai qu'un seul matériels

Par-contre quand je je crée un bon avec plusieurs matériels, il n'y que la première ligne qui est enregistrée.


ce la efface toute les données de dessous.

Concernant les bons je n'aurais jamais plus de 13 retour.

J'aimerais arrivé à ca.


Dis moi si c'est assez clair comme ca ?

Bonjour @Egypto95

Tu n'y pas pas trop du tien !!!

Je t'ai demandé ceci :

Phil69970 à dit:

4) Peux tu mettre un exemple complet rempli à la main des feuilles Retour et Bon retour

Cliquez pour agrandir...

Et tu me mets des images !!!!
Donc il faut que je retranscrive tes images dans ton fichier et bien je verrais quand j'aurais le temps de le faire .... pour avancer sur ton fichier.

Désole mais je ne comprends pas ta requête.
Je t'envoie le fichier tu n'en veux pas
Je t'envoie je t'envoie des capture rempli manuellement tu n'en veux pas

Je ne connais pas ta façon de codé, ni même de travailler....
Comme tu as pu le voir dans mon premier post je débute dans le VBA. Et je demande de l'aide, je ne souhaite en aucun cas te déranger.

Re
Ou tu as vu que je ne voulais pas de fichier

Egypto95 à dit:

Je t'envoie le fichier tu n'en veux pas

Cliquez pour agrandir...

J'ai toujours écris que je voulais un fichier voir mes post #3, #5 , # 9

Ha désolé bon je te renvoi donc mon fichier avec les modification à la main à la main
Les lignes 13 et 14 de la feuille Bon retour sont à titre d'exemple, et c'est également le rendu que j'ai quand je crée mes bons de retour.
Le problème se situe en Ligne 10, quand je crée un bon avec plusieurs référence en désignation, la première et bien afficher, mais la les autres référence.
Donc j'aimerais arriver à ce que je t'ai envoyer dans le bon retour.

Re

Super

Encore une dernier précision que je comprenne bien
La feuille "bon retour" à 3 clients et donc 3 N° de bon différents cela veut il dire que :
1) Tu remplis la feuille "Retour" pour le client 1
2) Tu envoies les données du client 1 "Retour" dans la feuille "Bon retour"
Jusque la j'ai compris

puis c'est ici que je ne comprends pas trop ce que tu veux faire
3) tu effaces la feuille "Retour" pour le client 1 et tu remplis la feuille "Retour" pour le client 2
4) Tu envoies les données du client 2 "Retour" dans la feuille "Bon retour"
5) Tu effaces la feuille "Retour" pour le client 2 et tu remplis la feuille "Retour" pour le client 3
6)) Tu envoies les données du client 3 "Retour" dans la feuille "Bon retour"

C'est a priori la seule façon pour avoir 3 clients différents dans la feuille "Bon retour"

Peux tu me confirmer ceci ou si c'est autre chose me l'expliquer

Et que fais tu des données dans la feuille "Bon retour" , est ce une sorte d'archives des retours ?