Deselection cellules apres copy

[apdf]

Bonjour

Je fais une copie d'un groupe de cellules d'une feuille vers une autre en utilisant ceci :

' Copie vers feuille affichage
Private Sub CommandButton4_Click()

Sheets("Affichage").Select ' Aller a la feuille "Affichage"

' Noms
Worksheets("Score").Range("B2:F110").Copy Worksheets("Affichage").Range("C2:G110")

'Classement
Worksheets("Score").Range("A2:A110").Copy
Worksheets("Affichage").Range("A2:A110").PasteSpecial xlPasteValues

' Table & Orientation sans formule
Worksheets("Score").Range("I2:I110").Copy
Worksheets("Affichage").Range("B2:B110").PasteSpecial xlPasteValues


End Sub

Comment faire pour que mes cellules ne soient plus selectionnées (les cellules ("B2:B110") restent entourées d'une bordure ).

J'ai essayer le code suivant sa ne marche pas?

Application.CutCopyMode = False

Je vous remercie de votre aide.

Bonne journée

Cordialement

Max

 

[phlaurent55]

Re : Deselection cellules apres copy

Bonjour Max,

Comment faire pour que mes cellules ne soient plus selectionnées (les cellules ("B2:B110") restent entourées d'une bordure ).

en sélectionnant une autre cellule en fin de procédure

voir fichier joint

à+
Philippe

 

[apdf]

Re : Deselection cellules apres copy

Bonjour Philippe,

Je te remercie mais toujours se message !!!!

Message d'erreur " la methode Select de la classe Range a echoué"

Je te joint mon fichier peut être se seras mieux


Bonne journee

@+

Max

 

[JCGL]

Re : Deselection cellules apres copy

Bonjour à tous,

Peux-tu essayer en précisant la feuille :

Sheets("Affichage").Range("I5").Select

A + à tous

 

[apdf]

Re : Deselection cellules apres copy

Bonjour JCGL,

Je te remercie sa marche nickel

Je te souhaite une bonne journée

@+

Max