FORUM ERSOLUMA
Administrateurs : ersoluma, Ludo
 
 FORUM ERSOLUMA  Discussion d'informatique  apprendre excel 

 création d'un bouton RAZ

Nouveau sujet   Répondre
 
Bas de pagePages : 1  
ersoluma
Quand le boss cause ,on écoute
Administrateur
ersoluma
17 messages postés
   Posté le 17-08-2004 à 20:25:14   Voir le profil de ersoluma (Offline)   Répondre à ce message   http://rallye.2004.monsite.wanadoo.fr/   Envoyer un message privé à ersoluma   

j'utilise une feuille de données pour réaliser des devis et je souhaiterai pouvoir mettre à zéro certaines celllules en cliquant sur un bouton RAZ.
je pense qu'il faut créer une macro mais je sais pas trop comment faire.
merci de ton aide si tu sais comment faire


--------------------
Pére FOURAS maitre du jeu
Ludo
Regarde pas derriére je suis devant
Administrateur
Ludo
13 messages postés
   Posté le 18-08-2004 à 00:16:10   Voir le profil de Ludo (Offline)   Répondre à ce message   http://rallye.2004.monsite.wanadoo.fr/   Envoyer un message privé à Ludo   

Salut Ersoluma,
Bon alors un peu d'excel ce soir, ça fait bien longtemps que j'ai touché à ça.
Foudrai que t'en dise un peu plus sur ta feuille:

1- dois tu effacer toutes les valeurs de la feuille ?
2- contient t'elle des tableaux avec des zones à réinitialiser?
3- est-ce seulement des valeurs numérique ?

dans le cas 1 :
Tu crée un bouton de commande et tu y associe la macro suivante :

Sub ClearCellWithoutFormula()
Dim Cell As Range

For Each Cell In ActiveSheet.UsedRange
If Not Cell.HasFormula Then
Cell.ClearContents
End If
Next
End Sub

dans ce cas tu efface toute la feuille sauf les formules.

dans le cas 2 :

For Each Cell In Range(" A11:H25 "
If Not Cell.HasFormula Then
Cell.ClearContents
End If
Next
End Sub

A la place du code en gras tu mets les zones des tableaux. Si tu as plusieurs tableaux tu sépare par une virgule camme ça :
For Each Cell In Range("B11:H16,B18:H18,B20:H23,J11:J23"

Dans le cas 3 :

Sub ClearNumericCellWithoutFormula()
Dim Cell As Range

For Each Cell In ActiveSheet.UsedRange
If Not Cell.HasFormula And IsNumeric(Cell) Then
Cell.ClearContents
End If
Next
End Sub

Cette macro effacera seulement contenu des cellules ayant une valeur numérique (pas celles ayant une formule ou contenant du Text)

Je ne sais pas si je suis sur la même longueur d'onde que toi, sinon dis le.

A+
ersoluma
Quand le boss cause ,on écoute
Administrateur
ersoluma
17 messages postés
   Posté le 18-08-2004 à 18:23:42   Voir le profil de ersoluma (Offline)   Répondre à ce message   http://rallye.2004.monsite.wanadoo.fr/   Envoyer un message privé à ersoluma   

je souhaite mettre à zero des cellules dans plusieurs pages d'une méme feuille de calcul.


--------------------
Pére FOURAS maitre du jeu
ersoluma
Quand le boss cause ,on écoute
Administrateur
ersoluma
17 messages postés
   Posté le 19-08-2004 à 19:59:44   Voir le profil de ersoluma (Offline)   Répondre à ce message   http://rallye.2004.monsite.wanadoo.fr/   Envoyer un message privé à ersoluma   

Avec toutes ces explications , celà devrait aller.
merci à toi grand maitre informaticien


--------------------
Pére FOURAS maitre du jeu
jackouille
Ok.......ay!!!!!!
Membre
jackouille
36 messages postés
   Posté le 20-08-2004 à 11:49:25   Voir le profil de jackouille (Offline)   Répondre à ce message   Envoyer un message privé à jackouille   

c'est quoi ce dialogue d'intellos ou bien est ce un nouveau dialecte ?


--------------------
Jackouille la fripouille
ersoluma
Quand le boss cause ,on écoute
Administrateur
ersoluma
17 messages postés
   Posté le 20-08-2004 à 18:37:05   Voir le profil de ersoluma (Offline)   Répondre à ce message   http://rallye.2004.monsite.wanadoo.fr/   Envoyer un message privé à ersoluma   

C'est juste une discussion de mecs qui utilisent aussi leur PC pour travailler .


--------------------
Pére FOURAS maitre du jeu
ALEXANDRA
Nouveau membre
ALEXANDRA
4 messages postés
   Posté le 20-08-2004 à 23:54:20   Voir le profil de ALEXANDRA (Offline)   Répondre à ce message   Envoyer un message privé à ALEXANDRA   

Les garçons ca vous dirait de jouer à autre chose de plus passionnant avec moi ?
jackouille
Ok.......ay!!!!!!
Membre
jackouille
36 messages postés
   Posté le 22-08-2004 à 18:49:37   Voir le profil de jackouille (Offline)   Répondre à ce message   Envoyer un message privé à jackouille   

Moi je veux bien jouer avec toi .
Glisses moi à l'oreille ton numéro de téléphone ........


--------------------
Jackouille la fripouille
eugene bidochon
le roi de la zigounette
Nouveau membre
eugene bidochon
3 messages postés
   Posté le 22-08-2004 à 23:11:58   Voir le profil de eugene bidochon (Offline)   Répondre à ce message   Envoyer un message privé à eugene bidochon   

ALEXANDRA a écrit :

Les garçons ca vous dirait de jouer à autre chose de plus passionnant avec moi ?

eugene bidochon
le roi de la zigounette
Nouveau membre
eugene bidochon
3 messages postés
   Posté le 22-08-2004 à 23:13:27   Voir le profil de eugene bidochon (Offline)   Répondre à ce message   Envoyer un message privé à eugene bidochon   

eugene bidochon a écrit :

[citation=ALEXANDRA]Les garçons ca vous dirait de jouer à autre chose de plus passionnant avec moi ?
[/citation]
moi aussi je veux bien jouer avec toi:laquelle tu choisis?
jackouille
Ok.......ay!!!!!!
Membre
jackouille
36 messages postés
   Posté le 24-08-2004 à 20:17:23   Voir le profil de jackouille (Offline)   Répondre à ce message   Envoyer un message privé à jackouille   

on dirait une paire de couilles


--------------------
Jackouille la fripouille
Haut de pagePages : 1  
 
 FORUM ERSOLUMA  Discussion d'informatique  apprendre excel  création d'un bouton RAZNouveau sujet   Répondre
 
Identification rapide :         
 
Divers
Imprimer ce sujet
Aller à :   
 
créer forum