Question déjà posée par moi ou par d'autres mais je n'arrive pas à faire
fonctionner avec les solutions proposées.
Faut dire que le VBA et moi .....
Avec mise en forme conditionnelle, je change la couleur de fond et celle
du texte sans problème mais ce n'est pas toujours suffisant pour attirer
l'oeil sur une alerte.
Y-a'-t'il une/des solutions plus simples (comme dans word par exemple)
Question déjà posée par moi ou par d'autres mais je n'arrive pas à faire fonctionner avec les solutions proposées. Faut dire que le VBA et moi .....
Avec mise en forme conditionnelle, je change la couleur de fond et celle du texte sans problème mais ce n'est pas toujours suffisant pour attirer l'oeil sur une alerte. Y-a'-t'il une/des solutions plus simples (comme dans word par exemple)
Question déjà posée par moi ou par d'autres mais je n'arrive pas à faire
fonctionner avec les solutions proposées.
Faut dire que le VBA et moi .....
Avec mise en forme conditionnelle, je change la couleur de fond et celle
du texte sans problème mais ce n'est pas toujours suffisant pour attirer
l'oeil sur une alerte.
Y-a'-t'il une/des solutions plus simples (comme dans word par exemple)
Question déjà posée par moi ou par d'autres mais je n'arrive pas à faire fonctionner avec les solutions proposées. Faut dire que le VBA et moi .....
Avec mise en forme conditionnelle, je change la couleur de fond et celle du texte sans problème mais ce n'est pas toujours suffisant pour attirer l'oeil sur une alerte. Y-a'-t'il une/des solutions plus simples (comme dans word par exemple)
Merci, pour la réponse, non seulement rapide mais ça me semble bien. Hélas, je suis vraiment nul .... :-( - C'est quoi le "moidule feuille" ? - J'ai vu la macro clignotement mais je ne vois pas la condition > 20, ni les références aux 4 cellules concernées .. C'ets où ? dans le module feuille ? qui lui même est où ? - Si l'alerte correspond à une date, ça ce met dans le module feuille ou dans ???
Merci, pour la réponse, non seulement rapide mais ça me semble bien.
Hélas, je suis vraiment nul .... :-(
- C'est quoi le "moidule feuille" ?
- J'ai vu la macro clignotement mais je ne vois pas la condition > 20,
ni les références aux 4 cellules concernées .. C'ets où ? dans le module
feuille ? qui lui même est où ?
- Si l'alerte correspond à une date, ça ce met dans le module feuille ou
dans ???
Merci, pour la réponse, non seulement rapide mais ça me semble bien. Hélas, je suis vraiment nul .... :-( - C'est quoi le "moidule feuille" ? - J'ai vu la macro clignotement mais je ne vois pas la condition > 20, ni les références aux 4 cellules concernées .. C'ets où ? dans le module feuille ? qui lui même est où ? - Si l'alerte correspond à une date, ça ce met dans le module feuille ou dans ???
Module Feuille : Un clic droit sur l'onglet de la feuille et tu sélectionnes la commande du menu contextuel -visualiser le code- où le code est écrit, ce module est le module feuille ou de classe de ladite feuille.
Dans la section de gauche, afficher l'arborescence des objets de ton projetVBA, tu verras aussi l'item "Module1" un double-clique et tu apercevras une ligne de code dans le haut.
Merci, pour la réponse, non seulement rapide mais ça me semble bien. Hélas, je suis vraiment nul .... :-( - C'est quoi le "moidule feuille" ? - J'ai vu la macro clignotement mais je ne vois pas la condition > 20, ni les références aux 4 cellules concernées .. C'ets où ? dans le module feuille ? qui lui même est où ? - Si l'alerte correspond à une date, ça ce met dans le module feuille ou dans ???
Module Feuille : Un clic droit sur l'onglet de la feuille et
tu sélectionnes la commande du menu contextuel
-visualiser le code- où le code est écrit, ce module est
le module feuille ou de classe de ladite feuille.
Dans la section de gauche, afficher l'arborescence des
objets de ton projetVBA, tu verras aussi l'item "Module1"
un double-clique et tu apercevras une ligne de code dans le haut.
Merci, pour la réponse, non seulement rapide mais ça me semble bien.
Hélas, je suis vraiment nul .... :-(
- C'est quoi le "moidule feuille" ?
- J'ai vu la macro clignotement mais je ne vois pas la condition > 20,
ni les références aux 4 cellules concernées .. C'ets où ? dans le module
feuille ? qui lui même est où ?
- Si l'alerte correspond à une date, ça ce met dans le module feuille ou
dans ???
Module Feuille : Un clic droit sur l'onglet de la feuille et tu sélectionnes la commande du menu contextuel -visualiser le code- où le code est écrit, ce module est le module feuille ou de classe de ladite feuille.
Dans la section de gauche, afficher l'arborescence des objets de ton projetVBA, tu verras aussi l'item "Module1" un double-clique et tu apercevras une ligne de code dans le haut.
Merci, pour la réponse, non seulement rapide mais ça me semble bien. Hélas, je suis vraiment nul .... :-( - C'est quoi le "moidule feuille" ? - J'ai vu la macro clignotement mais je ne vois pas la condition > 20, ni les références aux 4 cellules concernées .. C'ets où ? dans le module feuille ? qui lui même est où ? - Si l'alerte correspond à une date, ça ce met dans le module feuille ou dans ???
si tu changes MANUELLEMENT ou par COPIER-COLLER, la date de l'une de ces cellules et si le contenu de ces 2 cellules est égal, ces 2 cellules clignoteront. Dans les 2 cellules, j'ai supposé que tu avais un format "date" reconnu par Excel.
La procédure suivante est à mettre dans le module feuille où l'action se déroule. Pour ce faire, un clic droit sur l'onglet de cette feuille et dans le menu contextuel, tu sélectionnes la commande "Visualiser le code". Tu copies ce qui suit dans la "page" blanche.
'---------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim S As Double On Error Resume Next With Range("B22,P22") If Not Intersect(Target, .Cells) Is Nothing Then If Range("B22").Value2 = Range("P22").Value Then Range("B22").Select For i = 0 To 40 'Valeur à augmenter pour la durée ! If Range("B22").Interior.ColorIndex = xlNone Then .Cells.Interior.ColorIndex = 3 Else: .Cells.Interior.ColorIndex = xlNone End If 'La fonction sleep relève de l'API en module1 Sleep 100 'vitesse du clignotement DoEvents Next i End If .Cells.Interior.ColorIndex = xlNone End If End With
si tu changes MANUELLEMENT ou par COPIER-COLLER,
la date de l'une de ces cellules et si le contenu de ces 2
cellules est égal, ces 2 cellules clignoteront. Dans les 2
cellules, j'ai supposé que tu avais un format "date" reconnu
par Excel.
La procédure suivante est à mettre dans le module feuille où
l'action se déroule. Pour ce faire, un clic droit sur l'onglet de
cette feuille et dans le menu contextuel, tu sélectionnes la
commande "Visualiser le code". Tu copies ce qui suit dans la
"page" blanche.
'----------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim S As Double
On Error Resume Next
With Range("B22,P22")
If Not Intersect(Target, .Cells) Is Nothing Then
If Range("B22").Value2 = Range("P22").Value Then
Range("B22").Select
For i = 0 To 40 'Valeur à augmenter pour la durée !
If Range("B22").Interior.ColorIndex = xlNone Then
.Cells.Interior.ColorIndex = 3
Else:
.Cells.Interior.ColorIndex = xlNone
End If
'La fonction sleep relève de l'API en module1
Sleep 100 'vitesse du clignotement
DoEvents
Next i
End If
.Cells.Interior.ColorIndex = xlNone
End If
End With
si tu changes MANUELLEMENT ou par COPIER-COLLER, la date de l'une de ces cellules et si le contenu de ces 2 cellules est égal, ces 2 cellules clignoteront. Dans les 2 cellules, j'ai supposé que tu avais un format "date" reconnu par Excel.
La procédure suivante est à mettre dans le module feuille où l'action se déroule. Pour ce faire, un clic droit sur l'onglet de cette feuille et dans le menu contextuel, tu sélectionnes la commande "Visualiser le code". Tu copies ce qui suit dans la "page" blanche.
'---------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim S As Double On Error Resume Next With Range("B22,P22") If Not Intersect(Target, .Cells) Is Nothing Then If Range("B22").Value2 = Range("P22").Value Then Range("B22").Select For i = 0 To 40 'Valeur à augmenter pour la durée ! If Range("B22").Interior.ColorIndex = xlNone Then .Cells.Interior.ColorIndex = 3 Else: .Cells.Interior.ColorIndex = xlNone End If 'La fonction sleep relève de l'API en module1 Sleep 100 'vitesse du clignotement DoEvents Next i End If .Cells.Interior.ColorIndex = xlNone End If End With
Si le contenu des cellules B22 et P22 contient des formules qui retournent des "dates", utilise plutôt cette procédure :
'---------------------------------------- Private Sub Worksheet_Calculate() Dim S As Double With Range("B22,P22") If Range("B22").Value2 = Range("P22").Value Then Range("B22").Select For i = 0 To 40 'Valeur à augmenter pour la durée ! If Range("B22").Interior.ColorIndex = xlNone Then .Cells.Interior.ColorIndex = 3 Else: .Cells.Interior.ColorIndex = xlNone End If 'La fonction sleep relève de l'API en module1 Sleep 100 'vitesse du clignotement DoEvents Next i End If .Cells.Interior.ColorIndex = xlNone End With End Sub '----------------------------------------
Si le contenu des cellules B22 et P22 contient des formules
qui retournent des "dates", utilise plutôt cette procédure :
'----------------------------------------
Private Sub Worksheet_Calculate()
Dim S As Double
With Range("B22,P22")
If Range("B22").Value2 = Range("P22").Value Then
Range("B22").Select
For i = 0 To 40 'Valeur à augmenter pour la durée !
If Range("B22").Interior.ColorIndex = xlNone Then
.Cells.Interior.ColorIndex = 3
Else:
.Cells.Interior.ColorIndex = xlNone
End If
'La fonction sleep relève de l'API en module1
Sleep 100 'vitesse du clignotement
DoEvents
Next i
End If
.Cells.Interior.ColorIndex = xlNone
End With
End Sub
'----------------------------------------
Si le contenu des cellules B22 et P22 contient des formules qui retournent des "dates", utilise plutôt cette procédure :
'---------------------------------------- Private Sub Worksheet_Calculate() Dim S As Double With Range("B22,P22") If Range("B22").Value2 = Range("P22").Value Then Range("B22").Select For i = 0 To 40 'Valeur à augmenter pour la durée ! If Range("B22").Interior.ColorIndex = xlNone Then .Cells.Interior.ColorIndex = 3 Else: .Cells.Interior.ColorIndex = xlNone End If 'La fonction sleep relève de l'API en module1 Sleep 100 'vitesse du clignotement DoEvents Next i End If .Cells.Interior.ColorIndex = xlNone End With End Sub '----------------------------------------
Dans la procédure "Private Sub Worksheet_Change(ByVal Target As Range)" Il serait préférable que tu remplaces : la ligne : Range("B22").Select par Target.Select
Dans la procédure
"Private Sub Worksheet_Change(ByVal Target As Range)"
Il serait préférable que tu remplaces :
la ligne : Range("B22").Select
par
Target.Select
Dans la procédure "Private Sub Worksheet_Change(ByVal Target As Range)" Il serait préférable que tu remplaces : la ligne : Range("B22").Select par Target.Select