XL 2013 Problème sur un code VBA

E

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.
 
Trier par date Trier par votes
E

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")
 
Vote positif 0 Vote négatif
Phil69970

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:
Vote positif 0 Vote négatif
E

Egypto95

XLDnaute Nouveau
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")
 
Vote positif 0 Vote négatif
Phil69970

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......
 
Vote positif 0 Vote négatif
E

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: 3
  • 1704885873258.png
    1704885873258.png
    25.5 KB · Affichages: 2
  • 1704885666369.png
    1704885666369.png
    25.6 KB · Affichages: 1
  • 1704885554949.png
    1704885554949.png
    26.7 KB · Affichages: 2
Dernière édition:
Vote positif 0 Vote négatif
Phil69970

Phil69970

XLDnaute Barbatruc
Bonjour @Egypto95

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

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.
 
Vote positif 0 Vote négatif
E

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.
 
Vote positif 0 Vote négatif
E

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
Vote positif 0 Vote négatif
Phil69970

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 ?
 
Vote positif 0 Vote négatif

Discussions similaires

A
  • Question
Autres Créer un tableau de suivi des encaissements clients avec excel 2007
Réponses
5
Affichages
168
Aragorn60
A
N
  • Résolu(e)
XL 2016 Formule sur fichier excel, entre onglet
Réponses
14
Affichages
398
Nicolas37
N
B
  • Résolu(e)
XL 2016 suivi de projet
Réponses
2
Affichages
283
BRUNO GILL
B
H
  • Résolu(e)
XL 2021 Fiche de non conformité et tableau de suivi
2
Réponses
15
Affichages
895
Phil69970
Phil69970
A
  • Question
XL 2016 suivi vérifications matériel
Réponses
4
Affichages
173
amelie.chapus@tannerielim
A
E
  • Question
XL 2019 Incrémentation avec saut de lignes
Réponses
7
Affichages
283
EUPH974
E
C
  • Question
Microsoft 365 Problème Code VBA
Réponses
9
Affichages
160
fanch55
fanch55
S
  • Question
Autres destination Combobox1
Réponses
4
Affichages
134
stefezj
S
G
  • Question
Microsoft 365 Reconstitution stock a date - besoin d'aide
Réponses
0
Affichages
144
GregH
G
Q
  • Question
XL pour MAC Histogramme de distribution - anthropologie biologique
Réponses
3
Affichages
129
sylvanu
sylvanu

Membres actuellement en ligne

14 membres et 116 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 209
Messages
2 086 267
Membres
103 168
dernier inscrit
isidore33