Petit pb avec boucle en VBA

phlaurent55

Nous a quittés en 2020

Repose en paix

• 28 Janvier 2009

• #2

Re : Petit pb avec boucle en VBA

Salut NYghost ,

pour pouvoir te répondre il serait nécessaire que tu donnes plus de détails concernant la cellule ou se trouve le mot recherché
Si tu pouvais éventuellement joindre un petit bout de fichier

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 28 Janvier 2009

• #3

Re : Petit pb avec boucle en VBA

Bonjour,
Essaies comme ceci

Code:

Sub obsolete()
Trouve = False
For Each Cel In ActiveSheet.UsedRange
    If Cel = "Obsolète" Then
        Cel.EntireRow.Interior.ColorIndex = 3
        Trouve = True
    End If
Next
    If Trouve = False Then MsgBox "Rien trouvé"

End Sub

A+
kjin

 

Vote positif 0 Vote négatif

N

NYghost

Guest

• 28 Janvier 2009

• #4

Re : Petit pb avec boucle en VBA

Et bien et bien, quelle rapiditée 🙂 !

Voici un bout de fichier, a savoir que c'est pour tester donc pas de vrai données..

Si tu as d'autres questions

 

Pièces jointes

• testib.xls

  33 KB · Affichages: 44

Vote positif 0 Vote négatif

G

GIBI

XLDnaute Impliqué

• 28 Janvier 2009

• #5

Re : Petit pb avec boucle en VBA

Bonjour,

toujours pense à utiliser l'aide (PF1)

Find, méthode - Exemple

Cet exemple montre comment rechercher toutes les cellules de la plage A1:A500 de la première feuille de calcul qui contiennent la valeur 2, puis grise ces cellules.

With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Pattern = xlPatternGray50
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

GIBI

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 28 Janvier 2009

• #6

Re : Petit pb avec boucle en VBA

Salut à tous,

@kjin, ta macro fonctionne si le mot recherché se trouve seul dans une cellule
par contre si le mot se trouve dans un texte (un groupe de mot ou phrase) ça ne fonctionne pas

à+

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 28 Janvier 2009

• #7

Re : Petit pb avec boucle en VBA

Re,
C'est exact Phlaurent, mais le manque de précision n'est pas de mon fait
Avec le fichier joint

Code:

Sub Obsolete()
Trouve = False
For Each Cel In ActiveSheet.UsedRange
    If UCase(Cel) = "OBSOLETE" Then
        Range("A" & Cel.Row & ":P" & Cel.Row).Interior.ColorIndex = 3
        Trouve = True
    End If
Next
    If Trouve = False Then MsgBox "Rien trouvé"
End Sub

A+
kjin

 

Vote positif 0 Vote négatif

N

NYghost

Guest

• 28 Janvier 2009

• #8

Re : Petit pb avec boucle en VBA

Servi sur un plateau d'argent.. Merci à tous !!

Encore une petite question, quand je fais un

Sheet1.select et que j'ai plusieurs "Pan" (dans windows, freeze pan), il n'y a qu'un des pan qui est selectionner, normal? Existe-t-il une astuce opur ca ?

 

Vote positif 0 Vote négatif