Exemple Find de Microsoft message erreur

[Hoareau]

Bonjour

L'exemple cid dessous de microsoft donne une erreur 91
pourquoi

merci

Sub Trouver_Occurences_Boucle()
With Worksheets(1).Range("B:B")
Set c = .Find("Phoenix", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

End Sub

 

[Pierrot93]

Re : Exemple Find de Microsoft message erreur

Bonjour Hoareau

Comme la valeur rechercheée est remplacée si trouvée, il n'est pas nécessaire de tester l'adresse des cellules, essaye peut être ainsi :

Sub Test()
Dim c As Range
With Sheets("Feuil1").Range("B:B")
    Set c = .Find("Phoenix", , xlValues, xlWhole, , , False)
    If Not c Is Nothing Then
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing
    End If
End With
End Sub

Bonne journée et une bonne année 2010
@+

 

[Hoareau]

Re : Exemple Find de Microsoft message erreur

Impecable merci

Meilleur voeux pour 2010

Des macros qui servent d'exemple qui bug ?

Quand je trouve la valeur c, je veux mettre une annotation de cellules plus loin.

c.offset(0,2)
c.rows.offset(0,2)

ne fonctionnent pas

 

[Pierrot93]

Re : Exemple Find de Microsoft message erreur

Re,

comme ceci, devrait fonctionner, à noter qu'il a déjà été dit que cet exemple avait un bogue...

Sub Test()
Dim c As Range
With Sheets("Feuil1").Range("B:B")
    Set c = .Find("Phoenix", , xlValues, xlWhole, , , False)
    If Not c Is Nothing Then
        Do
            c.Value = 5
c.Offset(0, 2).Value = "trouvé et remplacé"
            Set c = .FindNext(c)
        Loop While Not c Is Nothing
    End If
End With
End Sub

 

[Hoareau]

Re : Exemple Find de Microsoft message erreur

En tous cas merci

persuadé d'avoir esayé avec value

 

[fhoest]

Re : Exemple Find de Microsoft message erreur

bonjour a vous deux
j'avais ceci mais je vois que cela est resolu
With Worksheets(1).Range("B:B")
Set c = .Find("Phoenix", LookIn:=xlValues)
If Not c Is Nothing Then
ici:
firstAddress = c.Address
'Do
c.Value = 5
'ActiveCell.Offset(1, 0).Activate
'On Error Resume Next
'Loop While Not c Is Nothing And c.Address <> firstAddress
Set c = .FindNext(c)
If Not c Is Nothing Then GoTo ici
End If
End With
End Sub
A+*

 

[fhoest]

Re : Exemple Find de Microsoft message erreur

ps: tous mes voeux pour 2010

 

[Pierrot93]

Re : Exemple Find de Microsoft message erreur

Re, bonjour Fhoest

@Fhoest,
comprends pas trop ton code, comme dit plus haut, quand tu modifies la valeur recherchée, pas trop utilile de tester l'adresse...

PS : essaye d'utiliser la basile code, cela rend celui-ci nettement plus lisible...

bon après midi et bon année
@+

 

[fhoest]

Re : Exemple Find de Microsoft message erreur

pierrot bonjour
ok pour la balise de code
pour le code j'ai juste modifier pour qu'il n'y avait plus d'erreur et je n'ai donc pas cherhcer a comprendre si il été utile ou pas de tester l'adress car je ne sais pas si cette fonctionnalité et necessaires dans un morceaux de code plus loin qui n'est pas affiché sur ce poste.
je prend note pour la balise
Meilleur voeux A+

 

[fhoest]

Re : Exemple Find de Microsoft message erreur

test de balise de code

test

 

[PMO2]

Re : Exemple Find de Microsoft message erreur

Bonjour,

Un petit commentaire

Sub Trouver_Occurences_Boucle()
Dim C As Range
Dim firstAddress$
With Worksheets(1).Range("B:B")
  Set C = .Find("Phoenix", LookIn:=xlValues)
  If Not C Is Nothing Then
    firstAddress = C.Address
    Do
      C.Value = 5
      Set C = .FindNext(C)
      
[COLOR="Blue"]      '--- Si C Is Nothing on ne peut pas exécuter l'instruction C.Address
      '--- qui déclenche l'erreur 91
      '--- Pour y remédier, il suffit de réaffecter la 1ère cellule valide à C
      If C Is Nothing Then Set C = Range(firstAddress)
      '-------------------------------------------------[/COLOR]
    
    Loop While Not C Is Nothing And C.Address <> firstAddress
  End If
End With
End Sub

Cordialement.

PMO
Patrick Morange