Comment copier un tableau dans une autre feuille en VBA ?Résolu/Fermé

Question

Bonjour, 

je souhaite copier coller le contenu d'une feuille dans une autre mais j'ai un peu de mal. Quelqu'un peut me dire ce qui ne va pas dans mon code ?

Sub Copie()



If SheetExists("Zusamenfassung") = False Then
        MsgBox "Das Blatt Zusamenfassung existiert noch nicht. Bitte kreatieren es bevor die Makro zu spielen."
        Exit Sub
    End If
    
   
    Worksheets("Kalles").Range(A1).ClearContents
    
For i = 1 To 70
    
    Sheets("Zusamenfassung").Select
    Range("Ai").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Kalles").Select
    Range("Ai").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Next


End Sub



Je vous remercie d'avance :)



Configuration: Windows 7 / Internet Explorer 8.0

Le Pingou · Answer

Bonjour, 
Au passage, ou se trouve votre tableau ..... (introuvable dans le code...) ? 
Qu'elle est la raison de la boucle : [For i=1 To 70]... ! 
N'est-il pas plus simple de le faire manuellement par copier/coller ...?
  
  
Salutations. 
Le Pingou

Hugo2Lyon · Answer

Bonjour,

Finalement j'ai resolu mon probleme. 
Le tableau coresspondait a la feuille Zusamenfassung.  Et j'utilisais le boucle for pour copier toute les colonnes dans ma nouvelle feuille mais j'ai été bête ce ne sont pas les chiffres qui s'incrementaient mais les caracteres ( A, B ... etc).

Oui mais etant donné que c'est une feuille qui serq utilisée en routine j'avais besoin d'un copier coller plus rapide.

Comment copier un tableau dans une autre feuille en VBA ?

2 réponses

Newsletters