macro en Fction d'un chiffre

Bonsoir,

si c'est au moment de la saisie en D5,
dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
if target.address="$D$5" then
select case target
case 1
'macro 1
case 2
'macro 2
case m
'macro m
case x
'macro x
end select
end if
End Sub

Est-ce que ça répond au problème ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"JACK 43" <jacques.deberle@wanadoo.fr.(sansspam)> a écrit dans le message de
news: 0503F145-F78C-42B2-92F0-31FA5448C965@microsoft.com...

Bonsoir,

Je souhaite déclencher automatiquement une macro différente en fonction du
chiffre 1, 2, ou 3 entrer dans la cellule D5.

MERCI A+

Bonsoir Pounet,

Cela marche dans 99% des cas, mais pas si on alimente plusieurs cellules
à la fois (Copier/Coller ou validation simultanée de plusieurs cellules
par exemple).

Pour prendre en compte ce cas :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("D5")) Is Nothing Then
Select Case Range("D5")
Case 1
Macro1
Case 2
Macro2
End Select
End If
End Sub

Bonsoir,

si c'est au moment de la saisie en D5,
dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
if target.address="$D$5" then
select case target
case 1
'macro 1
case 2
'macro 2
case m
'macro m
case x
'macro x
end select
end if
End Sub

Est-ce que ça répond au problème ?

--
Cordialement,

Michel Gaboly
www.gaboly.com

Bonjour;
Tout à fait exact.
Je me suis contenté de montrer la structure "choisir entre"
Promis, j'essaierai de faire mieux la prochaine fois ;o))
Bonne journée

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Michel Gaboly" <michel.gaboly@wanadoo.fr> a écrit dans le message de news:
OaIAmkp$FHA.1256@TK2MSFTNGP15.phx.gbl...

Bonsoir Pounet,

Cela marche dans 99% des cas, mais pas si on alimente plusieurs cellules à
la fois (Copier/Coller ou validation simultanée de plusieurs cellules par
exemple).

Pour prendre en compte ce cas :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("D5")) Is Nothing Then
Select Case Range("D5")
Case 1
Macro1
Case 2
Macro2
End Select
End If
End Sub

Bonsoir,

si c'est au moment de la saisie en D5,
dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
if target.address="$D$5" then
select case target
case 1
'macro 1
case 2
'macro 2
case m
'macro m
case x
'macro x
end select
end if
End Sub

Est-ce que ça répond au problème ?

--
Cordialement,

Michel Gaboly
www.gaboly.com

"Faire mieux", je n'ai aucune inquiétude à ton sujet ;-))

Bonne journée à toi aussi.

Bonjour;
Tout à fait exact.
Je me suis contenté de montrer la structure "choisir entre"
Promis, j'essaierai de faire mieux la prochaine fois ;o))
Bonne journée

--
Cordialement,

Michel Gaboly
www.gaboly.com