J'ai des données modifiables par l'utilisateur dans une feuille 1 qui lors
de la création de ma barre d'outils personnelle sont inégrées au menu en
tant que msoButton.
J'ai cherché à les mettre automatiquement à jour lors de changements de ces
données et ce grace à la macro Private Sub Worksheet_Change dans laquelle je
lui demande de recréer la fameuse barre.
Cependant j'ai également des données dans cette petite database qui peuvent
etre modifiées par l'utilisateur mais ne nécessite pas de mise à jour (et
donc de rapppeler la macro de construction de ma barre d'outils perso). Je
m'en remet à vos connaissances pour comprendre comment demander à Excel de
faire la mise à jour seulement si je modifie certaines cellules, ou
certaines colones de cette feuille 1.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonsoir Choko,
Dans le module feuille où l'action se déroule, copie ceci :
'------------------------ Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range Set Rg = Range("A1:G25", "H10:H32", "K5")
If Not Intersect(Rg, Target) Is Nothing Then Application.EnableEvents = False MaMacro Application.EnableEvents = True End If
Set Rg = Nothing
End Sub '------------------------
Sub MaMacro()
'Le code
End Sub '------------------------
Salutations!
"Choko" a écrit dans le message de news:% Bonjour à tous,
J'ai des données modifiables par l'utilisateur dans une feuille 1 qui lors de la création de ma barre d'outils personnelle sont inégrées au menu en tant que msoButton. J'ai cherché à les mettre automatiquement à jour lors de changements de ces données et ce grace à la macro Private Sub Worksheet_Change dans laquelle je lui demande de recréer la fameuse barre. Cependant j'ai également des données dans cette petite database qui peuvent etre modifiées par l'utilisateur mais ne nécessite pas de mise à jour (et donc de rapppeler la macro de construction de ma barre d'outils perso). Je m'en remet à vos connaissances pour comprendre comment demander à Excel de faire la mise à jour seulement si je modifie certaines cellules, ou certaines colones de cette feuille 1.
D'avance Merci
Choko
Bonsoir Choko,
Dans le module feuille où l'action se déroule, copie ceci :
'------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Range("A1:G25", "H10:H32", "K5")
If Not Intersect(Rg, Target) Is Nothing Then
Application.EnableEvents = False
MaMacro
Application.EnableEvents = True
End If
Set Rg = Nothing
End Sub
'------------------------
Sub MaMacro()
'Le code
End Sub
'------------------------
Salutations!
"Choko" <choko04@hotmail.com> a écrit dans le message de news:%23d9U7yhrDHA.3748@TK2MSFTNGP11.phx.gbl...
Bonjour à tous,
J'ai des données modifiables par l'utilisateur dans une feuille 1 qui lors
de la création de ma barre d'outils personnelle sont inégrées au menu en
tant que msoButton.
J'ai cherché à les mettre automatiquement à jour lors de changements de ces
données et ce grace à la macro Private Sub Worksheet_Change dans laquelle je
lui demande de recréer la fameuse barre.
Cependant j'ai également des données dans cette petite database qui peuvent
etre modifiées par l'utilisateur mais ne nécessite pas de mise à jour (et
donc de rapppeler la macro de construction de ma barre d'outils perso). Je
m'en remet à vos connaissances pour comprendre comment demander à Excel de
faire la mise à jour seulement si je modifie certaines cellules, ou
certaines colones de cette feuille 1.
Dans le module feuille où l'action se déroule, copie ceci :
'------------------------ Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range Set Rg = Range("A1:G25", "H10:H32", "K5")
If Not Intersect(Rg, Target) Is Nothing Then Application.EnableEvents = False MaMacro Application.EnableEvents = True End If
Set Rg = Nothing
End Sub '------------------------
Sub MaMacro()
'Le code
End Sub '------------------------
Salutations!
"Choko" a écrit dans le message de news:% Bonjour à tous,
J'ai des données modifiables par l'utilisateur dans une feuille 1 qui lors de la création de ma barre d'outils personnelle sont inégrées au menu en tant que msoButton. J'ai cherché à les mettre automatiquement à jour lors de changements de ces données et ce grace à la macro Private Sub Worksheet_Change dans laquelle je lui demande de recréer la fameuse barre. Cependant j'ai également des données dans cette petite database qui peuvent etre modifiées par l'utilisateur mais ne nécessite pas de mise à jour (et donc de rapppeler la macro de construction de ma barre d'outils perso). Je m'en remet à vos connaissances pour comprendre comment demander à Excel de faire la mise à jour seulement si je modifie certaines cellules, ou certaines colones de cette feuille 1.
