Discussion :

[jules13000]

Bonjour à tous,

Je souhaiterai copier à l’identique un tableau, avec les mises en condition, les validations des données, les macros, les largeurs et hauteurs des lignes, bref, copier au sens propre ...
Alors copier une feuille ça c'est très simple, mais bizarrement copier un tableau sur une même feuille est impossible, j'ai testé toutes les options de collage mais rien y fait !
Si vous pouvez m'aider, merci beaucoup.

[Patrice740]

Bonjour,

Tout d'abord, pour cela il faut que le tableau soit conçu pour être copié, en particulier toutes les formules faisant référence à des cellules extérieures au tableau.
Ensuite il y a des impossibilités physiques : il est évident qu'un recoupage partiel des lignes ou des colonnes ne permet pas toujours de conserver leur dimension.

Pour copier un tableau sur les mêmes lignes (par exemple à droite du tableau initial) : Copier / Collage spécial : largeur des colonnes / Coller

Pour copier un tableau sur les mêmes colonnes (par exemple en dessous) : Sélectionner les lignes entières / Copier / Coller

Pour copier un tableau ailleurs sans intersection de ligne et de colonnes : copier en dessous puis Couper / Collage spécial : largeur des colonnes / Coller

Edit : Les macros dans un tableau ça n'existe pas ... Elles sont dans un module et donc elles doivent être conçues pour ou être retouchées.

[Rodomacro]

Bonjour Patrice,

Je cherche aussi à copier une feuille XLS comprenant une macro. Je parviens à le faire en conservant la mise en forme, la macro duppliquée tourne, mais elle n'affiche aucun résultat. Avez vous une idée de la cause de mon problème ?

Merci.

Et voici la macro en question :

Sub Creation_Onglets_Selon_Modele()
Dim c As Range

Application.ScreenUpdating = False
Set c = Worksheets("Noms_Villes").Range("E4")
Do Until IsEmpty(c)

'on copie le modèle en dernier
Worksheets("Itinéraires").Copy after:=Worksheets(ThisWorkbook.Sheets.Count)

With Worksheets(ThisWorkbook.Sheets.Count)
.Name = c.Value
.Range("C1") = c.Value
.Range("C3") = Date
End With

Set c = c.Offset(1, 0)
Loop

Application.ScreenUpdating = True
End Sub

[Patrice740]

Bonjour Rodomacro

Peux-tu préciser quel est exactement le problème que tu rencontres avec ta macro (chez moi elle fonctionne très bien)

Edit :
Je viens de voir ton autre post à ce sujet.
De quelle macro parles-tu lorsque tu dit qu'elle n'affiche aucun résultat ?
Si c'est la macro de calcul d'itinéraire, c'est normal ne se trouve pas dans la feuille Itinéraire !
Et comme je l'ai dit dans mon post précédent, la macro doit être conçue pour fonctionner avec la page dupliquée, ce n'est pas le cas avec la macro de calcul d'itinéraire !

[Rodomacro]

Bonjour,

Oui j'ai vu votre votre post expliquant que "la macro doit être conçue pour fonctionner avec la page dupliquée", j'ai essayé de faire en sorte que ma macro puisse le faire mais je n'y parviens pas. Pourriez vous m'expliquer la démarche à suivre s'il vous plaît ?

Sinon la macro qui ne fonctionne pas est la macro de calcul des itinéraires, une fois qu'elle a été dupliquée (ce qui confirme la nécessité que la macro soit conçue pour fonctionner avec la page dupliquée).

Merci.