clignotement de cellule

S

salim

Guest

• 14 Septembre 2004

• #2

Bonjour rem$ et le Forum

rem$ tu peux toujours aller voir la démo de Ti Lien supprimé ça peux peut etre t'aider.

Salim

 

Vote positif 0 Vote négatif

R

rem$

Guest

• 14 Septembre 2004

• #3

oups dslé j'ai oublié le fichier joint....

 

Pièces jointes

• cligno_rem_v1.zip

  8 KB · Affichages: 47

Vote positif 0 Vote négatif

V

Vériland

Guest

• 14 Septembre 2004

• #4

Bonsoir rem$, Salim et toi le forum,

Ah oui, le fichier dont fait référence Salim est un excellent support en ce qui concerne le clignotement de certaines cellules (il sagit plus précisément de Clignote_Ti), par contre j'ai bien peur qu'il soit un peu trop perfectionné pour rem$...

Donc pour faire suite à l'idée de départ, je propose cette macro évènementielle qui va faire ce que je crois comprendre :

Procédure à placer dans un module de feuille...

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Vériland Septembre 2004
   Dim Plage As Range
   Dim Boucle As Byte
   Dim Start As Variant
   Dim Clign As Integer

   Set Plage = Range("B1:B15")
   If Not Intersect(Target, Plage) Is Nothing Then
    If ActiveCell = "" Then
    ActiveCell.Offset(0, 1) = "A RENSEIGNER"
    For Clign = 1 To 3
     ActiveCell.Offset(0, 1).Interior.ColorIndex = 3
     For Boucle = 1 To 10
      Start = Timer
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Do While Timer < Start + 1 / 100
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Loop
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If Boucle Mod 5 = 0 Then
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ActiveCell.Offset(0, 1).Interior.ColorIndex = xlNone
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next Boucle
&nbsp;&nbsp;&nbsp;&nbsp;Next Clign
&nbsp;&nbsp;&nbsp;&nbsp;ActiveCell.Offset(0, 1) = ""
&nbsp;&nbsp;&nbsp;End If
&nbsp;&nbsp;End If
End Sub

Ici le principe s'applique sur une zone (B1:B15) et si la cellule cliquée dans cette zone est vide, une alerte apparait dans la cellule voisine...

A adapter selon tes critères...

[cit]Bonne programmation

A+ Ce lien n'existe plus

PS : Macro à copier sur le forum auquel cas tu risques d'avoir les attributs du post dans la procédure...

 

Vote positif 0 Vote négatif

V

Vériland

Guest

• 14 Septembre 2004

• #5

niark!

marche pas...lol

j'ai testé un truc qui permet généralement d'insérer une citation dans un post par le biais de [cit]bla bla bla[/cit]...mais pas glop ici !...lol

Ce lien n'existe plus

 

Vote positif 0 Vote négatif

C

Celeda

Guest

• 14 Septembre 2004

• #6

Inscrivez ici votre réponse...

Bonsoir,

Merci à Veriland pour sa visite,
mais mes amis,Lien supprimé, vous retrouverez
la belle démo de Didier sur le Clignotement des Cellules aussi sur XLD!!!!
Peut-être que cela pourra t'inspirer Rem$ et que le code pourra être retouché en fonction de ta condition.

Clignote, Clignote, Clignote sur……………………………………... XLD!!!!!!!!!!!!!!!!!!!!!!!!!!!!!​

Celeda

 

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 14 Septembre 2004

• #7

Bonsoir

Voici un lien sur un fil http://www.excel-downloads.com/html/French/forum/messages/1_109267_109267.htm

@+Jean-Marie

 

Vote positif 0 Vote négatif