Valeur par défaut

[Filoolahoop]

Bonjour à tous!

J'ai un problème (étonnant, non?) que je m'en vais essayer de vous expliquer de manière intelligible (c'est pas gagné).

Dans mon tableau, je souhaite qu'une cellule ne soit jamais vide. Sa valeur peut être modifiée par l'utilisateur, mais lorsque ce dernier supprime sa saisie, il faut que la cellule reprenne sa valeur par défaut.

La valeur 'par défaut' est présente sur la même feuille que le tableau.

Pour expliciter mon cas, j'ai joins à ce post un exemple.

Par avance merci pour votre aide!

Bonne journée à tous.

Filoolahoop

 

[Hervé]

Bonjour fillolahoop, le forum

Tu n'a pas joint ton fichier.

Sinon un petit code VBA à placer dans le module de la feuille souhaité.

clique droit sur le nom de l'onglet, puis visualiser le code.

et tu colles ca :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = 'D8' Then
If Target = '' Then Target = 4
End If
End Sub

Cellule testé D8, valeur renvoyé : 4.

salut

Message édité par: hervé, à: 14/11/2005 11:51

 

[Filoolahoop]

Bonjour Hervé!

Quand on a pas de tête .... voilà le fichier (enfin j'espère!).

Une solution en vba me convient moyennement mais c'est déjà ça!

Dans mon exemple je ne travail qu'avec une seule colonne, mais dans mon cas pratique je ne connait pas le nombre de colonne totale (possibilité d'étandre le tableau en copiant collant les colonnes, et donc les formules ...).

Merci et à bientôt!

Filoo

 

[filoolahoop]

Apparement ça veut pas insérer la pièce jointe .... grrrrrrrrr ..

Je ré-essaye.

Encore désolé.

 

[filoolahoop]

on ne s'énerve pas..... je dois être stupide ou derrière un par-feu!!

Tel le filoo, je vais filooter l'obstacle :

Voilà mon tableau :

Tableau1

col1 col2 col3
blabla bla bla
blublu blu blu
toto ......==> ......==> cette cellule ne doit pas être vide
titi ti ti soit valeur par défaut (32 par
exemple pour la colonne2), soit
saisie de l'utilisateur.
En cas de suppression de la saisie
retour à la valeur par défaut (32
pour la colonne 2

Tableau2

col1 col2 col3
valeur 32 45


Encore désolé pour mon incompétence et encore merci pour votre incommensurable patience !

Merci

Filoolahoop, le filooteur

 

[Hervé]

re le filooteur

Très difficile sans voir ton fichier. de plus j'ai bien peur que tu ne sois obligé de passer par du vba.

Ce code controle la colonne, si c'est la colonne 2 et que la cellule est vide, alors on place 32, idem pour la colonne 3

Quant à savoir si ce code peut s'adapter aux ajouts ou suppressions de colonnes, je ne peux me prononcer qu'au regard de tes données.

salut

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
        Case 2
                If Target = '' Then Target = 32
        Case 3
                If Target = '' Then Target = 45
End Select
End Sub

salut

 

[filoolahoop]

Merci bcp Hervé,

Ta solution marche bien.... je n'ai plus qu'à adapter mon classeur (figer un nombre de colonne, par exemple).

Dès que j'utilise un peu de code en vba pour résoudre un problème.... je fini toujours par tout remodeler à grand coups d'userforms !!

Encore merci au forum pour son efficacité désormais légendaire et à toi Hervé pour le temps passé (entre autres!!)

Salut et bonne soirée

Filoo (zofgrek)