S
Seb
Guest
Comment faire pour activer une macro dès qu'une cellule est remplie. Dès qu'il y a une quelconque information dans la cellule, j'aimerais activer une macro...
Merci pour votre aide
Merci pour votre aide
CBernardT
XLDnaute Barbatruc
Bonjour Seb,
Il te faut créer une macro évènementielle. L'événement se produit lorsque les cellules de la feuille de calcul sont modifiées par l'utilisateur ou par un lien externe.
La macro suivante lance la macro Coloration quand la cellule D1 de la feuille est modifiée.
Cette macro est à placer dans le module de la feuille concerné.
Le code qui effectuera la coloration peut être indifféremment placer dans cette macro ou à part dans une macro placée dans un module standard, comme dans l'exemple.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('D1')) Is Nothing Then
Coloration
End If
End Sub
Cordialement
Bernard
Il te faut créer une macro évènementielle. L'événement se produit lorsque les cellules de la feuille de calcul sont modifiées par l'utilisateur ou par un lien externe.
La macro suivante lance la macro Coloration quand la cellule D1 de la feuille est modifiée.
Cette macro est à placer dans le module de la feuille concerné.
Le code qui effectuera la coloration peut être indifféremment placer dans cette macro ou à part dans une macro placée dans un module standard, comme dans l'exemple.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('D1')) Is Nothing Then
Coloration
End If
End Sub
Cordialement
Bernard
S
Seb
Guest
Merci infiniement pour ton conseil et ton aide... ce site est vraiment génial... c la première fois que j'y vais ...
Merci encore... et j'espère que ca va marcher car je commencais à désespérer.
A+
Merci encore... et j'espère que ca va marcher car je commencais à désespérer.
A+
S
Seb
Guest
Je suis désolé mais ca ne marche (parce que je ne sais pas le faire marcher)
Voila ce que j'ai fait:
Je veux que lorsque l'on met quelque chose dans la case O6 le user form2 doit apparaitre.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('O6')) Is Nothing Then
UserForm2.Show
End If
End Sub
Est-ce que tu pourrais encore m'aider une fois.
Merci
Voila ce que j'ai fait:
Je veux que lorsque l'on met quelque chose dans la case O6 le user form2 doit apparaitre.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('O6')) Is Nothing Then
UserForm2.Show
End If
End Sub
Est-ce que tu pourrais encore m'aider une fois.
Merci
Salut
Je m'intéressait au sujet et
J'ai tapé ce code, et chez moi ça marche bien.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range('O6')) Is Nothing Then
UserForm1.Show
End If
End Sub
Qu'est -ce que ça donne chez toi ?
le simple userform.show, sans condition, marche-t-il ?
Je m'intéressait au sujet et
J'ai tapé ce code, et chez moi ça marche bien.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range('O6')) Is Nothing Then
UserForm1.Show
End If
End Sub
Qu'est -ce que ça donne chez toi ?
le simple userform.show, sans condition, marche-t-il ?
CBernardT
XLDnaute Barbatruc
Re Seb,
Ta syntaxe me paraît parfaite donc il y a autre chose qui ne vas pas ??
Es-tu bien sûr de la cellule O6 ??
Est-ce le userform2 à ouvrir ?
Existe-t-il ?
à voir
Cordialement
Bernard
Ta syntaxe me paraît parfaite donc il y a autre chose qui ne vas pas ??
Es-tu bien sûr de la cellule O6 ??
Est-ce le userform2 à ouvrir ?
Existe-t-il ?
à voir
Cordialement
Bernard
Discussions similaires
- Résolu(e)
- Résolu(e)
