Discussion :

[bricko]

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

[issoram]

Bonjour,

Essaie de faire ce que tu as codé, à la main, tu verras que ça ne fonctionne pas non plus.
Lorsque tu supprimes des colonnes (ou autre), Excel perd ce qu'il a dans le presse papier => plus rien à coller au moment du Paste => d'où l'erreur 1004.
Fais plutôt:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
TaFeuilleCible.Range("A.R").Delete
TaZoneAcopier.Copy Destination:=TaFeuilleCible.Range("A1")

Cordialement.

[nibledispo]

bonjour,

Tu ne perds rien puisque tu ne copie rien (delete précédent).

Sinon voici le code à adapter à ton besoin.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub copiecoller()
    'Feuil1.Range("A1:R1").Delete
    Feuil1.Range("A1").Copy
    Sheets("Feuil2").Select
    ActiveSheet.paste
    Application.CutCopyMode = False
End Sub

Penses à utiliser l'enregistreur de macro pour ce genre de souci.

cordialement.

[bricko]

Merci pour la réponse, je viens de faire des modifications comme vous me l'avez proposé et ça marche.

[nibledispo]

bonjour issoram?

Je ne comprends pas ta syntaxe simplificatrice. Peux tu expliquée?

Destination : C'est quoi puisque l'on met immédiatement la feuille cible après ?

Cordialement.

[rvtoulon]

bonjour nibledispo,

Destination : C'est quoi puisque l'on met immédiatement la feuille cible après ?

regarde l'aide dans VBA, touche à l'entrée "copy". tu auras la réponse.
remarque:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TaZoneAcopier.Copy Destination:=TaFeuilleCible.Range("A1")

peu aussi s'écrire directement sans destination:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TaZoneAcopier.Copy TaFeuilleCible.Range("A1")

[nibledispo]

Bonjour rvtoulon,

Merci pour l'info. Il est vrai que j'ai beaucoup de difficultés avec la recherche F1.
Il faudra que je m'y fasse.
la syntaxe de la copie est plus simple à retenir que celle donnait par l'enregistreur de macro que j'utilisais jusqu'à présent.

cordialement.