Discussion :

[mormic]

Bonjour,
Je souhaite faire quelque chose de simple à priori et au vu de mes recherches le sujet semble être éculé; mais, ma syntaxe ne fonctionne pas.
Alors, ne voulant pas mourir idiot, si quelqu'un pouvait me dire ce qui ne va pas?
Dans un classeur Excel, j'ai une feuille "Toto" dans laquelle il y a un tableau avec une mise en page, les cellules n'étant pas déterminées.
Je dois recopier ce tableau avec sa mise en page et ses valeurs dans une autre feuille "Tata".
Ne sachant pas où se trouve le tableau dans le feuille, j'ai pensé utiliser la "cells.copy" ainsi:

Code :

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

1
2
3
4
5
6
 
            Sheets("Toto").Cells.Copy
            With Sheets("Tata")
                .PasteSpecial Paste:=xlPasteFormats
                .PasteSpecial Paste:=xlPasteValuesAndNumberFormats
            End With

Merci de votre aide
Michel

[Thautheme]

Bonjour Mormic, bonjour le forum,

Tu n'as pas spécifié où coller, dans quelle cellule...

Code :

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

1
2
3
4
5
6
7
Sub Macro1()
Sheets("Toto").Cells.Copy
With Sheets("Tata").Range("A1")
    .PasteSpecial Paste:=xlPasteFormats
    .PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With
End Sub

[mormic]

C'est juste une erreur de recopie; ma syntaxe complète est:

Code :

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

1
2
3
4
5
6
            Sheets("Toto").Cells.Copy
            With Sheets("Tata").cells
                .PasteSpecial Paste:=xlPasteFormats
                .PasteSpecial Paste:=xlPasteValuesAndNumberFormats
            End With

Et avec cela j'ai l'erreur: "Incompatibilité de type"

Michel

[Thautheme]

Bonjour Normic, bonjour le forum,

Essaie la proposition que je t'ai faite. Je l'ai testée et ça marche...

[mormic]

Bien sûr je l'avais essayé avant de répondre mais c'est le même résultat: "Incompatibilité de type"
J'avoue ne pas être un cador en VBA, mais il y a des fois où ça énerve.
Merci pour votre aide
Michel

[Thautheme]

Bonjour Mormic, bonjour le forum,

Peux-tu nous donner ton code complet et nous indiquer qu'elle est la ligne qui plante... (bonjour les modos !)

[mormic]

Bonsoir Thautheme

Merci pour ta patience.

J'ai fait une petite maquette toute simple avec un code tout simple. Et comme tu me le disais cela fonctionne.
Alors en regardant mon code exact:

Code :

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

1
2
3
4
5
6
7
8
 
            Sheets.Add After:=Sheets(Sheets.Count)
            Sheets(Sheets.Count).Name = SaisieNouveau.Nombox
            Sheets(NomPere).Cells.Copy
            With Sheets(SaisieNouveau.NomBox).Cells
                .PasteSpecial Paste:=xlPasteFormats
                .PasteSpecial Paste:=xlPasteValuesAndNumberFormats
            End With

je me suis dit que peut-être il n'appréciait pas le "SaisieNouveau.Nombox" qui vient d'un textbox d'un userform.
et là je viens de me rendre compte que j'ai tout simplement omis de mettre l'attribut ".Name" à SaisieNouveau.Nombox
Tu avais donc raison de me demander mon code exact et cela me servira de leçon.

Mon code qui va bien:

Code :

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

1
2
3
4
5
6
7
8
 
            Sheets.Add After:=Sheets(Sheets.Count)
            Sheets(Sheets.Count).Name = SaisieNouveau.Nombox.Name
            Sheets(NomPere).Cells.Copy
            With Sheets(SaisieNouveau.NomBox.Name).Cells
                .PasteSpecial Paste:=xlPasteFormats
                .PasteSpecial Paste:=xlPasteValuesAndNumberFormats
            End With

Encore merci pour ton aide précieuse.
Michel

[mormic]

C'est encore moi. En fait c'est ".value" que j'ai omis parce que je pensais que c'était la valeur par défaut! Bizarre!

Cordialement
Michel