executer une macro sur plusieurs lignes?? Résolu/Fermé

Question

Bonjour, 

je suis débutant enexel et encore null en macros ( c'est m'a première macro)



J'aimerais creér un macro qui exectute une serie de copier /coller pour plusieur s ligne s 
au faite  j'ai déja creé une macro à l'aide de l'enregistreur de macro sauf que ça fonctionne q'une seul fois,  sur une ligne moi je voudrais qu'une fois elle termine le travail sur la ligne 3 =>> elle passe à la ligne 4 et  exectute les memes taches ,
ce que je ve faire c'est :

j'ai un tableau avec des donnée qui sont à l'horizontal
je voudrais les copier/coller à la verticale (transposer) pour ce la 

1-je selectionne  la plage  verte =>  je la colle dans le deuxième tableau  à la verticale (transposé)
2- je selectionne  la cellule  bleu=>  je la tire en bas  (pour obtenir la meme cellule )dans le deuxième tableau  
3-je selectionne  la plage  jaune=>  je la colle dans le deuxième tableau  à la verticale(transposé)
4-je selectionne  la cellule  rouge=>  je la tire en bas  (pour obtenir la meme cellule )dans le deuxième tableau  
5-je selectionne  la cellule  orange=>  je la tire en bas  (pour obtenir la meme cellule )dans le deuxième tableau  

voila une prise d'ecran de ce que je veux obtenir

https://www.zupimages.net/


voila le script que j'ai obtenu pour  mon premier essai de macro:


Sub ESSAI16H()
'
' ESSAI16H Macro
'

'
    Range("F3:K3").Select
    Selection.Copy
    Range("A17").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Range("A3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("B17").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("B17:B22"), Type:=xlFillDefault
    Range("B17:B22").Select
    Range("F1:K1").Select
    Selection.Copy
    Range("C17").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False
    Range("B3").Select
    Selection.Copy
    Range("D17").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("D17:D22"), Type:=xlFillDefault
    Range("D17:D22").Select
    Range("C3").Select
    Selection.Copy
    Range("E17").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("E17:E22"), Type:=xlFillDefault
    Range("E17:E22").Select
End Sub





merci par avance pour votre aide précieuse




Configuration: Windows 7 / Internet Explorer 9.0

ccm81 · Answer

Bonjour

Peux tu envoyer une partie de ton fichier au format excel 2003 (fichier/enregistrer sous/Type .....  .xls) sur cjoint.com et joindre le lien obtenu à ton prochain message
N'oublies pas d'y ajouter des explications (pour plus de clarté, nomme les plages que tu veux copier et les plages où tu veux les coller)
Une solution sans macro est peut être possible, est ce que tu préfèrerait?

Cdlmnt

foo · Answer

Bonjour

Voila un Exemple de macro pour Transpose plusieur colonne

Sub TestA()
Dlig = Range("A" & Rows.Count).End(xlUp).Row
   For C = 1 To 3
      Range(Cells(12, C), Cells(Dlig, C)).Copy
      Range("H" & C + 3).PasteSpecial xlPasteValues, , , True
   Next
Application.CutCopyMode = False
[A1].Select
End Sub

A+

Maurice

foo · Answer

re
la meme par rapport a ton fichier

Sub transpose()
Application.ScreenUpdating = False
Dlig = 17
Flig = Range("A" & Rows.Count).End(xlUp).Row
   For C = 1 To 5
      Range(Cells(Dlig, C), Cells(Flig, C)).Copy
      Range("F" & C + 2).PasteSpecial xlPasteValues, , , True
   Next
Application.CutCopyMode = False
[A1].Select
End Sub

A+
Maurice

foo · Answer

Bonjour
en retour ton fichier modifier

http://cjoint.com/?3DmktEW6tRh

A+
Maurice

michel_m · Answer

Bonjour,

puisque tu débutes dans les macros, bienvenue à bord du Titanic :o), autant passer sur des bases saines

lorsque tu copies ou transposes uniquement  des données , tu n'as généralement pas besoin de faire des copier-coller et des boucles fumeuses...
par ex :
tu veux copier les valeurs de C3:K3 en C12:K12
Range("C12:K12") = Range("C3:K3").Value
tu veux transposer les valeurs en A1:A19
Range("A11:A19") = Application.Transpose(Range("C3:K3"))
L'enregistreur de macro enregistre tes faits et gestes: point final

Edit:
de m^me,pour copier B3 en D17:D22
Range("D17") = Range("B3")Range("D17").AutoFill Destination:=Range("D17:D22")

Et bien sûr, commence toujours tes macros par
Application.screenupdating=false
qui fige le défilement de l'écran (confort) et réduit de 80 fois le temps d'une macro 

 Michel

ccm81 · Answer

Une tentative avec ce que j'ai compris
https://www.cjoint.com/?3DmpCJguFbL

Cdlmnt

mr.denver · Answer

sos plz!!!!

ccm81 · Answer

@ michel
Salut à toi
effectivement les contributeurs même bénévoles ont droit à leurs week end de temps en temps et peuvent aussi s'occuper, toujours bénévolement, de leurs petits enfants, et ça peut même durer quelques jours!

@mr.denver
Désolé mais je ne dispose pas d'excel sur ma bécane actuelle, donc je ne pourrai que te donner quelques pistes.... si mes souvenirs sont bons
il doit y avoir une variable plagev qui prend la valeur  Range(ligneverte) une seule fois avant la boucle for li = 1 to nbli (d'où la même ligne copiée à chaque tour de boucle)
tu dois la redéfinir à l'intérieur de cette boucle avec une instruction du genre
set plagev = Range(.....)  où l'adresse doit prendre en compte la variable li
je ne peux pas faire mieux d'ici!

Bonne fin de journée à tous

Executer une macro sur plusieurs lignes??

8 réponses

Discussions similaires