Bonjour à tous
j'ai un code déclenché par un bouton CommandButton1 dans une feuille
je désire le déclencher à l'ouverture de la dite feuille
je veux copier des colonnes d'une feuille sur l'autre
j'utilise worksheet_activate
et là !! une erreur de select apparait alors qu'avec le bouton ça marche nickel
"La méthode Select de la Classe range à échoué"
pouvez vous me venir en aide
Private Sub Worksheet_Activate()
Call CommandButton1_Click
End Sub
Private Sub CommandButton1_Click()
Columns("A:G").Select
Selection.Delete Shift:=xlToLeft
Columns("H:N").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Anomalies").Select
Columns("A:G").Select <--- erreur à ce niveau
Range("A2").Activate
Selection.Copy
.
.
.
end sub
j'ai un code déclenché par un bouton CommandButton1 dans une feuille
je désire le déclencher à l'ouverture de la dite feuille
je veux copier des colonnes d'une feuille sur l'autre
j'utilise worksheet_activate
et là !! une erreur de select apparait alors qu'avec le bouton ça marche nickel
"La méthode Select de la Classe range à échoué"
pouvez vous me venir en aide
Private Sub Worksheet_Activate()
Call CommandButton1_Click
End Sub
Private Sub CommandButton1_Click()
Columns("A:G").Select
Selection.Delete Shift:=xlToLeft
Columns("H:N").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Anomalies").Select
Columns("A:G").Select <--- erreur à ce niveau
Range("A2").Activate
Selection.Copy
.
.
.
end sub