recherche de celulle

Le
Fredy
Bonjour à tous,

Comment faire pour que la derniere cellule trouvé soit active et
visible de suite ( il y a beaucoup de ligne , et il est possible
qu'elle clignote est ne soit pas visible à l'écran) après avoir trouv=
é
le chiffre recherché ( qui peut être plusieur fois sur la feuille) en
partant du haut de la feuille ?

Macro de recherche ci-jointe

Sub rechercheNrFeuil3()
' Recherche le Nr de Club
Dim g
g = InputBox("Equipe recherchée")
If g = "" Then Exit Sub
For Each c In
Range("b2:bn2,b4:bn4,b6:az6,b9:bl10,b14:bn14,b19:bn19,b26:bn26")
If c.Value = Val(g) Then Clignote c.Address, 5
Next c
End Sub

Sub Clignote(c, nb)
' clignotement du Nr de Club recherché
couleuractuelle = Range(c).Interior.ColorIndex
For n = 1 To 5
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

Merci pour toutes aides.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Youky
Le #4354551
en Sub rechercheNrFeuil3()
.......
If c.Value = Val(g) Then c.Select : Clignote

et en

Sub Clignote()
c=Selection.Address
et la suite........
Youky

"Fredy"
Bonjour à tous,

Comment faire pour que la derniere cellule trouvé soit active et
visible de suite ( il y a beaucoup de ligne , et il est possible
qu'elle clignote est ne soit pas visible à l'écran) après avoir trouvé
le chiffre recherché ( qui peut être plusieur fois sur la feuille) en
partant du haut de la feuille ?

Macro de recherche ci-jointe

Sub rechercheNrFeuil3()
' Recherche le Nr de Club
Dim g
g = InputBox("Equipe recherchée")
If g = "" Then Exit Sub
For Each c In
Range("b2:bn2,b4:bn4,b6:az6,b9:bl10,b14:bn14,b19:bn19,b26:bn26")
If c.Value = Val(g) Then Clignote c.Address, 5
Next c
End Sub

Sub Clignote(c, nb)
' clignotement du Nr de Club recherché
couleuractuelle = Range(c).Interior.ColorIndex
For n = 1 To 5
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

Merci pour toutes aides.
Youky
Le #4354521
Oups plutot comme cela, derniere cellule trouvée

Sub Clignote()
' clignotement du Nr de Club recherché
c = Selection.Address
couleuractuelle = Range(c).Interior.ColorIndex
For n = 1 To 5
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

Sub rechercheNrFeuil3()
' Recherche le Nr de Club
Dim g
g = InputBox("Equipe recherchée")
If g = "" Then Exit Sub
If Not IsNumeric(g) Then MsgBox "Pas correct": Exit Sub
For Each c In
Range("b2:bn2,b4:bn4,b6:az6,b9:bl10,b14:bn14,b19:bn19,b26:bn26")
If c.Value = Val(g) Then tx = c.Address: c.Select
Next c
If tx <> "" Then Clignote
End Sub
Fredy
Le #4354061
On 8 mar, 15:05, "Youky" désolé mais ça ne marche pas
il met une erreur de compilation.
Fredy

Oups plutot comme cela, derniere cellule trouvée

Sub Clignote()
' clignotement du Nr de Club recherché
c = Selection.Address
couleuractuelle = Range(c).Interior.ColorIndex
For n = 1 To 5
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

Sub rechercheNrFeuil3()
' Recherche le Nr de Club
Dim g
g = InputBox("Equipe recherchée")
If g = "" Then Exit Sub
If Not IsNumeric(g) Then MsgBox "Pas correct": Exit Sub
For Each c In
Range("b2:bn2,b4:bn4,b6:az6,b9:bl10,b14:bn14,b19:bn19,b26:bn26")
If c.Value = Val(g) Then tx = c.Address: c.Select
Next c
If tx <> "" Then Clignote
End Sub


Youky
Le #4353921
Cela fonctionne chez moi
vérifie la ligne For Each c In Range("b2:bn2,b4:........
quelle soit bien sur la mm ligne
Youky

Sub Clignote()
' clignotement du Nr de Club recherché
c = Selection.Address
couleuractuelle = Range(c).Interior.ColorIndex
For n = 1 To 5
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

Sub rechercheNrFeuil3()
' Recherche le Nr de Club
Dim g
g = InputBox("Equipe recherchée")
If g = "" Then Exit Sub
If Not IsNumeric(g) Then MsgBox "Pas correct": Exit Sub
For Each c In
Range("b2:bn2,b4:bn4,b6:az6,b9:bl10,b14:bn14,b19:bn19,b26:bn26")
If c.Value = Val(g) Then tx = c.Address: c.Select
Next c
If tx <> "" Then Clignote
End Sub


"Fredy"
On 8 mar, 15:05, "Youky" désolé mais ça ne marche pas
il met une erreur de compilation.
Fredy

Oups plutot comme cela, derniere cellule trouvée

Sub Clignote()
' clignotement du Nr de Club recherché
c = Selection.Address
couleuractuelle = Range(c).Interior.ColorIndex
For n = 1 To 5
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

Sub rechercheNrFeuil3()
' Recherche le Nr de Club
Dim g
g = InputBox("Equipe recherchée")
If g = "" Then Exit Sub
If Not IsNumeric(g) Then MsgBox "Pas correct": Exit Sub
For Each c In
Range("b2:bn2,b4:bn4,b6:az6,b9:bl10,b14:bn14,b19:bn19,b26:bn26")
If c.Value = Val(g) Then tx = c.Address: c.Select
Next c
If tx <> "" Then Clignote
End Sub


Fredy
Le #4332121
On 8 mar, 20:36, "Youky"
Cela fonctionne chez moi
vérifie la ligne For Each c In Range("b2:bn2,b4:........
quelle soit bien sur la mm ligne
Youky

Sub Clignote()
' clignotement du Nr de Club recherché
c = Selection.Address
couleuractuelle = Range(c).Interior.ColorIndex
For n = 1 To 5
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

Sub rechercheNrFeuil3()
' Recherche le Nr de Club
Dim g
g = InputBox("Equipe recherchée")
If g = "" Then Exit Sub
If Not IsNumeric(g) Then MsgBox "Pas correct": Exit Sub
For Each c In
Range("b2:bn2,b4:bn4,b6:az6,b9:bl10,b14:bn14,b19:bn19,b26:bn26")
If c.Value = Val(g) Then tx = c.Address: c.Select
Next c
If tx <> "" Then Clignote
End Sub

"Fredy"
On 8 mar, 15:05, "Youky" désolé mais ça ne marche pas
il met une erreur de compilation.
Fredy



Oups plutot comme cela, derniere cellule trouvée

Sub Clignote()
' clignotement du Nr de Club recherché
c = Selection.Address
couleuractuelle = Range(c).Interior.ColorIndex
For n = 1 To 5
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

Sub rechercheNrFeuil3()
' Recherche le Nr de Club
Dim g
g = InputBox("Equipe recherchée")
If g = "" Then Exit Sub
If Not IsNumeric(g) Then MsgBox "Pas correct": Exit Sub
For Each c In
Range("b2:bn2,b4:bn4,b6:az6,b9:bl10,b14:bn14,b19:bn19,b26:bn26")
If c.Value = Val(g) Then tx = c.Address: c.Select
Next c
If tx <> "" Then Clignote
End Sub- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -


ça fonctione, un grand merci à toi
Fredy


Publicité
Poster une réponse
Anonyme