Demande d'aide en EXCEL
Fermé
FairouzBout
Messages postés
36
Date d'inscription
mardi 8 septembre 2009
Statut
Membre
Dernière intervention
29 novembre 2009
-
10 sept. 2009 à 11:51
Le Pingou Messages postés 11538 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 mars 2023 - 13 sept. 2009 à 21:04
Le Pingou Messages postés 11538 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 mars 2023 - 13 sept. 2009 à 21:04
A voir également:
- Demande d'aide en EXCEL
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Mise en forme conditionnelle excel - Guide
- Aller à la ligne excel - Guide
7 réponses
Le Pingou
Messages postés
11538
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 mars 2023
1 334
10 sept. 2009 à 16:59
10 sept. 2009 à 16:59
Bonjour,
Cette procédure fait clignoter la cellule A1 si sont contenu (date) est inférieur à 3 jours
(à adapter selon désir) ; nombre de clignotement est fixé sur 10 (modifiable)
Copier la procédure dans le module de ta feuille : Feuil1(Feuil1) par exemple
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n As Byte
Dim Start As Variant
Dim i As Integer
If [A1] <= Date + 3 Then ' ** mettre le nombre de jours
For i = 1 To 10 ' ** nombre de clignotement
Cells(1, 1).Font.ColorIndex = 6
Cells(1, 1).Interior.ColorIndex = 3
For n = 1 To 10
Start = Timer
Do While Timer < Start + 1 / 100
Loop
If n Mod 5 = 0 Then
Cells(1, 1).Interior.ColorIndex = xlNone
Cells(1, 1).Font.ColorIndex = 1
End If
Next n
Next i
End If
End Sub
Cette procédure fait clignoter la cellule A1 si sont contenu (date) est inférieur à 3 jours
(à adapter selon désir) ; nombre de clignotement est fixé sur 10 (modifiable)
Copier la procédure dans le module de ta feuille : Feuil1(Feuil1) par exemple
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n As Byte
Dim Start As Variant
Dim i As Integer
If [A1] <= Date + 3 Then ' ** mettre le nombre de jours
For i = 1 To 10 ' ** nombre de clignotement
Cells(1, 1).Font.ColorIndex = 6
Cells(1, 1).Interior.ColorIndex = 3
For n = 1 To 10
Start = Timer
Do While Timer < Start + 1 / 100
Loop
If n Mod 5 = 0 Then
Cells(1, 1).Interior.ColorIndex = xlNone
Cells(1, 1).Font.ColorIndex = 1
End If
Next n
Next i
End If
End Sub
FairouzBout
Messages postés
36
Date d'inscription
mardi 8 septembre 2009
Statut
Membre
Dernière intervention
29 novembre 2009
11 sept. 2009 à 12:55
11 sept. 2009 à 12:55
bonjour;
merci bcp pour vote aide je vais essye
merci bcp pour vote aide je vais essye
Le Pingou
Messages postés
11538
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 mars 2023
1 334
11 sept. 2009 à 14:43
11 sept. 2009 à 14:43
Bonjour,
Juste une question, est-ce que la date doit clignoter à l'ouverture de la feuille .... ?
Car dans ma proposition le clignotement à lieu lors d'un changement de sélection dans la feuille.
Juste une question, est-ce que la date doit clignoter à l'ouverture de la feuille .... ?
Car dans ma proposition le clignotement à lieu lors d'un changement de sélection dans la feuille.
FairouzBout
Messages postés
36
Date d'inscription
mardi 8 septembre 2009
Statut
Membre
Dernière intervention
29 novembre 2009
13 sept. 2009 à 10:00
13 sept. 2009 à 10:00
bonjours à tous
Dsl du retard
oui il doit clignoter à l'ouverture de la page ; merci d'avance
Dsl du retard
oui il doit clignoter à l'ouverture de la page ; merci d'avance
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Le Pingou
Messages postés
11538
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 mars 2023
1 334
13 sept. 2009 à 14:59
13 sept. 2009 à 14:59
Bonjour,
Dans se cas vous remplacez la première ligne de la procédure:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Par :
Private Sub Worksheet_Activate()
Bon dimanche.
Dans se cas vous remplacez la première ligne de la procédure:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Par :
Private Sub Worksheet_Activate()
Bon dimanche.
jlfa
Messages postés
188
Date d'inscription
dimanche 13 septembre 2009
Statut
Membre
Dernière intervention
14 janvier 2023
7
13 sept. 2009 à 19:18
13 sept. 2009 à 19:18
bonsoir a vous, ce truc a l'air d'etre genial, mais je vais vous posez la question bête comment on fait ca ?
Copier la procédure dans le module de ta feuille : Feuil1(Feuil1) par exemple
ou plutot ou en trouve le module ? merci
Copier la procédure dans le module de ta feuille : Feuil1(Feuil1) par exemple
ou plutot ou en trouve le module ? merci
Le Pingou
Messages postés
11538
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 mars 2023
1 334
13 sept. 2009 à 21:04
13 sept. 2009 à 21:04
Bonjour,
A bien plaire, touche Alt+F11 pour ouvrir l'éditeur VBA, dans la fenêtre à gauche [Projet-VBAProjet] vous avez les modules [Feuil...] et éventuellement un module classeur.
A bien plaire, touche Alt+F11 pour ouvrir l'éditeur VBA, dans la fenêtre à gauche [Projet-VBAProjet] vous avez les modules [Feuil...] et éventuellement un module classeur.