Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

theolivier

XLDnaute Nouveau
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
 
Trier par date Trier par votes
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
Code: 
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:

Code: 
'Si Res n'est pas trouvé
If res Is Nothing then
   ActiveCell.Offset(0, 3).Activate
   ActiveSheet.Paste
End If
A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
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.
?
 
Vote positif 0 Vote négatif
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+
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
347
patricktoulon
D
  • Question Question
Microsoft 365 Problème avec la fonction publishobjects
2 3
Réponses
37
Affichages
801
jurassic pork
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
487
telemarrk
T
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
570
Chaton77
C
  • Question Question
XL 2016 accès feuilles masquées par bouton
2
Réponses
26
Affichages
586
vgendron
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
672
job75
T
  • Question Question
XL 2016 Erreur d'exécution 1004 : Impossible de définir la propriété Hidden de la classe Range
Réponses
3
Affichages
439
Phil69970
M
  • Question Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
511
Gégé-45550
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
643
Gestionnaire_rh
G
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
693
Compte Supprimé 979
C
  • Résolu(e)
XL 2019 Erreur dans ma macro
Réponses
9
Affichages
580
Nadou69
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
656
robpellan52
R
EXCEL :: VBA :: Barre de progression via un graphique cylindrique, cubique, aquarium, donuts et shape
Réponses
0
Affichages
311
oguruma
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
  • Question Question
XL 2016 Macro erreur exécution
Réponses
8
Affichages
744
crackerwood
D
  • Question Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
798
crocrocro
C
C
  • Résolu(e)
XL 2021 Remplir données devis en vba avec descriptions/quantités/PUs alignés
2
Réponses
18
Affichages
1 K
Phil69970
F
  • Question Question
XL 2019 erreur 1004
Réponses
8
Affichages
531
florian50470
F
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
461
Francky79
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…