FORUM ERSOLUMA
 
Retour au forum
 

Ajouter une réponse

Pseudo :    S'inscrire ?
Mot de passe :    Mot de passe perdu ?
Icône :
                                
                                
Message :
 
 
 
Smilies personnalisés
 
Options :
Notification par email en cas de réponse
Désactiver les smilies
Activer votre signature
 
 
Dernières réponses
jackouille
on dirait une paire de couilles
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?
eugene bidochon
ALEXANDRA a écrit :

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

jackouille
Moi je veux bien jouer avec toi .
Glisses moi à l'oreille ton numéro de téléphone ........
ALEXANDRA
Les garçons ca vous dirait de jouer à autre chose de plus passionnant avec moi ?
ersoluma
C'est juste une discussion de mecs qui utilisent aussi leur PC pour travailler .
jackouille
c'est quoi ce dialogue d'intellos ou bien est ce un nouveau dialecte ?
ersoluma
Avec toutes ces explications , celà devrait aller.
merci à toi grand maitre informaticien
ersoluma
je souhaite mettre à zero des cellules dans plusieurs pages d'une méme feuille de calcul.
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+
 
Retour au forum
 
créer forum