Probleme Macro EXCEL

Résolu
Orang-outanBlanc94 Messages postés 5 Date d'inscription vendredi 8 novembre 2024 Statut Membre Dernière intervention 8 novembre 2024 - 8 nov. 2024 à 20:38
Orang-outanBlanc94 Messages postés 5 Date d'inscription vendredi 8 novembre 2024 Statut Membre Dernière intervention 8 novembre 2024 - 8 nov. 2024 à 21:43

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

A voir également:

3 réponses

yg_be Messages postés 23405 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 décembre 2024 Ambassadeur 1 557
8 nov. 2024 à 20:41

bonjour,

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

peux-tu partager ton fichier?

0
Orang-outanBlanc94 Messages postés 5 Date d'inscription vendredi 8 novembre 2024 Statut Membre Dernière intervention 8 novembre 2024
8 nov. 2024 à 20:44

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
yg_be Messages postés 23405 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 décembre 2024 1 557 > Orang-outanBlanc94 Messages postés 5 Date d'inscription vendredi 8 novembre 2024 Statut Membre Dernière intervention 8 novembre 2024
8 nov. 2024 à 21:39

Alors je suggère de remplacer xlPart par xlWhole.

0
Orang-outanBlanc94 Messages postés 5 Date d'inscription vendredi 8 novembre 2024 Statut Membre Dernière intervention 8 novembre 2024 > yg_be Messages postés 23405 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 décembre 2024
8 nov. 2024 à 21:43

Super top, merci beaucoup , maintenant c'est ok

Bonne soirée

0
Orang-outanBlanc94 Messages postés 5 Date d'inscription vendredi 8 novembre 2024 Statut Membre Dernière intervention 8 novembre 2024
8 nov. 2024 à 20:49

voici le fichier :

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

0
Orang-outanBlanc94 Messages postés 5 Date d'inscription vendredi 8 novembre 2024 Statut Membre Dernière intervention 8 novembre 2024
8 nov. 2024 à 21:12

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

0