Macro lente pour effacer des données placées avec " SelectionChange"...

[Christian0258]

Bonjour à tout le forum,

J'aurais besoin de vos compétences VBA pour une macro trop lente...
Cette macro efface des chiffres en colonne, chiffres placés par click "SelectionChange".

voir fichier

Merci pour votre aide, si précieuse.

Bien amicalement,
Christian

 

[KenDev]

Re : Macro lente pour effacer des données placées avec " SelectionChange"...

Bonjour, après simplification voilà la macro complète...

Sub RAZqtés()
    Range("I3:I42").ClearContents
End Sub

 

[mutzik]

Re : Macro lente pour effacer des données placées avec " SelectionChange"...

bonjour

Range("I3:I42").ClearContents

tout simplement, sans faire aucun select

 

[Christian0258]

Re : Macro lente pour effacer des données placées avec " SelectionChange"...

Re, le forum,

KenDev, mutzik, ok et merci pour les macros.
"tout simplement, sans faire aucun select"... merci pour cette explication.

J'aurais une autre demande, cette fois inverse; comment mettre rapidement le chiffre 1 dans les 40 cases...tout en gardant la fonction existante...

Bien à vous,
Christian

 

[coco_lapin]

Re : Macro lente pour effacer des données placées avec " SelectionChange"...

Bonjour le forum,

L'explication vient du fait que losrque tu selectionnes une cellule du repasse à chaque coup dans la boucle "SelectionChange".
Pour effacer une cellule il n'y a pas besoin de la selectionner au préalable.

 

[Christian0258]

Re : Macro lente pour effacer des données placées avec " SelectionChange"...

Re, le forum,

Merci, coco_lapin, pour tes explications, peux-tu me dire pour cette question ;
demande, cette fois inverse; comment mettre rapidement le chiffre 1 dans les 40 cases...tout en gardant la fonction existante...

Bien à toi,

Christian

 

[coco_lapin]

Re : Macro lente pour effacer des données placées avec " SelectionChange"...

réponse à ta question "comment mettre rapidement le chiffre 1 dans les 40 cases"

Sub mettre_1()
For i = 3 To 42
Cells(i, 9) = 1
Next i
End Sub

 

[Christian0258]

Re : Macro lente pour effacer des données placées avec " SelectionChange"...

Re, le forum,

Un grand merci, c'est impeccable.
Dis-moi Tournefeuille c'est où ?

Bien à toi,
Christian

 

[coco_lapin]

Re : Macro lente pour effacer des données placées avec " SelectionChange"...

A 10 Kms de Toulouse.