Bonjour à tous,
je suis novice sur Excel VBA.
Actuellement, je cherche à copier sur une nouvelle feuille qui s'appelle "table AS_IS" des élements d'une autre feuille dans la range ("A1:R1").
Ma macro est associé à un bouton. Du coup, j'ai prévu le cas ou l'utilisateur appuierais deux fois sur le bouton en ajoutant à la macro une fonction FeuilleExiste que j'ai récupérer sur internet.
Le souci c'est que j'ai une erreur 1004: la methode Paste de la classe Worksheets ne marche pas. En gros je perds ma copie au moment de coller.
Pourrier vous m'aider?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30 Sub Table_AS_IS() ' ' Table_AS_IS Macro ' Création de la table AS_IS ' ' 'Selection des colonnes pour la table AS_IS Range("A1:R1").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy 'Si la feuille table AS_IS n'existe pas, elle est crée et nommée "table AS_IS" If Not (FeuilleExiste("table AS_IS")) Then Sheets.Add ActiveSheet.Name = "table AS_IS" End If Worksheets("table AS_IS").Select 'Sinon(si elle existe déjà),on efface tous ce qui est dans les colonnes A jusqu\'à R' Range("A:R").Delete Range("A1").Select ActiveSheet.Paste End Sub Function FeuilleExiste(Nom As String) As Boolean On Error GoTo Err_FeuilleExiste FeuilleExiste = False FeuilleExiste = Not Worksheets(Nom) Is Nothing Err_FeuilleExiste: End Function
Partager