Liste bon avec vba

[bennisay]

BONJOUR
Ce que je veux , c est on remplissant le bon livraison , je reçois automatiquement tous les information dans le tableau comme presnté dans la feuille LISTE BON . Et ca pour tous les bons a saisir apres .vous allez trouvez ci joint un fichier bien expliqué

 

[Staple1600]

Re : Liste bon avec vba

Re

bennisay
Si tu fais des essais avec l’enregistreur de macros, ne les effaces surtout pas !!
1) Ça m'évitera d'écrire pour rien des messages comme le message #27.
2) Ça nous permettra de voir ce qui cloche dans tes essais 😉

PS: Tu as essayé ma macro 1 ?
Elle fonctionne non ?

 

[bennisay]

Re : Liste bon avec vba

BONSOIR
Staple1600
C est bon je viens de reussir cet phase

 

[bennisay]

Re : Liste bon avec vba

BONJOUR
Je sais maintenant pourkoi j ai pas reussi la macro au depart j avais premierement enregistre mon classeur sous format excel ne prenant pas en charges les macros et deusienement j avais le code de securite macro acctive donc je pouvais pas enregistere la macro dans VBA.
j ai une question dans le fichier ci joint
et merci

 

[Staple1600]

Re : Liste bon avec vba

Bonsoir à tous

bennisay
Il serait utile que tu cherches à comprendre le code VBA que je t'ai proposé précédemment, non ?
Ta nouvelle question parle d'insérer la colonne J
Tu devines vraiment pas ce qu'il faut faire sur cette ligne (extraite de mon code VBA) ? 🙄
col = Array("D", "H", "E", "F", "G", "I")

Je te laisse mettre les mains dans le cambouis.

Question: Pourquoi tu changes la structure du classeur en cours de route ?
https://www.excel-downloads.com/threads/liste-bon-avec-vba.219182/

NB: Inutile de multiplier les posts pour la même question comme te l'ont fait remarquer Hasco et d'autres membres sur le fil de discussion que tu as inutilement créé aujourd'hui ... 🙄

 

[bennisay]

Re : Liste bon avec vba

Re
OUI c est ce que je fais maintenant j essaye de comprendre ta macro
j ai modele un deusieme code pour une nouvelle fonction le voila
Sub ab()
Dim derArt&, rngV As Range, X&, i, col, Dlg&, f As Worksheet
Set f = Sheets("Bon Liv")
derArt = f.Cells(Rows.Count, "M").End(xlUp).Row
col = Array("D", "H", "E", "F", "G", "I")
Set rngV = f.Range(Cells(7, "M"), f.Cells(derArt, "R")): X = rngV.Rows.Count
With Sheets("Encaissmt")
Dlg = .Cells(Rows.Count, "A").End(xlUp).Row + 1
For i = 1 To 6
.Cells(Dlg, col(i - 1)).Resize(X).Value = rngV.Item(i).Resize(derArt - 6).Value
Next i
.Cells(Dlg, 1).Resize(X) = f.[M4]: .Cells(Dlg, 2).Resize(X) = f.[P4]: .Cells(Dlg, 3).Resize(X) = f.[R4]
End WithEnd Sub

j ai eu dans la feuille "Encaissmt" deux fois copie le Nom , la Date ET le N° bon .l une sous l autre et pour les autres cellules c est bon .

tu peux savoir ou est l erreur [TABLE="width: 909"]
[TR]
[TD]NON[/TD]
[TD]DATE[/TD]
[TD]N° BON[/TD]
[TD]Mode[/TD]
[TD]Bnq[/TD]
[TD]N°[/TD]
[TD]tireur[/TD]
[TD]Echeance[/TD]
[TD]Montant[/TD]
[TD]Remise[/TD]
[/TR]
[TR]
[TD]DIVERS[/TD]
[TD]01/01/2014[/TD]
[TD]1/1C[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD]DIVERS[/TD]
[TD]01/01/2014[/TD]
[TD]1/1C[/TD]
[TD]ESP[/TD]
[TD]123[/TD]
[TD]TEST[/TD]
[TD]01/01/2014[/TD]
[TD]CA[/TD]
[TD]1000[/TD]
[TD] [/TD]
[/TR]
[/TABLE]

 

[Staple1600]

Re : Liste bon avec vba

Re

bennisay
Ce n'est pas une erreur la macro a été écrite pour faire ce que tu demandais.
Voir ma copie d'écran dans le message #13
(et notamment ce qui se passe dans la colonne A, B, C
Déjà à ce moment là de la discussion, des valeurs furent dupliquées, non ?
Comme tu le souhaitais alors...🙄
Tu as donc tous les indices pour comprendre dans le code VBA quelle ligne fait cette action de dupliquer des valeurs dans une même colonne...🙄

 

[bennisay]

Re : Liste bon avec vba

RE
OK je vais essayer de comprendre la macro et de resoudre le probleme
meme si c est pas facile de comprendre ce langage VBA mais je ferrai de mon mieux
A+

 

[bennisay]

Re : Liste bon avec vba

RE
J ai eu ce message "Nom Ambigu détecté: ab" apres activation de la macro
quesque ça veut dire

 

[Staple1600]

Re : Liste bon avec vba

Re

Cela veut dire que tu as deux macros avec le même nom dans un même module.
Renommes donc une macro.

Tu as trouvé quelle ligne copie les données en "double" ?

 

[bennisay]

Re : Liste bon avec vba

Bonjour Hasco
merci pour ta réponse , oui je sais bien qu on ne peut jamais apprendre le VBA en 5 minutes
mais j ai un projet sous mes mains que je dois finir le plutot possible
il me manque trop de chose mais je fais de mon mieux pour reussir
je cherche toujrs des moyens pour remplacer les formules etendus dans les feuilles pour alléger le classeur
Je crois que maintnt j ai mis la main sur le bon chemin
Je reformule étape par étape
Merci pour votre aide et d ailleurs tous les membres

 

[Staple1600]

Re : Liste bon avec vba

Bonjour à tous

benissay
Voila ce qui arrive quand on multiplie les fils pour la même question.
Ta réponse à Hasco aurait du aller dans celui-ci...🙄 (et pas dans cette discussion !)
https://www.excel-downloads.com/threads/recherches.219398/

PS: j'attends toujours réponse à mes précédentes questions 😉

 

[bennisay]

Re : Liste bon avec vba

BONJOUR
J avais deux macros avec le meme nom
j ai renome l un des deux et ca marche
pour les lignes doubles j avais dans la macro
Set rngV = f.Range(Cells(8, "M"), f.Cells(derArt, "R")): X = rngV.Rows.Count
dans (Cells(8 .......etait (Cells(7 JE crois que ca qui fait le double lignes

 

[Staple1600]

Re : Liste bon avec vba

Re



Non!
c'est cette ligne qui recopiait plusieurs fois valeurs
.Cells(Dlg, 1).Resize(X) = f.[M4]: .Cells(Dlg, 2).Resize(X) = f.[P4]: .Cells(Dlg, 3).Resize(X) = f.[R4]

 

[bennisay]

Re : Liste bon avec vba

Bonjour
staple1600
Je veux ajouter une colonne I "MONTANT" dans la feuille bon liv dans la colonne J de la feuille
"liste"
mais j ai pas reussi le code
j ai eu la refrence au lieu du montant
Sub ab()
Dim derArt&, rngV As Range, X&, i, col, Dlg&, f As Worksheet
Set f = Sheets("Bon Liv")
derArt = f.Cells(Rows.Count, "C").End(xlUp).Row
col = Array("D", "H", "E", "F", "G", "I", "J")
Set rngV = f.Range(Cells(7, "C"), f.Cells(derArt, "H")): X = rngV.Rows.Count
With Sheets("LISTE")
Dlg = .Cells(Rows.Count, "A").End(xlUp).Row + 1
For j = 1 To 7
.Cells(Dlg, col(j - 1)).Resize(X).Value = rngV.Item(j).Resize(derArt - 7).Value
Next j
.Cells(Dlg, 1).Resize(X) = f.[C4]: .Cells(Dlg, 2).Resize(X) = f.[F4]: .Cells(Dlg, 3).Resize(X) = f.[H4]
End With
End Sub

 

[Staple1600]

Re : Liste bon avec vba

Re


Encore une fois, as-tu compris à quoi cela sert?
col = Array("D", "H", "E", "F", "G", "I", "J")
col veut dire ici colonne
Et on utilise une boucle pour parcourir le contenu de col.
Essaie de prendre le temps de comprendre chaque ligne de code.
(comme tu ne poses pas de question sur telle ou telle ligne, je présuppose que tu as compris le fonctionnement du code 😉 )