Transfer de donner d'une feuil a une autre

S

steplof

Guest

• 12 Avril 2003

• #2

Salut alyre

Si tes données en feuill2 sont saisies sans sauter de lignes

la macro suivante te recopiera la plage (a20:cderniereligne) de la feuille2
à la suite des données saisies en a,b et c de la feuille 3


Sub recopie()
DernLigneSaisie = Sheets(2).Range("a65536").End(xlUp).Row

If Range("a1").Value = "" Then premligneVide = 1 Else premligneVide = Sheets(3).Range("a1").End(xlDown).Row

With Worksheets(2)
.Range("a20:c" & DernLigneSaisie).Copy Worksheets(3).Range("a" & premligneVide)
End With
End Sub

En espérant t'avoir un peu aidé et à ta disposition pour t'aider à l'aménager..

@ bientôt

Steplof

 

Vote positif 0 Vote négatif

A

Alyre

Guest

• 12 Avril 2003

• #3

Salut steplof

Ca c'est du service tres rapide, je te remerci je vais aller essayer ça

 

Vote positif 0 Vote négatif

A

Alyre

Guest

• 12 Avril 2003

• #4

allo step

tu va me trouver assez nul je ne suis pas capable de faire fonctionner cette formule , je ne sais pas comment instaler ou déclaré la bibliothèque ou objet.

tu ma offert de m'aider a l'aménager, tu serais le bienvenue si tu pouvais me donner plus de détail je te remerci mille fois a l'avance

@ ++++

 

Vote positif 0 Vote négatif

S

steplof

Guest

• 12 Avril 2003

• #5

Salut alyre,

ben il te suffit de copier-coller le sub recopie dans le module de ton classeur (là où est déjà ton selectRecopie).

Pour le mettre en oeuvre, altF8 et choisir la macro recopie.

Si t'as un prob joins moi un fichier allégé...

@+
Steplof

 

Vote positif 0 Vote négatif

A

Alyre

Guest

• 12 Avril 2003

• #6

Salut septlof,

Ok c'est ca que j'ai fait , mais si je demande a la macro d'exécuter recopie,
elle me répond (Erreue de compilation, Projet ou bibliothèque introuvable)

Voici ma formule

Sub SelectRecopie()
' Redéfinir la plage en fonction du nombre de lignes
' Sélectionner cette plage
' Copier les valeurs contenues dans cette plage sur la feuille 2 à la cellule "A1"
With Worksheets(2)
.Range(.[A20], .[C20].End(xlDown)).Copy Worksheets(3).[A1]
End With
End Sub

et ta formule collé a la suite de la mienne

Sub recopie()
DernLigneSaisie = Sheets(2).Range("a65536").End(xlUp).Row

If Range("a1").Value = "" Then premligneVide = 1 Else premligneVide = Sheets(3).Range("a1").End(xlDown).Row

With Worksheets(2)
.Range("a20:c" & DernLigneSaisie).Copy Worksheets(3).Range("a" & premligneVide)
End With
End Sub

@+
Alyre

 

Vote positif 0 Vote négatif

S

steplof

Guest

• 12 Avril 2003

• #7

Re,

ben voilà autre chose...,
pourtant cette macro elle utilise vraiment rien de spécial, qui ne soit pas de base dans VBA...
Là je sèche un peu.

Si tu peux me joindre un fichier (dans ma bal si tu veux, ça me permettrait de voir si ça fonctionne chez moi, mais je vois pas pkoi ça marcherait pas vu que je l'ai testée sans problèmes...)


SInon peut être quelqu'un comprendra pkoi ça foire...



@ bientôt
Steplof

 

Vote positif 0 Vote négatif

A

Alyre

Guest

• 12 Avril 2003

• #8

re Salut steplof,

je m'excuse de t'avoir fait travailler si fort, je vien de trouver ce qui n'allais pas,

le problème étais que j'avais pas placer les subs dans un module, je les avais placer dans Seets,feuil2

j'ai changer ça de place et ça marche comme sur des roulettes.

Merci encore je vais me coucher moin niaiseux ce soir.

Tu n'a pas a sèche car tu a completement raison, c'est moi qui n'est pas une lumière, bravo a toi

@ ++ alyre

 

Vote positif 0 Vote négatif

A

Alyre

Guest

• 12 Avril 2003

• #9

re Salut steplof,

Encore une petite question, est-ce possible de faire des entrés dans ma feuil2 seulment a partir de la ligne A20 sans que la sub détecte les lignes de A1 a A19, car ce s'ont des entré spécial que j'ai dans ses ligne,

merci et bonne fin de journée

alyre @ +

 

Vote positif 0 Vote négatif

A

Alyre

Guest

• 12 Avril 2003

• #10

re Salut steplof,

Oublie la petite question que je t'ai demander, j'ai trouver la soulution

@+

 

Vote positif 0 Vote négatif

S

steplof

Guest

• 12 Avril 2003

• #11

Re Alyre,

je crois que c'est ce que fait le module que je t'ai proposé:

il recopie les cellules à partir de la ligne 20 de la feuille en 2ème position de ton classeur dans les premières cellules vides de la feuille placée en 3è position dans ton classeur:

Par conséquent si aujourd'hui tu saisis en feuille2 (en 2ème position)
bonjour en A20, Steplof en B20, de ALyre en C20
tu lances recopie, tu auras en feuille3 (en 3e position)
bonjour en A1, Steplof en B1 , de ALyre en C1

Si ensuite, tu saisis en feuille2, toujours en A20,B20,C20 (donc tu remplaces le contenu des cellules, tu auras en feuille3 ta nouvelle saisie qui apparaitra en A2,B2,C2

ainsi ta feuille3 consevera un historique de tes saisies dans les cellules des colonnes A,B,C de ta feuille2.

si ça t'interesse on peut aussi envisager de déclencher la macro automatiquement sans intervention de ta part ou de l'utilisateur.

@+
Steplof

 

Vote positif 0 Vote négatif

S

steplof

Guest

• 12 Avril 2003

• #12

Re,

oups ptite erreur dans la macro c'est peut être ce que t'as déjà corrigé:
Celle là marchera mieux...

Sub recopie()

DernLigneSaisie = Sheets(2).Range("a65536").End(xlUp).Row

If Sheets(3).Range("a1").Value = "" Then premligneVide = 1 Else premligneVide = Sheets(3).Range("a1").End(xlDown).Row + 1

With Worksheets(2)
.Range("a20:c" & DernLigneSaisie).Copy Worksheets(3).Range("a" & premligneVide)
End With
End Sub

Steplof

 

Vote positif 0 Vote négatif

A

Alyre

Guest

• 12 Avril 2003

• #13

Re,

Tu a toute compris, c'est exatement ça, ma feuil3 garde un historique ,

et pour ce qui est de déclencher une macro automatique, c'est déja fait

tu est une vrais lumière pour avoir tout compris mes demandes,

Mercie beaucoup , je suis enchanté d'avoir reçu de l'aide aussi vite

bravo encore une fois

Alyre @+

 

Vote positif 0 Vote négatif

C

Celeda

Guest

• 13 Avril 2003

• #14

Bonjour tout le monde

Bonjour

Alyre soit le bienvenu chez XLD


Dis moi Steplof, cela te réussit les Canadiens !! C'est sympa. Tu te spécialises spécial outre mers.....froides.....

Merci

Bon dimanche
Celeda

 

Vote positif 0 Vote négatif

S

steplof

Guest

• 13 Avril 2003

• #15

Bonjour à tous,

Celeda je ne me spécialise pour personne, j'essaie juste de répondre aux personnes sympas qui ont des problèmes à ma portée...

pas de ma faute si ce sont souvent des québécois... même si c'est vrai que j'ai un faible pour nos cousins Outre-Atlantique, souvenir d'une idylle quelques années en arrière ...

Mais c'est une autre histoire...

J'en profite pour te remercier pour les envois humouristiques hors-forum. C'est super

Bon allez tu dois dormir, alors je te dérange pas plus.

@ bientôt
Steplof

 

Vote positif 0 Vote négatif