valeurs par défaut

[micky]

bonjour à tous, je m'explique dans le fichier excel joint
merci de ce que vous pourrez faire
mic

 

[Michel_M]

Bonjour Micky

Ci joint proposition

A+
Michel

 

[micky]

c'est génial mais comment as-tu fait?tu as rajouté une macro on dirait...j' y connais rien la dedans, le truc c'est que ce que je t'ai envoyé n'est qu'une ptite partie d'un très grand programme avec plusieurs feuillets et j'aimerais faire cette manip pour beaucoup d'autres cas, as-tu un protocole "simple" pour un néophyte comme moi?
merci

 

[Michel_M]

Re,

Ce que j'ai fait s'appelle une "macro évémentielle" pour laquelle il faut utiliser VBA, l'enregistreur de macros n'étant pas suffisant dans ce cas.

T'expliquer les macros événementielles est long et ardu et demande des connaissances de bases en VBA.

Tu pourras trouver des topos là dessus sur le site de laurent Longre (longre.free.fr je crois)
, sur info-3000.com et d'autres...

Ci dessous une tentative de traduc du patois que je t'ai envoyé:


Private Sub Worksheet_Change(ByVal Target As Range)
'worksheet_change: changement dans une cellule

'si la cellule de l'évènement (target) n'est pas E4 on sort de la macro
If Intersect(Target, Range("E4")) Is Nothing Then: Exit Sub

'si la valeur dans l'événement est égale à mm alors
If Target.Value = "mm" Then
' la valeur dans "D8.D9" est affectée du nombre 8
Range("D8😀9").Value = 8
Else
' sinon on marque 45
Range("D8😀9").Value = 45
End If

End Sub

' la propriété par défaut de l'objet "range" est Value; on peut donc se dispenser de l'écrire... Ce que n'aime pas du tout les puristes!


Bon courage
A+
Michel

 

[micky]

Merci beaucoup Michel, c'est vrai que c du chinois :0(
j'ai revu mon prog.il faudrait renouveler des manips équivalentes une dixaine de fois; je suppose que j'aurais beaucoup de toupet à te demander cet enooooorme service...qui ne tente rien...en tous cas merci pr les reponses precedentes.