clignotement d une cellule d une ligne
#1
Débutant XLPages

Inscription: 28/09/2009

Messages: 16

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 03-10-2009 09h33
bonjour à tous

dans un programme j ai besoin de faire clignoter une cellule que dois je ecrire en macro

dans un programme j ai besoin de faire clignoter une cellule
voir la ligne  (donc plusieurs cellules) dans une feuille de classement au fur et a mesure que celui ci change.

dans mon exemple
TRUCMACHIN 1er (pour l'instant) et je voudrais que nom prenom note "Clignote".

si je mets 20 à LASSALADE  il sera premier et en conséquence il faut que ce soit la ligne (ou les cases) LASSALADE qui clignote et non plus TRUCMACHIN

Je suis un peu perdu d'ou mon appel au secours
que dois je ecrire en macro
Merci Bonne journée








Pièce jointe:
xls vba.xls   [ Taille: 13.50 Ko - Téléchargements: 750 ]
Hors Ligne
Rapport   Haut 

Re: clignotement d une cellule d une ligne
#2
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 03-10-2009 16h38
Bonjour papycocol, le Forum,

A vrai dire, je te conseillerais plutôt de voir du côté des mises en forme conditionnelles, beaucoup plus légères et beaucoup plus simple à mettre en oeuvre... Le clignotement des cellules, même s'il ajoute un côté fun au classeur, reste du domaine gadget.

Cela dit, si tu souhaites absolument l'intégrer à ton oeuvre, alors voici une façon de faire utilisant la méthode OnTime (qui me semble la façon de faire la plus simple d'aborder le sujet) :

J'ai simplement repris et adapté pour l'occasion, le code qu'on retrouve dans le classeur exemple Cellules et alertes clignotantes (je t'invite également à consulter l'article traitant de la Méthode OnTime si tu veux en comprendre le fonctionnement).

Voir en pièce jointe le code suivant :

DANS LE MODULE DE CODE DE L'OBJET THISWORKBOOK
Option Explicit
' myDearFriend! - www.mdf-xlpages.com

Private Sub Workbook_Open()
    'Lance le clignotement à l'ouverture
    Clign
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Interrompt le clignotement éventuel avant fermeture
    StopClign
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Application.Intersect(Target, Sh.Columns(4)) Is Nothing Then
        StopClign
        Clign
    End If
End Sub
DANS UN MODULE DE CODE STANDARD (ex : Module1)
Option Explicit
' myDearFriend! - www.mdf-xlpages.com

Public LigneCible As Range
Dim Temps As Date

Public Sub Clign()
    If CibleExiste Then
        'Programmation de l'évènement toutes les secondes
        Temps = Now + TimeValue("00:00:01")
        Application.OnTime Temps, "Clign"
        'Affiche l'alerte ou la fait disparaître (alternativement)
        With LigneCible
            .Interior.ColorIndex = IIf(.Interior.ColorIndex = 3, xlNone, 3)
        End With
    End If
End Sub

Public Sub StopClign()
    On Error Resume Next
    'Stoppe la gestion de l'évènement OnTime
    Application.OnTime Temps, "Clign", , False
    'Cache l'alerte
    LigneCible.Interior.ColorIndex = xlNone
    Set LigneCible = Nothing
End Sub

Public Function CibleExiste() As Boolean
    If LigneCible Is Nothing Then
        On Error Resume Next
        With Sheets("Feuil1")       'A adapter... ici, on parle de Feuil1 et colonne 1
            Set LigneCible = Intersect(.Columns(1).Find(1, LookIn:=xlValues).EntireRow, .UsedRange.Cells)
        End With
    End If
    CibleExiste = Not LigneCible Is Nothing
End Function

Cordialement,

Pièce jointe:
zip PourPapycocol.zip   [ Taille: 11.81 Ko - Téléchargements: 1013 ]

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: clignotement d une cellule d une ligne
#3
Débutant XLPages

Inscription: 28/09/2009

Messages: 16

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 05-10-2009 13h35
merci Didier c est très gentil à toi,

malgré un week end passé dessus avec l aide de mon fiston je n'ai pas reussi a placer tout ca dans """mon oeuvre""" comme tu le dis

qu'entends tu par



        With Sheets("Feuil1")       'A adapter... ici, on parle de Feuil1 et colonne 1

moi il s'agit de la feuille 2 "de mon oeuvre" nommée  Enregistrement
la colonne  correspondante au classement se trouve en A celle des notes qui permet le classement se trouve en colle K

Merci de me lire et de tirer un ignorant vers le haut.

Dautres part peut on realiser ce type de ligne clignotante directement depuis forme condiionnelle sous quelle formule .


merci encore

Hors Ligne
Rapport   Haut 

Re: clignotement d une cellule d une ligne
#4
Débutant XLPages

Inscription: 28/09/2009

Messages: 16

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 05-10-2009 14h19
Didier pour ne pas melanger les sujets je fais un second message :
Le but de la manoeuvre dans ma feuille de classement étant d'attirer mon attention lorsqU' une meilleur note est entrée 
J'ai donc abandonné la Macro pour Mise en  forme conditionnelle

en entrant
la valeur de la cellule  est....... égale à...........1
FORMAT FOND ROUGE

et je peux repérer  le premier en cherchant dans ma feuille si le nombre d'éléve est trop grand
----------------------------------------------------
Pour pallier à cet inconvènient j'ai créèe dans une cellule indépendante qui reste constamment sous mes yeux =Maxi(D4:D11)
-----------------------------------------
BIEN SUR ce qui serait super c'est d'adapter à cette cellule indépendante ton programme MDF_cellulesAlertesClignotantes "Objet dessin Clignotant"
attirant mon attention ""Meilleure Note " dès que la valeur de la cellule change mais la on retombe dans la macro....

sauf si il y a une formule en MFC
LORSQUE LA VALEUR EST SUPERIEURE A CELLE QUI EST INSCRITE
ALORS ENVOIE LE MESSAGE "MEILLEUR NOTE" (au lieu de valeur superieur à 9)
Merci à toi de me lire


Hors Ligne
Rapport   Haut 

Re: clignotement d une cellule d une ligne
#5
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 05-10-2009 18h17
Bonsoir papycocol, le Forum,

A vrai dire, je ne comprends toujours pas l'intérêt d'une alerte clignotante, même sur une cellule qui resterait constamment sous tes yeux.

Je vais essayer de m'expliquer en reprenant ton classeur exemple...
- tout d'abord, tu le dis toi-même, une simple formule "=1" en format conditionnel (fond rouge) suffit à t'indiquer où se situe la note la plus haute.
- admettons ensuite que tu aies une liste de "NOMS | Prénoms | Notes" très longue (et que le dernier élément se situe même au delà de la ligne 100).
- lorsque tu vas saisir une nouvelle note (ligne 101 donc), cette ligne sera forcément à ta vue, non ?
- alors pourquoi ne pas te contenter d'un message d'alerte (simple boîte de dialogue) te signifiant que la note que tu viens de saisir est, ou non, la plus haute ?
- qu'est-ce qu'un clignotement d'une cellule située plus en amont t'apportera de plus ?
- par ailleurs, il ne pourra s'agir alors que d'un clignotement (alerte) temporaire, sinon, ça ne voudra plus rien dire...

Franchement, papycocol, je ne comprends pas l'intérêt et donc, je ne vois pas comment te mettre ça en musique...

Cordialement,


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: clignotement d une cellule d une ligne
#6
Débutant XLPages

Inscription: 28/09/2009

Messages: 16

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 05-10-2009 18h39
Bonsoir Didier,

Tu as raison et je comprends parfaitement.

mon petit programme ne va pas si mal que ca et me suffit pour ce que je dois faire .

A la limite je te dirais que c est plus pour apprendre,  comprendre comment ca marche que j 'essaie.
Car sur la toile on trouve tout  mais bien souvent chaque cas et spécifique et finalement la vraie, questions est :
Peut on faire clignoter une cellule directement depuis mise en forme conditionnelle ou doit on passer obligatoirement par la macro.

C est vraiement sympa de t interesser à mes ecrits

merci à toi
PS je vais essayer de trouver Macro pour les nuls HI HIHIHIHIHI
VOIRE LES PLUS NULS QUE LES NULS

Bonne soirée Didier et encore merci


Hors Ligne
Rapport   Haut 

Re: clignotement d une cellule d une ligne
#7
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 05-10-2009 18h59
Re,

Citation :
papycocol a écrit :
... finalement la vraie, questions est :
Peut on faire clignoter une cellule directement depuis mise en forme conditionnelle ou doit on passer obligatoirement par la macro.

A cette question précise, je peux t'apporter une réponse tout aussi précise : non, il n'y a aucune façon de faire clignoter une cellule (ou autre) autrement que par macro VBA. On peut détourner un semblant de mise en forme conditionnelle pour arriver à cet effet, mais ce sera toujours à l'aide d'une macro VBA au final.

Et concernant "Macro pour les nuls", je t'informe quand même que j'ai connu une version (en français) de "Programmer VBA pour Excel pour les nuls" de John Walkenbach qui était un très bon bouquin pour commencer (je crois que l'auteur oeuvre toujours dans cette même collection d'ailleurs). John Walkenbach a toujours été pour moi, LA Référence absolue pour l'apprentissage Excel-VBA.

Par ailleurs, si tu penses que le présent sujet est clos, je te remercie de mettre en application ce que j'indique au bas de ma signature...

Cordialement,


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: clignotement d une cellule d une ligne
#8
Débutant XLPages

Inscription: 28/09/2009

Messages: 16

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 05-10-2009 21h56
merci Didier et bonsoir
cordialement
gaston
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes