Autres Copier coller dans #ongles avec VBA

[farnomar]

Bonjour chère Communauté,
je veux pas faire de "l'esbrouferies" mais sans vous je ne suis pas grand chose 😵 😳
Je reviens vers vous car j'ai un soucis de réflexion sur un fichier je n'arrive pas à faire le lien entre les différentes cellules, je vous joins le fichier avec des notes pour que vous puissiez m'aidez sur ce sujet
Je ne vous remercierai jamais assez je penses.👌👍
Cordialement

voir fichier en PJ

 

[farnomar]

Bonjour à tous pour faire suite à mon message précédent, voici le code que j'ai mais je voudrais qu'il puisse aller à la ligne quand je change de nom de fournisseur
je sais qu'il y a une notion de +1 à rajouter mais j'arrive pas à trouver comment le rajouter

Voici le code Merci d'avance

Sub Macro2()
'
' Macro2 Macro
'

'Copier coller fournisseur
Range("G7:I7").Select
Selection.Copy
Sheets("Tableau des commandes ").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

' copier coller Montant HT
Sheets("bon de commande ").Select
ActiveWindow.SmallScroll Down:=18
Range("G29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tableau des commandes ").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

' copier coller Conditions paiement
Sheets("bon de commande ").Select
Range("D29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tableau des commandes ").Select
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'Copier coller date de livraison
Sheets("bon de commande ").Select
ActiveWindow.SmallScroll Down:=-18
Range("D32").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=18
Range("D32").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tableau des commandes ").Select
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


End Sub

 

[Rossoneri83]

Bonjour,

Ci-joint un fichier à tester

Bonne journée

 

[farnomar]

Bonjour,

Ci-joint un fichier à tester

Bonne journée

Bonjour à vous

Vous avez tout à fait taper dans le mil c'est merveilleux merci infiniment pour votre soutien et support sur ce sujet vous êtes au TOP 👍 👏🥸🙋‍♂️