copie de feuille

[Francis]

Bonsoir le forum
Suite à un tri, je désire copier le contenu de la feuille triée dans une autre feuille. Cette autre feuille est crée (s’il y a lieu) et nommée du nom de la combobox qui a servie lors du tri. La macro se déroule normalement jusqu'à la dernière ligne : Le contenu de la page n’est pas copié.
Où est l’erreur dans mon raisonnement?
Merci d’avance
Francis

Worksheets('Atelier ').UsedRange.Copy
Worksheets(ComboBox1.Value).Select
If Err <> 0 Then Worksheets.Add.Name = ComboBox1.Value
ActiveSheet.Paste

 

[michel_m]

bonjour,

Apparament,tu copies sur une feuille qui n'existe pas encore

inverses les 2 lignes

Worksheets(ComboBox1.Value).Select
If Err <> 0 Then Worksheets.Add.Name = ComboBox1.Value

deviendrait

If Err <> 0 Then Worksheets.Add.Name = ComboBox1.Value
Worksheets(ComboBox1.Value).Select

Le fait que la macro 'se déroule normalement ' vient du fait que tu as d&ucirc; employer la ligne 'on error resume next' en amont, dans ce cas la macro SEMBLE se dérouler normalement cae elle ne plante pas quand le débogueur compile...

Bonne journée

Michel

 

[Francis]

Bonjour Michel et le forum
Tout d'abord merci de ta réponse. J'ai essayé ta solution ,elle ne marche pas.Mais tu m'a mis sur la piste.
J'ai retiré on error..... afin de voir le n° de l'erreur et j'ai vu que qu'il fallait activer la feuille.
donc la macro donne:
Worksheets('Atelier 54').UsedRange.Copy
Worksheets(ComboBox1.Value).Activate
If Err <> 0 Then Worksheets.Add.Name = ComboBox1.Value
[a1].Select
ActiveSheet.Paste
Ca marche parfaitement et merci encore pour ton idée.
Francis