Discussion :

[mimil49]

Bonjour !

Comment créer un bouton reset qui me permettrai d'effacer toutes mes données sauf certaine colonne

par exemble la colonne A , E , G !!

Merci

[rtg57]

Bonjour,

Définissez une zone à effacer en utilisant la zone de nom:
* Sélectionnez toute la page exceptée les 3 colonnes que vous avez indiquées.
* Dans la zone de noms, tapez un texte ( par exemple "ZoneEffacement" ), et validez par la touche [Entrée]

Ensuite il vous suffira:
* de sélectionner la zone en utilisant la zone de nom qui permet la sélection de celle-ci, puis d'appuyer sur la touche [Suppr] de votre clavier
* Ou par VBA: Range("ZoneEffacement").Clear

[pijaku]

Bonjour,
En deux étapes, sous excel 2003 :

1- Création du bouton de commande :
- Affichage/Barre d'outils/Boîte à outils contrôles
- cliquez sur l'icône "Bouton de commande" (rectangle gris)
- dessinez le bouton, dans la feuille qui nécessite le "reset"
- clic droit sur le bouton / Objet / Editions : remplacer CommandButton1 par Reset
- clic n'importe ou dans la feuille puis double clic sur le bouton, une fenêtre Microsoft Visual Basic s'ouvre avec deux lignes de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
 
End Sub

2- Le code VBA à affecter à ce bouton :
Entre ces deux lignes, vous devez placer ces quelques lignes de code pour obtenir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Dim Plage As Range
 
Set Plage = Application.InputBox("Sélectionnez la plage à effacer!", "Sélection", Type:=8)
With Plage
    .ClearContents
End With
End Sub

- fermez la fenêtre Microsoft Visual Basic pour revenir sur la feuille
- Dans la barre d'outils "boîte à outils contrôles", cliquez sur : "désactiver le mode création" (icône avec une équerre bleue, un crayon et une règle)

Testez en cliquant sur le bouton. !!!! Testez cette macro sur une copie de votre fichier initial, sous peine de perte définitive des données !!!!
Une boîte de dialogue s'ouvre en vous demandant de sélectionner la plage à supprimer. Ceci pourra être adapté si cette plage ne fluctue jamais.
Si cette plage est amenée à changer, d'autres méthodes pourront également être envisagées avec de plus amples précisions.
Vous dites...

[mimil49]

Merci ca efface bien les valeurs comme je voulais ...

...Mais j'ai beaucoup de mais

1er => comment faire pour effacer les commentaires
2eme => efface les commentaires mais n'efface pas les formules
3eme => lorsque j'appui sur reset les valeurs de la colonne C par exmple ce mets en colonne A

Merci pour l'aide

re

Du coup pour le probléme des formules ! J'ai testé de verrouiller les cellules avec formule !! mais quand je selectionne avec le bouton reset la macro mets une erreur pour dire que c verouillé !!

Comment eviter que la macro me mette une erreur tout en utilisant la methode verrouillé

Merci

[pijaku]

Partant du principe qu'une formule commence par le signe =, il convient de tester ça dans chaque cellule.
La macro qui suit teste toutes les cellules 1 par 1 dans ta plage sélectionnée et si elle ne contient pas de formule supprime le contenu (ClearContents) et l'éventuel commentaire (ClearComments) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
Dim Plage As Range, Cel As Range
 
Set Plage = Application.InputBox("Sélectionnez la plage à effacer!", "Sélection", Type:=8)
For Each Cel In Plage 'pour chaque cellule dans la plage sélectionnée
    If Left(Cel.Formula, 1) <> "=" Then 'si la cellule ne contient pas de formule
        With Cel 'dans la cellule
            .ClearContents 'supprime le contenu
            .ClearComments 'supprime le commentaire
        End With
    End If
Next
End Sub

Pour que tes données en colonne C se retrouve en colonne A, il faut que ...
tu supprimes les colonnes A et B.

[mimil49]

Merci beaucoup!

Mais par rapport a ma derniére question !!

Enfaite j'ai des donées 2010 en colonne A et en colonne C des données de 2011

Et dés que je fais un reset les valeurs de 2011 vont en colonne A et ainsi en colonne C je pourrais saisir mes valeurs 2012 , ainsi de suite chaque années

Ca me permet de faire une seule saisie (celle de 2012 en colonne C)

ET ainsi pas besoin de copié ou résaisir les valeurs 2011 dans la colonne A car elle ce feront automatiquement

[pijaku]

Et bien pour ta dernière question il m'en faut davantage... J'ai pour cela consulté ma boule de cristal, mais la structure de ton classeur reste floue...

- Que supprimes tu grâce au code que je t'ai donné? Qu'elle est la plage de cellules que tu supprimes?

- Qu'y a t'il en colonne B ? des données que tu souhaites conserver?

- Toutes les lignes de la colonne C sont elles concernées ou seulement certaines?