Probleme Macro EXCEL

Résolu
Orang-outanBlanc94 Messages postés 72 Statut Membre -  
Orang-outanBlanc94 Messages postés 72 Statut Membre -

Bonsoir,

J'ai récupéré un code VBA pour rechercher un numéro ( compris entre 0 et 99999 ) qui se trouverait dans un des mes onglets (onglets illimités ) de mon classeur et se trouverait entre la colonne B et U à partir de la ligne5 (nombre de ligne illimitées )

Ce code fonctionne bien si le numéro recherché est composé de 5 chiffres, mais si il est inférieur cela ne fonctionne plus !!!

Quelqu'un pourrait il m'aider SVP ?

Voici le code utilisé : ( suis novice en VBA )

Sub Recherche()
Dim MaRecherche
Dim Ws As Worksheet
Dim c As Range
Dim Message As String, firstAddress As String
Dim NonExi As Boolean, ne As Integer

MaRecherche = Worksheets("Recap Vignettes & Recherche").Range("K9").Value
NonExi = False: ne = 0
Message = "La valeur cherchée " & MaRecherche & " n'existe pas !!!"
For Each Ws In Worksheets
    With Ws
        Set c = .Columns("A:KT").Find(What:=MaRecherche, LookIn:=xlValues, LookAt:=xlPart)
        If Not c Is Nothing Then
            firstAddress = c.Address
            .Select
            .Range(c.Address).Select
        Else
            NonExi = True
            ne = ne + 1
        End If
    End With
    Next Ws
    If ne <> 0 Then
        'MsgBox Message & "Dans " & ne & " feuille/s "
        
    End If
    

    
End Sub
 

Merci par avance

3 réponses

  1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     

    bonjour,

    "cela ne fonctionne plus": qu'observes-tu?

    peux-tu partager ton fichier?

    0
    1. Orang-outanBlanc94 Messages postés 72 Statut Membre 5
       

      Bonsoir,

      Admettons que je recherche le numéro 15236 c'est ok mais si je recherche le 803 il me fait ressortir le 24803 ou le 16803 etc etc .

      Comment puis je te partager mon fichier stp ?

      0
      1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > Orang-outanBlanc94 Messages postés 72 Statut Membre
         

        Alors je suggère de remplacer xlPart par xlWhole.

        0
      2. Orang-outanBlanc94 Messages postés 72 Statut Membre 5 > yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention  
         

        Super top, merci beaucoup , maintenant c'est ok

        Bonne soirée

        0
  2. Orang-outanBlanc94 Messages postés 72 Statut Membre 5
     

    voici le fichier :

    https://www.cjoint.com/c/NKitW7Efba5

    0
  3. Orang-outanBlanc94 Messages postés 72 Statut Membre 5
     

    https://www.cjoint.com/c/NKitW7Efba5

    0