XL 2013 Problème sur un code VBA

Egypto95

XLDnaute Nouveau
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

XLDnaute Nouveau
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")
 

Phil69970

XLDnaute Barbatruc
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
1704818808304.png

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

C'est quoi ceci ????

1704818949001.png
 
Dernière édition:

Egypto95

XLDnaute Nouveau
Bonjour
Bonjour @Egypto95 et bienvenu sur XLD

Et on fait comment pour t'aider ??

Sans fichier on est proche de la voyance !!
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")
 

Phil69970

XLDnaute Barbatruc
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 o_O

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 :
1704826428999.png


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......
 

Egypto95

XLDnaute Nouveau
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)

1704884255665.png


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.

1704884311222.png

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

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.

1704888563496.png

1704888359921.png
J'aimerais que toute les lignes du bon apparaissent, mais je n' y arrive pas...
ce la efface toute les données de dessous.

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

J'aimerais arrivé à ca.
1704888233610.png


Dis moi si c'est assez clair comme ca ?
 

Pièces jointes

  • 1704886679530.png
    1704886679530.png
    18.1 KB · Affichages: 4
  • 1704885873258.png
    1704885873258.png
    25.5 KB · Affichages: 3
  • 1704885666369.png
    1704885666369.png
    25.6 KB · Affichages: 2
  • 1704885554949.png
    1704885554949.png
    26.7 KB · Affichages: 3
Dernière édition:

Phil69970

XLDnaute Barbatruc
Bonjour @Egypto95

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

Je t'ai demandé ceci :
4) Peux tu mettre un exemple complet rempli à la main des feuilles Retour et Bon retour
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.
 

Egypto95

XLDnaute Nouveau
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.
 

Egypto95

XLDnaute Nouveau
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.
 

Pièces jointes

  • Application_Forum .xlsm
    117.2 KB · Affichages: 1

Phil69970

XLDnaute Barbatruc
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"
1704903287272.png

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 ?
 

Discussions similaires

Réponses
5
Affichages
163
Réponses
2
Affichages
331
Réponses
9
Affichages
222

Statistiques des forums

Discussions
312 534
Messages
2 089 386
Membres
104 154
dernier inscrit
Patou