Probleme Macro EXCEL

Résolu

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. Contributeur

    bonjour,

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

    peux-tu partager ton fichier?

    1. 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 ?

    2. @yg_be

      Super top, merci beaucoup , maintenant c'est ok

      Bonne soirée

  2. voici le fichier :

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