VBA
bonjour la famille, je suis très amateur d'excel vba mais je veux créer une petit programme pour gérer mes stocks.
basiquement le programme il marche, le soucis se trouve au niveau de l'historique
jai un classeur nommé gestion de stock1 dans lequel il y'a 2 feuilles que j'utilise (Etat et Facturation)
la feuille facturation ressemble un peu à (Piece jointe "capture1), capture 2 pour les etat (historique)
la macro que je posterai me permet juste de copier jsute la premiere de B4 à F4 et d'aller les coller dans l'historique...
or je veux que apres il parcours la ligne suivante si il ya une donnée dans b5 il copie et colle egalement dans l'historique pareil pour b6 jusqua la fin du tableau..
voila ma macro
Sub sauv()
'
' sauv Macro
'
'
Range("B4").Select
Selection.Copy
Sheets("Etat").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Facturation").Select
Range("D4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Etat").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Facturation").Select
Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Etat").Select
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Facturation").Select
Range("D2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Etat").Select
Range("E4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F4").Select
Sheets("Facturation").Select
Range("F4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Etat").Select
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("4:4").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C5").Select
End Sub
merrci de m'aider
Bonjour
Sans votre fichier, votre macro peut se résumer à ces 2 lignes
Sheets("Facturation").Range("B4:F4").Copy
Sheets("Etat").Range("B4").PasteSpecial Paste:=xlPasteValues
Pour aller plus loin il faudrait savoir combien de lignes maximum on peut copier depuis la facturation vers l'historique
La capture c'est la photo du bas ? Si oui, quel est le numéro de ligne qui contient les titres code article, qté...
Cordialement