copier vers

[chilo]

bonsoir

je crois que j'ai donné un coup d'épé dans l'eau
mais vous comprendrez que je suis un novice
voilà je suis transférer des lignes vers un classeur qui classeur qui s'appellent transfert.
soit déclancher en tapant R OU UNE AUTRE LETTRE OU
MACRO POUR DECLENCHER LE TRANSFERT.
MERCI A TOUS POUR L'AIDE

[file name=copiervers.zip size=13803]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/copiervers.zip[/file]

 

[Hellboy]

Bonsoir chilo

Je suis désolé, j,ai manqué de temps pour terminer ta demande antérieur.

Je te propose cette solution:

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
        If .Column = 9 And (.Value = 'R' Or .Value = 'r') Then
                ActiveSheet.Range(Cells(.Row, 1), Cells(.Row, 8)).Copy _
                Destination:=Sheets('TRANSFERT').Cells(Sheets('TRANSFERT').Cells(65536, 1).End(xlUp).Offset(1, 0).Row, 1)
        End If
End With
End Sub

[file name=copiervers_20051123040648.zip size=14967]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/copiervers_20051123040648.zip[/file]

 

[chilo]

bonsoir

je m'incline c'est tout simplement GEANT
ENCORE MERCI

mais je n'ai pas fini pour autant

je voulais classer des nombres avec ses linges mais j'ai un message d'erreur 1004


'mois de janvier et février
Range('A7:h205').Select
Selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

j'utilise excel 97 au travail
il y a t'il ube erreur

 

[Hellboy]

Bonsoir chilo

J'avoue que je suis un peu perdu. Est-ce avec le même fichier que tu exécute cette commande ? Et en fait qu'est ce que tu essaie d'accomplir (avec plus de détails s.v.p.) ?

Si ton erreur est causé par Excel97, je vais avoir de la difficulté de le savoir, mais je vais faire de mon meiux.

Si tu peux joindre ton fichier qui a cette commande s.v.p.

a+

 

[chilo]

bonsoir

merci de te soucier d e mes soucis

j'ai du faire une coupe drastique dans le fichier mais [file name=erreur1004_20051124201113.zip size=17043]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/erreur1004_20051124201113.zip[/file]

 

[Hellboy]

re chilo

Un essaie:

    'mois de janvier et février
    Sheets('ARCHIVE').Range('A7:h205').Select
    Selection.Sort Key1:=Sheets('ARCHIVE').Range('A7'), Order1:=xlAscending, Header:=xlGuess, _
                        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
                               
    '    La seule chose dont je ne suis pas sure, c'est cette commande là Header:=xlGuess
    '    Si tu as des troubles, remplace cette commande par Header:=xlNo
   
    '    Ensuite, je crois que cette commande n'est peut être pas disponible en Xl97, mais sure: DataOption1:=xlSortNormal
    '    Enlève la complètement avec la virgule avant, si tu as encore des problèmes.

 

[chilo]

rebonsoir
ok je vais l'essayer demain à mon travail
et demain soir je donnerai des nouvelles
merci et bonsoir

 

[chilo]

bonsoir

j'ai essayé et j'ai vu
heu-reux que je suis
j'ai dû supprimer DataOption1:=xlSortNormal pour cela effectivement
il me disait qu'il était vide

mais, eh oui il y a un mais j'ai un autre message
sur la macro du transfert
message type erreur 13
type incompatible
la flêche jaune se met devant If .Column = 9 And (.Value = 'R' Or .Value = 'r') Then

encore merci pour l'aide apporté

 

[Hellboy]

Bonjour Chilo

Je dois avoué là que je suis vaincu. J'ai de la difficulté a voir d'ouvient ou ce qui cause cette erreur. Si tu peux me refiler ton fichier au complet, master_phil_007@hotmail.com, je pourrais le regarder dans son ensemble.

a+

 

[Hellboy]

Bonsoir

Je t'ai répondu ds ton mail privé. On donnera la mise a jour sur ce fil pour le bien fait des forumeur.