Bonjour, voici mon soucis :
J'ai une feuille excel, qui contient 3 onglets :
1 onglets de travail et 2 onglets "utilitaires"
Dans mon onglet de travail lorsque je change une valeur, les macros se lance automatiquement par l'intermediaire de :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' La variable KeyCells contient les cellules qui déclencheront
' une alerte si elles sont modifiées.
Set KeyCells = Range("A1:J417")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Call CalculdeUlu
Call CalculdeContrainte
Call CalculAsminpourmaitrisefissuration
' Affichage d'un message lorsque l'une des cellules désignées
' a été modifiée.
' Placez votre code ici.
MsgBox "Calculs actualisés"
End If
End Sub
ca ca roule mais dans cet onglet de travail j'ai des menu deroulant de choix, avec une cellule lié sur chaque menu deroulant, qui me permet de renvoyer la valeur choisi dans une case d'un des 2 onglets utilitaires, afin de pouvoir poursuivre mes autres calculs en fonction des choix effectués dans les differents menus deroulant.
Mon problème est que les macro ne se relance pas lorsque je selectionne une valeur dans le menu deroulant ( la valeur reporté dans la cellule liée change, mais les macros ne se lance pas)
En fait j'ai capté que pour que les macro se lance, il faut taper une valeur et taper sur entrée, ce qui m'embete un peu vue que les menus deroulants sont la pour eviter cette operation.
Donc si quelqu un sait comment relance les macros lorsque je selectionne une valeur differente dans un des menus deroulant je suis preneur ^^
Merci.
PS : j ai excel 2003
J'ai une feuille excel, qui contient 3 onglets :
1 onglets de travail et 2 onglets "utilitaires"
Dans mon onglet de travail lorsque je change une valeur, les macros se lance automatiquement par l'intermediaire de :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' La variable KeyCells contient les cellules qui déclencheront
' une alerte si elles sont modifiées.
Set KeyCells = Range("A1:J417")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Call CalculdeUlu
Call CalculdeContrainte
Call CalculAsminpourmaitrisefissuration
' Affichage d'un message lorsque l'une des cellules désignées
' a été modifiée.
' Placez votre code ici.
MsgBox "Calculs actualisés"
End If
End Sub
ca ca roule mais dans cet onglet de travail j'ai des menu deroulant de choix, avec une cellule lié sur chaque menu deroulant, qui me permet de renvoyer la valeur choisi dans une case d'un des 2 onglets utilitaires, afin de pouvoir poursuivre mes autres calculs en fonction des choix effectués dans les differents menus deroulant.
Mon problème est que les macro ne se relance pas lorsque je selectionne une valeur dans le menu deroulant ( la valeur reporté dans la cellule liée change, mais les macros ne se lance pas)
En fait j'ai capté que pour que les macro se lance, il faut taper une valeur et taper sur entrée, ce qui m'embete un peu vue que les menus deroulants sont la pour eviter cette operation.
Donc si quelqu un sait comment relance les macros lorsque je selectionne une valeur differente dans un des menus deroulant je suis preneur ^^
Merci.
PS : j ai excel 2003
Dernière édition:
