Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Repetition d'une macro

  • Initiateur de la discussion Initiateur de la discussion maiwennr
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

maiwennr

Guest
Bonjour!

Je suis TOUTE nouvelle en VB et n'y comprends rien mais ai reussi a faire la macro suivante (merci FORUM EXCEL)

Dans mon fichier, j'ai 2 onglets
1er onglet: des donnees en colonne
2eme onglet: les memes donnees en ligne.

J'ai donc fait une macro avec collage special avec liens et transposition.

Cependant, je souhaite que TOUTES mes colonnes de donnees soient dans mon tableau en ligne et ne sais pas comment modifier mon code pour y parvenir...

Fichier joint.

Merci!
 

Pièces jointes

Re : Repetition d'une macro

Bonjour maiwennr
Une proposition pour toucher le moins possible au code d'origine et si j'ai bien compris....
VB:
Sub Copie()
Dim X As Long, J As Long
Application.ScreenUpdating = False
X = Sheets("Dec 11").Cells(2, Columns.Count).End(xlToLeft).Column
For J = 6 To X
    With Sheets("Dec 11")
        .Range(.Cells(2, J), .Cells(91, J)).Copy
    End With
    With Sheets("accountancy")
       If .Range("B5") = "" Then
          .Range("B5").PasteSpecial Paste:=xlPasteAll, Transpose:=True
       Else
          .Range("B" & .Range("B65536").End(xlUp).Row + 1).PasteSpecial _
          Paste:=xlPasteAll, Transpose:=True
       End If
    End With
Next J
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Cordialement
 
Re : Repetition d'une macro

Merci! Mais en faisant juste un copier-coller de votre code, ca me dit:

COMPILE ERROR: INVALID OUTSIDE PROCEDURE.

Fallait il faire differemment?


Range("E15").Select

Sub Copie()
Dim X As Long, J As Long
Application.ScreenUpdating = False
X = Sheets("Dec 11").Cells(2, Columns.Count).End(xlToLeft).Column
For J = 6 To X
With Sheets("Dec 11")
.Range(.Cells(2, J), .Cells(91, J)).Copy
End With
With Sheets("accountancy")
If .Range("B5") = "" Then
.Range("B5").PasteSpecial Paste:=xlPasteAll, Transpose:=True
Else
.Range("B" & .Range("B65536").End(xlUp).Row + 1).PasteSpecial _
Paste:=xlPasteAll, Transpose:=True
End If
End With
Next J
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
 
Re : Repetition d'une macro

Effectivement, j'ai du l'enregister par inadvertance... Dsl...

Cependant, j'ai reteste et ca copie dans mon 2eme onglet 2 lignes avec les memes donnes de la 1ere colonne...
 
Re : Repetition d'une macro

Re
Si tu test avec le fichier donné au post 1, c'est normal. Il y a la colonne F recopiée en colonne J (donc deux fois la même ligne sur la feuille de résultat 😉)
Cordialement
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
289
Réponses
5
Affichages
406
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…