copie valeur sur une autre feuille

[tinet]

Bonjour le forum,

J'ai créé une macro avec l'enregistreur.
ce que je cherche à faire c'est copié les valeurs de la feuille un sur la feuille commande pour facturations.
j' utilise en liaison la feuille deux avec une clé de tri pour ne récupérer que certaines valeurs.
et bien sûres je cherche que sur la feuille commande pour facturations, que les données puissent être copiées à la suite pour garder en mémoire.

voici la formule

Sheets("Feuil3").Select
    Selection.AutoFilter Field:=7, Criteria1:="<>"
    Range("A4:K39").Select
    Selection.Copy
    Sheets("Commandes pour facturation").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("Feuil3").Select
    Selection.AutoFilter Field:=7
    Range("G12").Select
    Sheets("Feuil1").Select

et le fichier.

 

[Gorfael]

Re : copie vlaur sur une autre feuille

Salut tinet et le forum
Rappel : on n'est ni magicien, ni télépathe ! soit cohérent dans ta demande !

ce que je cherche à faire c'est copié les valeurs de la feuille un sur la feuille commande pour facturations.

Feuille un : ça correspond à quoi ?
Sheets(1) : feuille "Commandes" ?
sheets("Feuil1") : ? Mais dans la macro donnée, c'est "Feuil3" ???

bien sûres je cherche que sur la feuille commande pour facturations, que les données puissent être copiées à la suite pour garder en mémoire.

Ça, comme ça évolue, va falloir le calculer. Existe-t-il une colonne obligatoirement remplie, pouvant servir de référence pour le calcul ?
Ta macro, chez moi, donnerait ce style de code :

Sub copie_pour_facturation()
With Sheets("Feuil3")
    If .FilterMode Then .ShowAllData
    .Range("A3").CurrentRegion.AutoFilter Field:=7, Criteria1:="<>0"
    .Range("A4:K39").Copy
    Sheets("Commandes pour facturation").Range("A4").PasteSpecial (xlValue)
    If .FilterMode Then .ShowAllData
    .Select
    .Range("G12").Select
    Sheets("Feuil1").Select
End With
End Sub

Les select ne sont à utiliser que s'ils sont réellement indispensables... ce qui est rarement le cas.

.AutoFilter Field:=7, Criteria1:="<>"

Le critère est bizarre : "est différent de" ???

Il est évident que Sheets("Commandes pour facturation").Range("A4") doit être remplacé par une formule qui calcule la dernière ligne utilisée. un truc du genre :
Sheets("Commandes pour facturation").cells(Rows.count,"A").end(xlup)(2)
en partant du principe que la colonne A est toujours renseignée.

A+

 

[Hippolite]

Re : copie vlaur sur une autre feuille

Bonjour à tous,
Variante :

Sheets("Feuil3").Activate
Range("A3").AutoFilter Field:=7, Criteria1:="<> 0"
Range("A4:K39").Copy
Sheets("Commandes pour facturation").activate
destination :=Sheets("Commandes pour facturation").Range("A"&Range("G65536").End(xlUp).Row + 1)

A+

 

[tinet]

Re : copie vlaur sur une autre feuille

Bonjour Gorfael,

je vais essayer d'être plus clair dans mon énoncé.
1 Les informations vienne de la "feuille1" ( le tableau se remplit en fonction du numéro de commande et de la date, informations récupérée dans l'onglet "commande")

2 j'ai rajouté la "feuille3" qui recopie les informations de la feuille1 ( j'avais besoin de recopier les informations sur une seule ligne en 4 de A à K, puis les éléments prestation de E5 : I25 au pouvoir créer une clé de tri sur les produits avec une valeur) ( il est possible que la "feuille3" n'est pas nécessaire, peut-être moyen plus rapide)

3 puis je copie avec macro les informations de la "feuille3 " sur la feuille "commande pour facturations".( les informations doivent être collées en A4.

4 je cherche à garder chaque commande validée sur la feuille "commande pour facturations".

5 je te mets un exemple le résultat que je souhaite obtenir.

a+

 

[tinet]

Re : copie vlaur sur une autre feuille

Re le forum,

J'ai modifier ma formule pour la copie.

Sheets("Feuil3").Select
Selection.AutoFilter Field:=1, Criteria1:="1"
Range("B4:L42").Select
Selection.Copy
Sheets("Commandes pour facturation").Select
ActiveWindow.SmallScroll Down:=-9
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A4").Select
Sheets("Feuil3").Select
Selection.AutoFilter Field:=1
Range("B4").Select
Sheets("Feuil1").Select

Maintenant reste à trouver sur la feuille "commande pour facturation" pour que la copie se face à la suite.

Sheets("Commandes pour facturation").cells(Rows.count,"A").end(xlup)(2)

Mais sa ne marche pas
merci de votre aide

 

[tinet]

Re : copie vlaur sur une autre feuille

Bonjour le forum,

En cherchant j'ai trouver une solution à mon problème.
voici ma formule

Sub Macro4()

Sheets("Feuil3").Select
Selection.AutoFilter Field:=7, Criteria1:="<>"
Range("A4:K26").Select
Selection.Copy
Sheets("Commandes pour facturation").Select
Range("A4:k4").Select
Do While ActiveCell.Value > ""
ActiveCell.Offset(8, 0).Select
Loop

ActiveSheet.Paste
Range("A4").Select

Sheets("Feuil3").Select
Selection.AutoFilter Field:=7
Range("B4").Select
Sheets("Feuil1").Select
End Sub

Le petit problème j'ai donner le nombre de ligne à sauter pour chaque copie, mais pouvons nous faire de manière
que le nombre de ligne à copier soi en fonction de élément de la feuill3 aprés le filtre.

a+

 

[Hippolite]

Re : copie valeur sur une autre feuille

bonjour,
Petite compil qui devrait te dépanner :derniere-ligne-derniere-colonne-renseignees
A+

 

[tinet]

Re : copie valeur sur une autre feuille

Bonjour hippolite,

malheureusement tout ce langage est un grand mystère pour moi.
je suis capable d'utilisé l'enregistreur de récupérer des données par-ci par-là.
mais incapable de construire ce langage

a+

 

[Hippolite]

Re : copie valeur sur une autre feuille

Re,
Dans la feuille "Commandes pour facturation", la dernière ligne utilisée correspond à la dernière cellule utilisée de la colonne E
Le n° de la dernière ligne est donc

Dlgn = Range("E65536").End(xlUp).Row

Il te suffit de te placer sur Range("A" & Dlgn + 1) pour coller à la suite.
A+

N'hésite pas à utiliser la touche F1 pour avoir l'aide sur l'élément placé sous le curseur.
Ci-dessous, quelques liens pour débuter en VBA
Support de cours complet pour le VBA d'Excel
Les meilleurs cours et ressources pour Excel : Programmation
Initiation au VBA Office
Les syntaxes de base
Ce lien n'existe plus

 

[tinet]

Re : copie valeur sur une autre feuille

Re,

Je ne comprend plus rien.

Sub Macro4()

Sheets("Feuil3").Select
Selection.AutoFilter Field:=7, Criteria1:="<>"
Range("A4:K26").Select
Selection.Copy
Sheets("Commandes pour facturation").Select
Range("A4:k4").Select
Do While ActiveCell.Value > ""
ActiveCell.Offset(8, 0).Select
Loop

ActiveSheet.Paste
Range ("A" & Dlgn + 1)

Sheets("Feuil3").Select
Selection.AutoFilter Field:=7
Range("B4").Select
Sheets("Feuil1").Select
End Sub

Puis cette formule je la place ou.

Dlgn = Range("E65536").End(xlUp).Row

a+

 

[Hippolite]

Re : copie valeur sur une autre feuille

Re,

Sub Macro4()
' détermination de la dernière ligne de la feuille "Commandes pour facturation"
	Sheets("Commandes pour facturation").activate
	Dlgn = Sheets("Commandes pour facturation").Range("E65536").End(xlUp).Row 

	Sheets("Feuil3").Select
	Selection.AutoFilter Field:=7, Criteria1:="<>" 
	
'Copier/Coller 
	Range("A4:K26").Copy destination:=Range ("A" & Dlgn + 1)

	Sheets("Feuil3").Select
	Selection.AutoFilter Field:=7
	Range("B4").Select
	Sheets("Feuil1").Select
End Sub

L'enregistreur de macro donne des macros très mal écrites avec beaucoup de Select qui ralentissent beaucoup l'exécution du code. Après avoir utilisé l'enregistreur de macros, il est très intéressant de mettre le curseur sur les éléments qu'on ne maîtrise pas puis d'appuyer sur la touche F1 pour afficher l'aide qui donne la syntaxe et souvent des exemples.
Ici mets le curseur sur Copy puis appuie sur F1 et tu comprendras comment utiliser Copy.
A+

 

[tinet]

Re : copie valeur sur une autre feuille

Re,

J'ai recopier ta formule, est la macro se plante sur la ligne.

Range("A4:a26").Copy Destination:=Range("A" & Dlgn + 1)

A+

 

[Hippolite]

Re : copie valeur sur une autre feuille

Re,
Désolé, je n'ai pas excel sous la main , je n'ai pas pu tester. Remplace la ligne par

Range("A4:a26").Copy Destination:=Sheets("Commandes pour facturation").Range("A" & Dlgn + 1)

 

[tinet]

Re : copie valeur sur une autre feuille

Re,

Ok sa marche merci, et désolé d'avoir insister sur la formule.
je n'aurais pas trouvé.

bonne soirée