VBA Blocage lors de l'exécution de la commande

[ushuiaia]

Bonjour,

Dans le cadre d'un classeur excel de gestion de données, je souhaite mettre en place une commande pour "nettoyer" l'ensemble des feuilles du classeur de manière à recommencer les calculs.

Pour se faire, j'ai créé un bouton de command dans lequel j'ai défini le code suivant :

Private Sub CommandButton1_Click()

Range("A12😀1000").Select
Selection.Clear
Range("A12").Select

Sheets("SD").Select
Range("H6").Select
Range("A12😀1000").Select
Range("A12").Select


End Sub

Le programme bloque à la sélection de la cellule H6 de la feuille nommée SD, et je ne vois pas le problème dans mon programme.

Merci de m'éclairer.

Bonne journée.

 

[GeoTrouvePas]

Re : VBA Blocage lors de l'exécution de la commande

Bonjour,

Difficile de t'aider sans même savoir le message d'erreur que tu obtiens ou sans avoir un exemple de ton classeur. "Le programme bloque", ça n'est pas très explicite, désolé.

 

[mutzik]

Re : VBA Blocage lors de l'exécution de la commande

bonjour,

pour effacer tes données, il n'y a pas besoin de select
sheets("mafeuille").range("monrange").clear 'efface tout
clearcontents n'efface que les données sans enlever la mise en forme

sinon, dans ta feuille 'SD' , tu fais 3 select différents sans faire d'action, donc elles ne servent strictement à rien

mais bon, comme l'a dit plus haut Géo TrouvePas (que je salue au passage) sans voir ton fichier ...

 

[ushuiaia]

Re : VBA Blocage lors de l'exécution de la commande

Désolé pour le manque de précision concernant ma demande.

J'ai bien pris en compte les conseils pour la simplification du code. Merci.

Concernant le blocage,

il apparait une boîte de dialogue indiquant Erreur d'exécution '1004' :

La méthode Select de la clase Range a échoué.

Ci joint un extrait fichier excel.

En espérant avoir été plus précis dans mes informations.

Merci pour votre participation.

 

[GeoTrouvePas]

Re : VBA Blocage lors de l'exécution de la commande

Remplace ton code par ceci et tout rentrera dans l'ordre :

Sheets("DE").Range("A12:D1000").ClearContents
Sheets("SD").Range("A12:D1000").ClearContents

 

[ushuiaia]

Re : VBA Blocage lors de l'exécution de la commande

Je vais essayer. Merci pour tout.

Ushuiaia