Probleme Macro EXCEL
RésoluOrang-outanBlanc94 Messages postés 71 Date d'inscription Statut Membre Dernière intervention -
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
- Probleme Macro EXCEL
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
3 réponses
bonjour,
"cela ne fonctionne plus": qu'observes-tu?
peux-tu partager ton fichier?
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 ?
Alors je suggère de remplacer xlPart par xlWhole.
Super top, merci beaucoup , maintenant c'est ok
Bonne soirée