copier n lignes d'une table dans une autre table

[nemo]

Bonjour

1/ Je souhaiterais sélectionner n lignes de l'enregistrement de la feuille 1(n étant un nombre dans la feuill2 cellule e4)

2/ Puis modifier les valeurs de la colonne obtention des lignes selectionnées en 'servi'

3/ Enfin copier ces données et les coller dans la feuill2 à la suite des données actuelles

N'hésitez pas à me demander des précisions si un point vous semble obscur.

Merci

[lapix]

Bonjour

Ca pourrait donner :

Selection :
Range("B1:C" & Sheets("feuil2").Range("E4").Value).Select

Copie :
Selection.Copy Destination:=Sheets("feuil2").Range("A" & Sheets("feuil2").Range("A65536").End(xlUp).Row + 1)

Tu me dis si ca fonctionne comme tu veux

[nemo]

Ah oui c'est pas mal !
Mais ca m'a collé une partie de la feuill2 sur la feuill2 au lieu des enregistrements de la feuill1

Connais tu le code pour modifier la valeur de la colonne D des 5 lignes selectionnees de la feuill 1de 'non servi à servi' ?

Merci (bon app' c'est l'heure)

[lapix]

Correction :

Envoyé par lapix

Copie :
Selection.Copy Destination:=Sheets("feuil1").Range("A" & Sheets("feuil2").Range("A65536").End(xlUp).Row + 1)

[nemo]

Sub Macro3()
Range("B1:C" & Sheets("feuil2").Range("E4").Value).Select

Selection.Copy Destination:=Sheets("feuil1").Range("A" & Sheets("feuil2 ").Range("A65536").End(xlUp).Row + 1)
End Sub


Eh non avec ce code il me selectionne les cellules de la feuill2 et il colle dans la 1 alors qu'il doit selectionner des lignes dans la 1 et coller dans la 2 !
Si je modifie le nom des feuiles comme suit

Sub Macro3()

Selection.Copy Destination:=Sheets("feuil2").Range("A" & Sheets("feuil1").Range("A65536").End(xlUp).Row + 1)

End Sub

j'obtiens un message de bug la methode range de l'objet global a echoué.
Pour rappel la valeur contenue dans la cellule E4 qui indique le nombre de lignes de la table à copier est située dans la feuille 2

[lapix]

Au depart tu ne lui dit pas de selectionner la feuil1 donc il applique la selection a la feuille active.

comme dans ta macro initiale :

Sub Selectionner_n_champs_coller_dans_autre_feuille()
Sheets("Feuil1").Select
Range("B1:C" & Sheets("feuil2").Range("E4").Value).Select
Selection.Copy Destination:=Sheets("feuil2").Range("A" & Sheets("feuil2").Range("A65536").End(xlUp).Row + 1)
End Sub

[pierrejean]

bonjour capitaine

salut Lapix

@Nemo

en supposant que j'aie bien compris teste la macro transfert

[nemo]

Pierrejean j'adore ta macro je la garde si tu le permets

Je prends un peu de temps pour disséquer vos lignes de code qui vont m'aider à comprendre un peu comment ca marche et je reviens sans aucun doute pour de nouvelles questions.

Et puis tiens j'en ai déja une il faut une macro pour annuler l'effet d'une macro le CTRL'Z' ne fonctionne pas !?

Merci à vous deux

[nemo]

Sub transfert()
'
'
nb = Sheets("commande").Range("C19")
feuille = Sheets("commande").Range("C21")
Sheets("test").Range("A2:K" & 1 + nb).Copy Destination:=Sheets(feuille).Range("A65536").End(x lUp).Offset(1, 0)
For n = 1 To nb
Sheets("test").Range("K" & 1 + n) = "servi"
Next n
'
End Sub

Voici mon code mais j'ai un message d'erreur "l'indice n'appartient pas à la sélection" relatif à la ligne surlignée en bleu.
Z'avez une idée. Merci.

[nemo]

J'ai trouvé il n'apprécie pas que le nom de la feuille soit un numéro, je n'ai pourtant pas le choix. Ce sont les reférences.

[pierrejean]

bonjour

a 1ere vue en C21 de la feuille commande il y a autre chose que le nom d'une feuille

sinon il est bien difficile de debugger rien qu'avec ça !!

[nemo]

Oui mes feuilles portent un numéro à 4 chiffres mais je ne peux pas changer le nom de mes feuilles. Y a t'il une soluce ?
J'ai essaye ("feuille") ca marche pas !

[pierrejean]

re

je n'avais pas rafraichi

passe C21 en format texte et je pense que cela ira mieux

[nemo]

format de cellule dans la feuille 'text' ?
je vais essayer !

[nemo]

hé bé non ca ne marche pas !