Bonsoir =E0 tous,
J'ai cette macro qui fonctione bien , elle active la cellule sur le
chiffre recherch=E9, mais j'aimerai un petit plus il faudrait que cette
cellule
clignotte un cours instant afin d'attirer plus rapidement sa
localisation
Merci d'avance pour votre gentillesse.
Fredy
Sub rechercheNrFeuil2()
' Recherche le Nr de Club
Dim g
g =3D InputBox("Equipe recherch=E9e")
If g =3D "" Then Exit Sub
For Each c In Range("b3:bn3,b8:bn8,b14:bn30")
'If c.Value =3D Val(g) Then c.Offset(0).Value =3D ""
If c.Value =3D Val(g) Then c.Offset(0).Value =3D Val(g)
Next c
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonsoir,
Sub rechercheNrFeuil2() ' Recherche le Nr de Club Dim g g = InputBox("Equipe recherchée") If g = "" Then Exit Sub For Each c In Range("A1:A10") If c.Value = Val(g) Then Clignote c.Address, 5 Next c End Sub
Sub Clignote(c, nb) couleuractuelle = Range(c).Interior.ColorIndex For n = 1 To 10 ActiveSheet.Range(c).Interior.ColorIndex = 33 Fin = Timer + 0.5 Do While Timer < Fin: DoEvents: Loop ActiveSheet.Range(c).Interior.ColorIndex = couleuractuelle Fin = Timer + 0.5 Do While Timer < Fin: DoEvents: Loop Next n End Sub
Cordialement JB
On 18 fév, 21:51, "Fredy" wrote:
Bonsoir à tous, J'ai cette macro qui fonctione bien , elle active la cellule sur le chiffre recherché, mais j'aimerai un petit plus il faudrait que cette cellule clignotte un cours instant afin d'attirer plus rapidement sa localisation Merci d'avance pour votre gentillesse. Fredy
Sub rechercheNrFeuil2() ' Recherche le Nr de Club Dim g g = InputBox("Equipe recherchée") If g = "" Then Exit Sub For Each c In Range("b3:bn3,b8:bn8,b14:bn30") 'If c.Value = Val(g) Then c.Offset(0).Value = "" If c.Value = Val(g) Then c.Offset(0).Value = Val(g) Next c End Sub
Bonsoir,
Sub rechercheNrFeuil2()
' Recherche le Nr de Club
Dim g
g = InputBox("Equipe recherchée")
If g = "" Then Exit Sub
For Each c In Range("A1:A10")
If c.Value = Val(g) Then Clignote c.Address, 5
Next c
End Sub
Sub Clignote(c, nb)
couleuractuelle = Range(c).Interior.ColorIndex
For n = 1 To 10
ActiveSheet.Range(c).Interior.ColorIndex = 33
Fin = Timer + 0.5
Do While Timer < Fin: DoEvents: Loop
ActiveSheet.Range(c).Interior.ColorIndex = couleuractuelle
Fin = Timer + 0.5
Do While Timer < Fin: DoEvents: Loop
Next n
End Sub
Cordialement JB
On 18 fév, 21:51, "Fredy" <laurent.fr...@wanadoo.fr> wrote:
Bonsoir à tous,
J'ai cette macro qui fonctione bien , elle active la cellule sur le
chiffre recherché, mais j'aimerai un petit plus il faudrait que cette
cellule
clignotte un cours instant afin d'attirer plus rapidement sa
localisation
Merci d'avance pour votre gentillesse.
Fredy
Sub rechercheNrFeuil2()
' Recherche le Nr de Club
Dim g
g = InputBox("Equipe recherchée")
If g = "" Then Exit Sub
For Each c In Range("b3:bn3,b8:bn8,b14:bn30")
'If c.Value = Val(g) Then c.Offset(0).Value = ""
If c.Value = Val(g) Then c.Offset(0).Value = Val(g)
Next c
End Sub
Sub rechercheNrFeuil2() ' Recherche le Nr de Club Dim g g = InputBox("Equipe recherchée") If g = "" Then Exit Sub For Each c In Range("A1:A10") If c.Value = Val(g) Then Clignote c.Address, 5 Next c End Sub
Sub Clignote(c, nb) couleuractuelle = Range(c).Interior.ColorIndex For n = 1 To 10 ActiveSheet.Range(c).Interior.ColorIndex = 33 Fin = Timer + 0.5 Do While Timer < Fin: DoEvents: Loop ActiveSheet.Range(c).Interior.ColorIndex = couleuractuelle Fin = Timer + 0.5 Do While Timer < Fin: DoEvents: Loop Next n End Sub
Cordialement JB
On 18 fév, 21:51, "Fredy" wrote:
Bonsoir à tous, J'ai cette macro qui fonctione bien , elle active la cellule sur le chiffre recherché, mais j'aimerai un petit plus il faudrait que cette cellule clignotte un cours instant afin d'attirer plus rapidement sa localisation Merci d'avance pour votre gentillesse. Fredy
Sub rechercheNrFeuil2() ' Recherche le Nr de Club Dim g g = InputBox("Equipe recherchée") If g = "" Then Exit Sub For Each c In Range("b3:bn3,b8:bn8,b14:bn30") 'If c.Value = Val(g) Then c.Offset(0).Value = "" If c.Value = Val(g) Then c.Offset(0).Value = Val(g) Next c End Sub
Fredy
Merci JB ça marche
Fredy
On 18 fév, 22:08, "JB" wrote:
Bonsoir,
Sub rechercheNrFeuil2() ' Recherche le Nr de Club Dim g g = InputBox("Equipe recherchée") If g = "" Then Exit Sub For Each c In Range("A1:A10") If c.Value = Val(g) Then Clignote c.Address, 5 Next c End Sub
Sub Clignote(c, nb) couleuractuelle = Range(c).Interior.ColorIndex For n = 1 To 10 ActiveSheet.Range(c).Interior.ColorIndex = 33 Fin = Timer + 0.5 Do While Timer < Fin: DoEvents: Loop ActiveSheet.Range(c).Interior.ColorIndex = couleuractuelle Fin = Timer + 0.5 Do While Timer < Fin: DoEvents: Loop Next n End Sub
Cordialement JB
On 18 fév, 21:51, "Fredy" wrote:
Bonsoir à tous, J'ai cette macro qui fonctione bien , elle active la cellule sur le chiffre recherché, mais j'aimerai un petit plus il faudrait que cette cellule clignotte un cours instant afin d'attirer plus rapidement sa localisation Merci d'avance pour votre gentillesse. Fredy
Sub rechercheNrFeuil2() ' Recherche le Nr de Club Dim g g = InputBox("Equipe recherchée") If g = "" Then Exit Sub For Each c In Range("b3:bn3,b8:bn8,b14:bn30") 'If c.Value = Val(g) Then c.Offset(0).Value = "" If c.Value = Val(g) Then c.Offset(0).Value = Val(g) Next c End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci JB
ça marche
Fredy
On 18 fév, 22:08, "JB" <jacques.boisgont...@gmail.com> wrote:
Bonsoir,
Sub rechercheNrFeuil2()
' Recherche le Nr de Club
Dim g
g = InputBox("Equipe recherchée")
If g = "" Then Exit Sub
For Each c In Range("A1:A10")
If c.Value = Val(g) Then Clignote c.Address, 5
Next c
End Sub
Sub Clignote(c, nb)
couleuractuelle = Range(c).Interior.ColorIndex
For n = 1 To 10
ActiveSheet.Range(c).Interior.ColorIndex = 33
Fin = Timer + 0.5
Do While Timer < Fin: DoEvents: Loop
ActiveSheet.Range(c).Interior.ColorIndex = couleuractuelle
Fin = Timer + 0.5
Do While Timer < Fin: DoEvents: Loop
Next n
End Sub
Cordialement JB
On 18 fév, 21:51, "Fredy" <laurent.fr...@wanadoo.fr> wrote:
Bonsoir à tous,
J'ai cette macro qui fonctione bien , elle active la cellule sur le
chiffre recherché, mais j'aimerai un petit plus il faudrait que cette
cellule
clignotte un cours instant afin d'attirer plus rapidement sa
localisation
Merci d'avance pour votre gentillesse.
Fredy
Sub rechercheNrFeuil2()
' Recherche le Nr de Club
Dim g
g = InputBox("Equipe recherchée")
If g = "" Then Exit Sub
For Each c In Range("b3:bn3,b8:bn8,b14:bn30")
'If c.Value = Val(g) Then c.Offset(0).Value = ""
If c.Value = Val(g) Then c.Offset(0).Value = Val(g)
Next c
End Sub- Masquer le texte des messages précédents -
Sub rechercheNrFeuil2() ' Recherche le Nr de Club Dim g g = InputBox("Equipe recherchée") If g = "" Then Exit Sub For Each c In Range("A1:A10") If c.Value = Val(g) Then Clignote c.Address, 5 Next c End Sub
Sub Clignote(c, nb) couleuractuelle = Range(c).Interior.ColorIndex For n = 1 To 10 ActiveSheet.Range(c).Interior.ColorIndex = 33 Fin = Timer + 0.5 Do While Timer < Fin: DoEvents: Loop ActiveSheet.Range(c).Interior.ColorIndex = couleuractuelle Fin = Timer + 0.5 Do While Timer < Fin: DoEvents: Loop Next n End Sub
Cordialement JB
On 18 fév, 21:51, "Fredy" wrote:
Bonsoir à tous, J'ai cette macro qui fonctione bien , elle active la cellule sur le chiffre recherché, mais j'aimerai un petit plus il faudrait que cette cellule clignotte un cours instant afin d'attirer plus rapidement sa localisation Merci d'avance pour votre gentillesse. Fredy
Sub rechercheNrFeuil2() ' Recherche le Nr de Club Dim g g = InputBox("Equipe recherchée") If g = "" Then Exit Sub For Each c In Range("b3:bn3,b8:bn8,b14:bn30") 'If c.Value = Val(g) Then c.Offset(0).Value = "" If c.Value = Val(g) Then c.Offset(0).Value = Val(g) Next c End Sub- Masquer le texte des messages précédents -
