copier-coller

[manulemalin13000]

Bonjour a tous,

J'ai un petit soucis de codage VBA que je ne sais pas faire..
Dans la feuille jointe, en ligne 43 de la sheet 1, j aimerais faire un copier/coller automatique de la ligne 43 de la colonne A à I Seulement depuis la Sheet1 vers les sheet 2 ET 3 mais pour ces deux dernières pages j aimerai que le coller se fasse à la place de ce qui est écrit en ligne 43 et de la colonne A à I seulement !!

Je n'arrive pas a faire cela
Est ce quelqu'un pourrait m aider ?

merci

 

[Brigitte]

Re : copier-coller

Bonjour

Il manque ton fichier... qui n'est pas joint (la faute à sa taille ? son nom ? le format du zip ?).


Edit : je n'ai rien dit.... on m'a pas vue...

 

[manulemalin13000]

Re : copier-coller

Désolé le voici

merci

 

[Efgé]

Re : copier-coller

Bonjour manulemalin13000, Brigitte,
une proposition avec ce que j'ai compris:

[COLOR=blue]Sub[/COLOR] test()
[COLOR=blue]With[/COLOR] Sheets("Sheet1")
    .Range(Cells(43, 1), Cells(43, 9)).Copy Sheets("Sheet2").Cells(43, 1)
    .Range(Cells(43, 1), Cells(43, 9)).Copy Sheets("Sheet3").Cells(43, 1)
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Maintenant si il faut trouver la dernière ligne à copier :

[COLOR=blue]Sub[/COLOR] test()
[COLOR=blue]With[/COLOR] Sheets("Sheet1")
    Derlig = .Cells(Rows.Count, "A").End(xlUp).Row
    Derlig2 = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
    Derlig3 = Sheets("Sheet3").Cells(Rows.Count, "A").End(xlUp).Row
    .Range(Cells(Derlig, 1), Cells(Derlig, 9)).Copy Sheets("Sheet2").Cells(Derlig2, 1)
    .Range(Cells(Derlig, 1), Cells(Derlig, 9)).Copy Sheets("Sheet3").Cells(Derlig3, 1)
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[manulemalin13000]

Re : copier-coller

Re,

merci mais j ai une erreur de type application defined or objet defined error...

Ca ne fonctionne pas

Elle marche chez toi ??

Au fait comme la longueur des colonnes peut etre variable j'ai opté pour la seconde macro

Manu

 

[Efgé]

Re : copier-coller

Re
Je test toujours mes codes...
Tu a peut être une Option Explicite ?
Essai ceci (code légèrement modifié):

[COLOR=blue]Sub[/COLOR] test2()
[COLOR=blue]Dim[/COLOR] Derlig [COLOR=blue]As Long[/COLOR], Derlig2 [COLOR=blue]As Long[/COLOR], Derlig3 [COLOR=blue]As Long[/COLOR]
[COLOR=blue]With[/COLOR] Sheets("Sheet1")
    Derlig = .Cells(Rows.Count, "A").End(xlUp).Row
    Derlig2 = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
    Derlig3 = Sheets("Sheet3").Cells(Rows.Count, "A").End(xlUp).Row
    [COLOR=blue]With[/COLOR] .Range(Cells(Derlig, 1), Cells(Derlig, 9))
        .Copy Sheets("Sheet2").Cells(Derlig2, 1)
        .Copy Sheets("Sheet3").Cells(Derlig3, 1)
    [COLOR=blue]End With[/COLOR]
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[manulemalin13000]

Re : copier-coller

Re,

Je suis désolé je ne sais pas ce qu est une option explicite..

Je ne peux pas joindre le fichier pour 3 ko de trop !!
Ca ne fonctionne pas..
Sans doute un bug dans mes macros qui fait planter le reste ...
Manu

 

[manulemalin13000]

Re : copier-coller

Re,

Le voici: http://cjoint.com/?jyp0SDxqD6

Si vous pouvez y jeter un œil quand vous avez du temps..
Par contre c'est usine a Gaz donc par avance je m excuse pour mon niveau minable de vba
Merci

Manu

 

[Efgé]

Re : copier-coller

Re
Désolé mais en dehors du fait que je peux poster sur le forum mais pas éditer mes messages, une des abérations de mon système est que je peux aller sur Ci joint.Fr mais pas .com 😱
Donc...
Cordialement

 

[manulemalin13000]

Re : copier-coller

Re,

Desolé le voici en .fr...
Cijoint.fr - Service gratuit de dépôt de fichiers

Cordialement,

 

[Efgé]

Re : copier-coller

Re
Vu l'utilisation, Il manquait deux points (en rouge)
J'ai aussi ajouter le blocage écran (Application.ScreenUpdating) pour éviter les clignotements.

[COLOR=blue]Sub[/COLOR] lastligne()
Application.ScreenUpdating = [COLOR=blue]False[/COLOR]
[COLOR=blue]Dim[/COLOR] Derlig [COLOR=blue]As Long[/COLOR], Derlig2 [COLOR=blue]As Long[/COLOR], Derlig3 [COLOR=blue]As Long[/COLOR]
[COLOR=blue]With[/COLOR] Sheets("Raw")
    Derlig = .Cells(Rows.Count, "A").End(xlUp).Row
    Derlig2 = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
    Derlig3 = Sheets("Sheet3").Cells(Rows.Count, "A").End(xlUp).Row
    [COLOR=blue]With[/COLOR] .Range([SIZE=4][COLOR=red][B].[/B][/COLOR][/SIZE]Cells(Derlig, 1), [SIZE=4][COLOR=red][B].[/B][/COLOR][/SIZE]Cells(Derlig, 9))
        .Copy Sheets("Sheet2").Cells(Derlig2, 1)
        .Copy Sheets("Sheet3").Cells(Derlig3, 1)
    [COLOR=blue]End With[/COLOR]
[COLOR=blue]End With[/COLOR]
Application.Run "doublons"
Application.ScreenUpdating = [COLOR=blue]True[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Pour le reste, si j'ai le temps je regarderai ce W.E, mais sans certitudes
Cordialement

 

[manulemalin13000]

Re : copier-coller

Merci ca marche super bien...
C'est exactement ce que je voulais

Pas besoin de t embeter ce W end..

Merci encore

manu