Discussion :

[pétrin]

Bonjour à tous,

Je suis dans une impasse et je ne comprends pas pourquoi. Je fais donc appel aux experts et aux confirmés de ce forum.
J’avais écris un code pour copier plusieurs colonnes, contiguës et non contiguës, d’une feuille à une autre. Ci-dessous le code :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Copier_Données_dans_Alerte()
Worksheets("Alerte").Cells.Clear
Worksheets("Données").Select
Range("A:A,B:B,C:C,F:F,G:G,I:I,L:L,M:M").Select
Selection.Copy
Sheets("Alerte").Select
Range("A1").Select
ActiveSheet.Paste
End Sub

Celui-ci a bien fonctionné plusieurs fois, plusieurs jours d’affilée.
Ce code est dans le classeur PERSONAL.xlsb de sorte qu’il est utilisable dans tous les classeurs, pourvu que ceux-ci contiennent les mêmes noms de feuilles.

Aujourd’hui j’ai le message d’erreur sur la ligne 4 : "Erreur d’exécution 1004" La méthode "range" de l’objet "_Global " a échoué.

J’ai alors essayer les syntaxes suivante, avec en retour le même message d’erreur :

Code :

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

ActiveSheet.Range("A:A,B:B,C:C,F:F,G:G,I:I,L:L,M:M").Select

Code :

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

Range("A:C,F:G,I:I,L:M").Select

Code :

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

ActiveSheet.Range("A:C,F:G,I:I,L:M").Select

J’ai ensuite essayé :

Code :

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

Columns("A:A,B:B,C:C,F:F,G:G,I:I,L:L,M:M").Select

qui m’a renvoyé le message : " Erreur d’exécution 13 " Incompatibilité de type

J’ai alors essayé avec de sélectionner une seule colonne puis plusieurs contiguës avec les instructions
Range("A:A").Select puis
Range("A:C").Select
et là ça fonctionne, quelles que soient les colonnes colonnes sélectionnées.

Il semblerait donc que la virgule comme « séparateur » ne soit plus reconnue alors que cela fonctionnait sans problème auparavant.

J’ai essayé dans un autre classeur où j’ai créé les feuilles « Données » et « Alerte » et le problème persiste.

J’avoue que ce mystère est bien agaçant.
Merci de votre aide.
Cordialement

[Thautheme]

Bonjour Pétrin, bonjour le forum,

Peut-être comme ça :

Code :

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

Application.Union(Columns("A:C"), Columns("F:G"), Columns("I:I"), Columns("L:M")).Select

[parmi]

Bonjour,

Ceci fonctionne bien ici

Code :

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

1
2
3
4
5
Sub Copier_Données_dans_Alerte()
    Worksheets("Alerte").Cells.Clear
    Worksheets("Données").Range("A:A,B:B,C:C,F:F,G:G,I:I,L:L,M:M").Copy
    Sheets("Alerte").Range("A1").PasteSpecial
End Sub

[pétrin]

Parmi, Tautheme,

merci beaucoup ! Chacune de vos solutions fonctionne.
Merci aussi pour votre diligence.
Cordialement