Copie des données
Bonjour ,
un sujet qui revient souvent mais la je ne comprend pas la logique
Dans mon fichier sur ma feuille de base "ZP06" extrait SAP
sur la "feuil1" ma "somme.si.ens" avec les plages de critère
qui me permet de calculer la production journaliére en fonction de la date de l'équipe et de la machine
jusque la RAS
Sur cette même "feuil1" j'ai des boutons LI4 / LI5 qui correspondent au nom des machines
je souhaite lorsque je clic sur la machine LI4 copier les valeurs des cellules "A4"/"B4"/"C4"/"E4" dans la "feuil1"
pour les coller dans la feuille "LI4" dédié à la machine
jusque la RAS
Mon problème je n'arrive à faire en sorte que els valeurs se collent à la suite dans mon tableau sur ma feuille "LI4"
Je veux joindre le fichier mais impossible avec we transfer il y a un autre type de fichier ?
Merciiii
.
Bonjour,
Je crois comprendre qu'il te manque la donnée de LIGNE du BAS de te onglet où tu colles les données…. sans fichier c'est un peu difficile mais ça ressemble à ceci.
Ajouter : Dim Ligbas As Long
' Sélectionner les données à copier
Ajouter :
Sheets("machinex").select
With activeSheet
' Ici tu choisis dans quelle colonne tu as ta dernière ligne plus une
Ligbas = Range("A" & Rows.Count).End(xlUp).Row +1
' Ici tu peux changer la destination
Cells(Ligbas, "A"). Select
Selection. Paste……….etc
En souhaitant que ça te donne un coup de main.
Bonjour ,
oui sans fichier hyper compliqué je te rejoins mais je ne comprend pas pk je n'arrive pas à le mettre.
merci pour ton approche ci dessous mon code mais cela le fonctionne pas tu as une idée du pk du comment ?
l'erreur arrive sur selection.paste
Sub bouton4_cliquer()
Dim Ligbas As Long
Worksheets("Feuil1").Range("A4").Copy 'date
Worksheets("Feuil1").Range("B4").Copy 'Machine
Worksheets("Feuil1").Range("C4").Copy 'Equipe
Worksheets("Feuil1").Range("E4").Copy 'Total
Sheets("LI4").Select
With ActiveSheet
Ligbas = Range("A" & Rows.Count).End(xlUp).Row + 1
Cells(Ligbas, "A").Select
Selection.Paste
End With
End Sub
Merci d'avance
Bonjour gearbou08,
vraiment désolé pour le délai, j'étais parti en forêt pour quelques jours.
Mon erreur : c'est que
Selection. Paste……….etc
voulait dire Selection.Paste et le reste de la façon dont tu veux coller tes données, donc un essai avec la ligne de code au complet en collant en valeur par exemple.
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Bonne fin de journée.