gestion d'erreur Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
C
ClaireD
Membre habitué
Membre habitué
Messages : 72
Inscrit le : 4 mars 2014
Version d'Excel : 2010 fr

Message par ClaireD » 25 avril 2014, 00:06

Bonjour à tous,

Un petit coup de main s.v.p.

J'ai une colonne A avec des numéros.

Je sélectionne la colonne A.

Je veux savoir si un numéro spécifique est dans la liste, si oui suit une procédure, si non j'ai une erreur et la macro s'arrête.

Voici le code en question
If Selection.Find(what:=123, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate = True Then
J'ai besoin de savoir le numéro de la ligne, c'est pourquoi le "activate" est là.

Si vous pourriez m'aider, j'apprécierais beaucoup.
Merci
Claire
f
frangy
Passionné d'Excel
Passionné d'Excel
Messages : 4'342
Appréciation reçue : 1
Inscrit le : 19 novembre 2012
Version d'Excel : 2007 FR

Message par frangy » 25 avril 2014, 00:18

Bonsoir,

Essaie comme cela
Sub test()
Dim C As Range
    Set C = Selection.Find(123, , xlFormulas, xlPart)
    If Not C Is Nothing Then
        MsgBox "Trouvé à la ligne " & C.Row
    Else
        MsgBox "Désolé, pas trouvé !"
    End If
End Sub
A+
B
Benead
Membre fidèle
Membre fidèle
Messages : 455
Inscrit le : 15 octobre 2011
Version d'Excel : 2007 FR 32bits- 2013 FR 64bits

Message par Benead » 25 avril 2014, 00:25

Bonsoir,

Un exemple d'utilisation :
Sub Test()
   Dim rCellule As Range
   Set rCellule = Selection.Find(what:=123, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
            :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False, SearchFormat:=False)
   If Not rCellule Is Nothing Then
      MsgBox "Valeur 123 trouvée en cellule " & rCellule.Address(0, 0)
   Else
      MsgBox "Pas de correspondance !"
   End If
End Sub
Attention, tu as une sélection dans ta recherche : Selection.Find(what:=123...
Si tu veux faire ta recherche sur toute la feuille, il faut remplacer Selection par Cells

EDIT : Ah ! Tu as été plus rapide que moi, sur ce coup là Frangy ! Mais le code est très similaire...
A+
Benoît Marchand
[Benead]
f
frangy
Passionné d'Excel
Passionné d'Excel
Messages : 4'342
Appréciation reçue : 1
Inscrit le : 19 novembre 2012
Version d'Excel : 2007 FR

Message par frangy » 25 avril 2014, 00:52

Tu as été plus rapide que moi, sur ce coup là Frangy ! Mais le code est très similaire...
D'un coté, c'est rassurant pour toi comme pour moi :bien:

A+
C
ClaireD
Membre habitué
Membre habitué
Messages : 72
Inscrit le : 4 mars 2014
Version d'Excel : 2010 fr

Message par ClaireD » 25 avril 2014, 13:18

Merci à vous deux.

Claire
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Gestion erreur
    par TeamG1 » 9 mars 2017, 13:11 » dans Excel - VBA
    4 Réponses
    114 Vues
    Dernier message par TeamG1
    9 mars 2017, 13:58
  • Gestion d'erreur
    par ClaireD » 17 mars 2019, 21:16 » dans Excel - VBA
    8 Réponses
    100 Vues
    Dernier message par ClaireD
    19 mars 2019, 16:25
  • Boucle/Gestion Erreur
    par MOULY » 6 février 2017, 18:33 » dans Excel - VBA
    1 Réponses
    495 Vues
    Dernier message par andrea73
    6 février 2017, 18:48
  • Gestion stock code erreur
    par MITCH60 » 23 juin 2018, 07:33 » dans Excel - VBA
    3 Réponses
    145 Vues
    Dernier message par MITCH60
    29 juin 2018, 12:10
  • ERREUR Execution Gestion STOCK
    par boulbalbil » 11 février 2015, 14:07 » dans Excel - VBA
    11 Réponses
    346 Vues
    Dernier message par richi2casa
    12 février 2015, 14:34
  • Gestion de l'erreur Fonction Find.row
    par pipout64 » 31 mars 2017, 10:14 » dans Excel - VBA
    4 Réponses
    615 Vues
    Dernier message par pipout64
    31 mars 2017, 11:04