Clignotement du curseur

Salut la communauté,

J'ai élaboré un code pour vider les cellules étalées sur 10 000 lignes et 16 colonnes dans cinq (05) feuilles distinctes.

Voici mon code:

Private Sub Bouton6_Click()

Dim Ligne As Long

Dim Colonne As Long

Application.ScreenUpdating = False

For Ligne = 2 To 10001

For Colonne = 1 To 16

Sheets("AGENT").Cells(Ligne, Colonne) = ""

Sheets("BORD").Cells(Ligne, Colonne) = ""

Sheets("AGENCE").Cells(Ligne, Colonne) = ""

Sheets("SALAIRE").Cells(Ligne, Colonne) = ""

Sheets("JOURNAL").Cells(Ligne, Colonne) = ""

Sheets("DONNEES").Cells(Ligne, Colonne) = ""

Next

Next

Application.ScreenUpdating = True

End Sub

Le code marche, quoique très lent. Mais ce que je n'aime pas du tout, c'est le clignotement du curseur

qui vire en boucle entre la flèche et le cercle de progression. Et je n'aime pas du tout ça. J'ai bien fouillé

sur internet voir si je pouvais trouver une solution à mon problème mais hélas! Je me suis finalement

résolu que le problème se trouverait forcément dans ma macro.

Quelqu’un saurait m'aider? Merci bien!

Bonjour,

Essai donc ceci ... ça devrait être plus rapide ...

Private Sub Bouton6_Click()

   Application.ScreenUpdating = False

   Sheets("AGENT").Range("A2:P10001").ClearContents
   Sheets("BORD").Range("A2:P10001").ClearContents
   Sheets("AGENCE").Range("A2:P10001").ClearContents
   Sheets("SALAIRE").Range("A2:P10001").ClearContents
   Sheets("JOURNAL").Range("A2:P10001").ClearContents
   Sheets("DONNEES").Range("A2:P10001").ClearContents
End Sub

* Modification : la 16e colonne, c'est la colonne P ( pas la O ) ... désolé.

ric

Salut Bana,

Salur Ric,

pour le plaisir d'écrire la même chose autrement...

A vérifier quand même car ce code prendra toute la feuille (usedrange) sans tenir compte des limites de ta demande, à savoir [P10001].

'
Application.EnableEvents = False
Application.ScreenUpdating = False
'
For x = 1 To 6
    With Worksheets(Choose(x, "AGENT", "BORD", "AGENCE", "SALAIRE", "JOURNAL", "DONNEES"))
        .Range("A2").Resize(.Range("A" & .Rows.Count).End(xlUp).Row, .Cells(2, .Columns.Count).End(xlToLeft).Column).Value = ""
    End With
Next
'
Application.EnableEvents = True
Application.ScreenUpdating = True

A+

Merci bien curulis57

Je vais tester le code et je vous reviens.

Cordialement!