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

S
  • Résolu(e)
XL 2019 VBA
2
Réponses
18
Affichages
736
sabagof
S
K
  • Question
XL 2016 Problème userform VBA.
Réponses
11
Affichages
486
Franc58
F
E
  • Question
XL 2016 aide tableau acompte
Réponses
5
Affichages
254
chris
chris
V
  • Question
Microsoft 365 VBA deux document Excel
Réponses
10
Affichages
475
vroumvroum
V
J
  • Résolu(e)
XL 2013 Créer une macro avec un fichier pour envoyer par mail
Réponses
7
Affichages
353
TooFatBoy
TooFatBoy
P
  • Question
Microsoft 365 effacer commentaire
Réponses
7
Affichages
445
job75
job75
T
  • Résolu(e)
XL 2019 Problème tableau structuré et code vba
2
Réponses
28
Affichages
1 K
Cousinhub
Cousinhub
B
  • Question
Autres Problème de macro
2
Réponses
17
Affichages
540
BDMNLLL47
B
O
  • Question
XL 2019 Optimiser la loudeur de mon code VBA
Réponses
1
Affichages
301
Dranreb
Dranreb
D
  • Résolu(e)
XL 2021 Créer feuilles automatiquement dans un classeur a partir d'une liste et lien hypertexte
Réponses
6
Affichages
497
Phil69970
Phil69970
B
  • Résolu(e)
Microsoft 365 Problème dans formule VBA
Réponses
7
Affichages
219
BOILEAU
B
N
  • Question
Microsoft 365 Suivi production et gestions des stocks matière première et produits finis
Réponses
2
Affichages
424
nathalieg13
N
M
  • Question
XL 2019 Copier des lignes les unes a la suite des autres dans une autre feuille sous conditions et seulement certaines colonnes
Réponses
7
Affichages
648
MGH
M
H
  • Question
XL 2013 Saisie sécurisée numéros de téléphone et ajout fonction clic droit de la souris
2
Réponses
21
Affichages
648
Helios77
H
pilou010
  • Résolu(e)
XL pour MAC Fusion de 2 feuilles dont l'une est issue de Power Query
Réponses
5
Affichages
416
chris
chris
O
  • Question
XL 2019 resoudre la loudeur de Bdd du vba
Réponses
4
Affichages
461
mapomme
mapomme
riton00
  • Résolu(e)
XL 2021 Modification d'un code VBA
Réponses
5
Affichages
364
kiki29
kiki29
jeff1494
  • Question
XL 2021 Plantage Excel lors d'une exécution avec un point d'arrêt dans le code.
Réponses
4
Affichages
253
jeff1494
jeff1494
M
  • Question
XL 2019 étirer liste déroulante
Réponses
10
Affichages
472
milckush
M
O
  • Question
XL 2019 boutons sur formulaire non fonctionnels
2 3
Réponses
35
Affichages
1 K
olivier1984
O

Membres actuellement en ligne

11 membres et 121 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
315 236
Messages
2 117 636
Membres
113 215
dernier inscrit
guillet