Copier coller en VBARésolu

Question

Bonjour, je souhaite copier une ligne se trouvant à l'indice ElementA et la coller à la ligne se trouvant à l'indice ElementA+1,
Je ne sais pas comment  utiliser mes indices dans Range() ou Row() alors si qq'un peut m'aider.

Par exemple Range("B"&Elea : "M"& Elea) mais je ne sais pas l'ecrire correctement comme pour Range("B8:M8")

Merci

Molenn · Accepted Answer

Parce que le .Select, une fois sur 2, ça plante ! Et je ne sais jamais pourquoi et ça, ça m'énerve !!

Alors, je résouds le problème comme suit :
Sheets(4).Range("A" & CStr(Elea + 1)).Paste
Directement ^^

Mais ça aussi ça plante parfois, et je ne sais pas pourquoi non plus donc, à la place, je fais un :

Sheets(4).Range("A" & CStr(Elea + 1)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Ca au moins ça ne plante jamais (attention, ça ne te remonte que la valeur, s'il te faut une formule, c'est une autre option que xlPasteValues, tu les as toutes de détaillées dans l'aide).

Molenn

jrivet · Answer

Salut, Tu t'étais un peu trompé dans la concaténation de chaine de caracteres. Essaie le code suivant (en le modifiant bien sur) Dim Elea As Integer Elea= 8 Range("B" & CStr(Elea) & ":M" & CStr(Elea)).Copy Range("B" & CStr(Elea + 1)).Select ActiveSheet.Paste Coloration syntaxique automatique [AFCK] @+, Julien Pensez:

tortuegenie · Answer

Voici le code que j'ai ecris et il me dit que la méthode Select de la classe Range a échoué!!! 

Sheets(4).Range("A" & CStr(Elea) & ":M" & CStr(Elea)).Copy
    Sheets(4).Range("A" & CStr(Elea + 1)).Select
    Sheets(4).Paste

Peux-tu m'aider

jrivet · Answer

Salut,
Dans quelle feuille se trouve le code.
Essaies peu etre de mettre Worksheets(4).Activate avant ce code et d'enlever les Sheets(4).

@+, Julien

tortuegenie · Answer

Marcha pas non plus le PasteSpecial.


Le petit Billy commence à m'enervé tout doucement.


Personne peut me proposer qq chose qui peut faire mon copier coller SVP????

jrivet · Answer

Re,


OU AS TU MIS LE CODE que je t'ai proposé. as tu fais ce que je te proposais (.Activate ...)










@+, Julien
Pensez:

tortuegenie · Answer

Dsl Jrivet mais c'était pas un problème avec mes feuilles, pas du tout mais bien un problème de Select et Paste.


En fait cela fonctionne maintenant, il faut que je mette PasteSpecial à la place de Paste.


Faut pas essayer de comprendre mais cela marche

jrivet · Answer

Re,


Je me souviens que lors d'une de tes dernieres questions (celle ci) J avais eu le meme problème si je ne mettais pas 
Worksheets(4).Activate 
Et Ensuite ActiveSheet.Range(...

Essaie de refaire la même opération pour voir si cela règle ton problème.










@+, Julien
Pensez:

Molenn · Answer

Oui, le mieux, c'est encore que tu nous mettes le code de la macro, on pourra te dire où est le pb parce qu'avec le .PasteSpecial, j'ai jamais de soucis personnellement. Par contre, jrivet a raison, la déclaration des Worksheets est souvent la raison aux pbs de copier/coller

tortuegenie · Answer

Personnellement j'ai tjs utilisé mes Sheets(4) ou autre et cela à tjs fonctionner, le problème c'est que parfois je ne sais pas écrire correctement, problème de touche sur le clavier.Mdrrr!!!

Merci pour votre aide maintenant cela fonctionne très bien

cs_MPi · Answer

Dim Elea As Integer

    

    Elea = 2

    

    Sheets(4).Range("B" & Elea & ":M" & Elea).Copy

    Sheets(4).Range("B" & Elea & ":M" & Elea).Offset(1, 0).Select ' baisse d'une ligne

    Selection.PasteSpecial xlValues

    

    Application.CutCopyMode = False ' enlève les lignes clignotantes

MPi

Copier coller en VBA

11 réponses

Votre réponse

Discussions similaires