Cell.find, erreur quand aucune valeur n'est trouvée

[theolivier]

Bonjour,

J'ai un fichier clients avec des données pour chacun sur 2 onglets.
La macro suivante : sur le premier onglet, sélection du premier nom client, puis recherche de ce nom sur le second onglet et copie de cellule d'un onglet à l'autre.
Seulement cette macro ne fonctionne pas lorsqu'aucun nom n'est trouvé.
Cela bloque sur la partie set res = ... erreur 424.

Si quelqu'un a une idée.
Merci d'avance.


Sub regroupement()

Dim i As Integer, nam As String, res As Range

Sheets("RETRAITEMENT").Select
Range("E5").Select

For i = 5 To 486

Sheets("RETRAITEMENT").Select
nam = Range("E" & i).Value
Range("F" & i & ":R" & i).Copy

With Sheets("ETATS PREDEFINIS 02.2011").Cells
Set res = Selection.Find(What:=nam, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

If Not res Is Nothing Then
il faudrait que cela passe au i suivant
Else
ActiveCell.Offset(0, 3).Activate
ActiveSheet.Paste
End If
End With
Next i

End Sub

 

[Guest]

Re : Cell.find, erreur quand aucune valeur n'est trouvée

Bonjour et bienvenue sur le forum

Enlève le .Activate et le Selection (dont je ne vois pas l'utilité) dans

Set res = Selection.Find(What:=nam, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

Pour le reste peut-être, si je comprends bien ce que tu veux:

'Si Res n'est pas trouvé
If res Is Nothing then
   ActiveCell.Offset(0, 3).Activate
   ActiveSheet.Paste
End If

A+

 

[theolivier]

Re : Cell.find, erreur quand aucune valeur n'est trouvée

Merci pour cette réponse. Désormais la fonction set fonctionne.
En fait, après avoir cherché le nom dans le second onglet, 2 cas possibles :
- il l'a trouvé et dans ce cas il se positionne dessus avec qq chose du genre Range("res").Select (la syntaxe n'est pas bonne, je débute !)
- il ne trouve rien et passe au i suivant avec la boucle en cours.
?

 

[Guest]

Re : Cell.find, erreur quand aucune valeur n'est trouvée

Re,

Res s'il est trouvé est déjà une référence à une cellule. Pas besoin de Range("Res")
Que veux-tu en faire une fois la cellule Res trouvée. Y mettre une valeur, laquelle? Pas besoin nécessairement de l'activer ou la sélectionner. Ces actions sont rarement utile en VBA. Et l'enregistreur de macro est mauvais pour ça mais bon pour le reste.

Alors comment précisément veux-tu traiter ta cellule?

Un classeur exemple joint sur ce forum et non ailleurs <50ko avec le strict minimum pour comprendre serait une aide pour t'aider.
Classeur avec explications précises s'entend.

A+

 

[theolivier]

Re : Cell.find, erreur quand aucune valeur n'est trouvée

Ma macro fonctionne, merci pour tout.
Pour info, voila le resultat :

Sub regroupement()

Dim i As Integer, nam As String, res As Range

Sheets("RETRAITEMENT").Select
Range("E5").Select

For i = 5 To 486

Sheets("RETRAITEMENT").Select
nam = Range("E" & i).Value
Range("F" & i & ":R" & i).Copy

With Sheets("ETATS PREDEFINIS 02.2011").Cells
Set res = .Find(What:=nam, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)

If Not res Is Nothing Then
Sheets("ETATS PREDEFINIS 02.2011").Select
res.Select
ActiveCell.Offset(0, 3).Activate
ActiveSheet.Paste
Else
End If
End With

Next i

End Sub