formule macro

Dugenou à dit:

Bonjour

si tu ne veux copier que la ligne 500

Worksheets("P").Select 'selection de la feuille ou tu veux selectionner les données a copier
Range("A500:F500").Select 'plage de cellule a copier ici de A500à F500
Selection.Copy 'on copie
Sheets("ecart NGP").Select 'selection de la feuille ou tu veux coller les données
Range("A1").Select 'cellule a partir de laquelle tu veux coller
ActiveSheet.Paste 'coller
Sheets("ecart NGT").Select 'selection de la feuille ou tu veux coller les données
Range("A1").Select 'cellule a partir de laquelle tu veux coller
ActiveSheet.Paste 'coller

End sub



PS as-tu essayé de lire et de comprendre le code commenté ?

Cliquez pour agrandir...

titiborregan5 à dit:

Bonjour Sev, Hello Dugenou, le forum,

pour avoir la dernière ligne et en considérant que la colonne A n'a pas de vide

Code:

 sheets("P").range("a1").end(xldown).row 'te renvoie le numéro de la dernière ligne saisie

Ensuite tu la couples à une variable :

Code:

x= sheets("P").range("a1").end(xldown).row 'te renvoie le numéro de la dernière ligne saisie

tu sélectionnes la plage voulue

Code:

sheets("P").range(cells(x,1),cells(x,6)).copy sheets("ecart NGP").range("A1")

en espérant que ça t'aide!

Cliquez pour agrandir...

titiborregan5 à dit:

Code:

sheets("P").range(cells(x,1),cells(x,6)).copy sheets("ecart NGP").range("A1")

Cliquez pour agrandir...

titiborregan5 à dit:

Cette ligne seule ne marche pas?

Quelle est l'erreur indiquée?
Mets un fichier exemple ce sera plus simple pour t'aider!

Cliquez pour agrandir...

sev31130 à dit:

BONSOIR

mon fichier est trop lourd et il ne prends pas le .rar
mais voila les si tu peux faire une seule macros (ou VBA) de ces trois la en me disant exactement ce que je dois faire :

Worksheets("P").Select 'selection de la feuille ou tu veux selectionner les données a copier
Range("A132:F166").Select 'plage de cellule a copier ici de A132 à 166
Selection.Copy 'on copie
Sheets("ecart NGP").Select 'selection de la feuille ou tu veux coller les données
Range("A122").Select 'cellule a partir de laquelle tu veux coller
ActiveSheet.Paste 'coller
Sheets("ecart NPP").Select 'selection de la feuille ou tu veux coller les données
Range("A122").Select 'cellule a partir de laquelle tu veux coller
ActiveSheet.Paste 'coller

End sub

__________________________________________________________________________________________

Worksheets("T").Select 'selection de la feuille ou tu veux selectionner les données a copier
Range("A151:F166").Select 'plage de cellule a copier ici de A151 à 166
Selection.Copy 'on copie
Sheets("ecart NGT").Select 'selection de la feuille ou tu veux coller les données
Range("A151").Select 'cellule a partir de laquelle tu veux coller
ActiveSheet.Paste 'coller
Sheets("ecart NPT").Select 'selection de la feuille ou tu veux coller les données
Range("A151").Select 'cellule a partir de laquelle tu veux coller
ActiveSheet.Paste 'coller

End sub
___________________________________________________________________________________________

Worksheets("O").Select 'selection de la feuille ou tu veux selectionner les données a copier
Range("A53:F70").Select 'plage de cellule a copier ici de A53 à 70
Selection.Copy 'on copie
Sheets("ecart NGO").Select 'selection de la feuille ou tu veux coller les données
Range("A38").Select 'cellule a partir de laquelle tu veux coller
ActiveSheet.Paste 'coller
Sheets("ecart NPO").Select 'selection de la feuille ou tu veux coller les données
Range("A38").Select 'cellule a partir de laquelle tu veux coller
ActiveSheet.Paste 'coller

End sub
____________________________________________________________

par avance merci

Cliquez pour agrandir...

sev31130 à dit:

bonjour

comme tu peux le voir dans chaque "module " je change la plage de copie pour ne pas tout copier , mais si je ne peux copier que la derniere ligne saisie ce n'est que mieux ....

j'essaie de t'envoyer le fichier ( une usine à gaz, mais je m'y retrouve) si tu peux mettre en place , si tu as compris ce que je veux merci

amitiés

yves

Cliquez pour agrandir...

sev31130 à dit:

bonjour,

ne connaissant rien ni aux macros, ni au VBA, mais je me posais la question:

dans chaque feuille P T O il y a un bouton transfert qui copie la derniere ligne saisie sur la feuille "generale" est ce que avec cette fonction on ne peut pas en même temps lui dire de copier :
pour P dans NGP-NPP
pour T dans NGT-NPT
et pour O dans NGO-NPO
je demande cela mais je n'y connais rien alors tout betement je pose la question

MERCI si c'est POSSIBLE

Cliquez pour agrandir...

titiborregan5 à dit:

Bonjour Seve,

avec ce bout de code tu peux faire ce que tu veux pour récupérer la dernière ligne de la feuille P et la copier/coller à la suite en feuille NPP et NGP (idem pour O et T)

Code:

Sub t()
With Sheets("P")
dernligneP = .Range("a65000").End(xlUp).Row
.Rows(dernligneP).Copy Sheets("ecart NGP").Range("A65000").End(xlUp).Offset(1, 0)
.Rows(dernligneP).Copy Sheets("ecart NPP").Range("A65000").End(xlUp).Offset(1, 0)

End With

With Sheets("O")
dernligneO = .Range("a65000").End(xlUp).Row
.Rows(dernligneO).Copy Sheets("ecart NGO").Range("A65000").End(xlUp).Offset(1, 0)
.Rows(dernligneO).Copy Sheets("ecart NPO").Range("A65000").End(xlUp).Offset(1, 0)

End With

With Sheets("T")
dernligneT = .Range("a65000").End(xlUp).Row
.Rows(dernligneT).Copy Sheets("ecart NGT").Range("A65000").End(xlUp).Offset(1, 0)
.Rows(dernligneT).Copy Sheets("ecart NPT").Range("A65000").End(xlUp).Offset(1, 0)

End With

End Sub

Bon courage!
Attention il y a d'autres problèmes qui interviennent à cause des macros événementielles et des autres codes...

Cliquez pour agrandir...

titiborregan5 à dit:

ok,
pour ne copier que les colonnes A à F

Code:

range(.cells(dernligneO,1),.cells(dernligneO,6))

à adapter selon la feuille (ici O)

Cliquez pour agrandir...

sev31130 à dit:

Merci

mais je ne connais rien en VBA

et je sais pas ou je dois faire le changement dans la formule
fais en un et je ferais les autres

mille merci

Cliquez pour agrandir...