Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel recherche de celulle

recherche de celulle

5 réponses
Avatar
Fredy
Bonjour =E0 tous,

Comment faire pour que la derniere cellule trouv=E9 soit active et
visible de suite ( il y a beaucoup de ligne , et il est possible
qu'elle clignote est ne soit pas visible =E0 l'=E9cran) apr=E8s avoir trouv=
=E9
le chiffre recherch=E9 ( qui peut =EAtre 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 =3D InputBox("Equipe recherch=E9e")
If g =3D "" 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 =3D Val(g) Then Clignote c.Address, 5
Next c
End Sub

Sub Clignote(c, nb)
' clignotement du Nr de Club recherch=E9
couleuractuelle =3D Range(c).Interior.ColorIndex
For n =3D 1 To 5
ActiveSheet.Range(c).Interior.ColorIndex =3D 33
Fin =3D Timer + 0.5
Do While Timer < Fin: DoEvents: Loop
ActiveSheet.Range(c).Interior.ColorIndex =3D couleuractuelle
Fin =3D Timer + 0.5
Do While Timer < Fin: DoEvents: Loop
Next n
End Sub

Merci pour toutes aides.
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Youky
en Sub rechercheNrFeuil3()
.......
If c.Value = Val(g) Then c.Select : Clignote

et en

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

"Fredy" a écrit dans le message de news:

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.
Avatar
Youky
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
Avatar
Fredy
On 8 mar, 15:05, "Youky" wrote:
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


Avatar
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" a écrit dans le message de news:

On 8 mar, 15:05, "Youky" wrote:
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


Avatar
Fredy
On 8 mar, 20:36, "Youky" wrote:
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" a écrit dans le message de news:

On 8 mar, 15:05, "Youky" wrote:
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