Format de cellule Vba

[Calvus]

Bonjour le forum,

J'ai une macro qui affiche des résultats en colonne V :

Dim Message As String, firstAddress As String
    Set plage = Sheets("Accueil").Range("C4:C" & Range("C" & Rows.Count).End(xlUp).Row)
'ICI...................
    Set marecherche = plage.Find(Range("B3").Value).Offset(, 1)
    [B4] = marecherche
    For Each Ws In Worksheets
        With Ws
            Set c = .Range("B12").Find(What:=marecherche, LookIn:=xlValues, LookAt:=xlPart)
            If Not c Is Nothing Then
                firstAddress = c.Address
                Do
                    Message = Message & "- dans la feuille " & Ws.Name & ", cellule " & c.Address & Chr(10)
                    Set c = .Range("B12").FindNext(c)
                Loop While Not c Is Nothing And c.Address <> firstAddress
'ICI.................
            Range("V1000").End(xlUp).Rows(2) = c

ETC.....

Range("B3").Value est numérique. (mis en évidence dans le code)
Le problème, est que pour la valeur 1, excel me renvoie des fois 1 , des fois 10...

Avez vous une idée du problème ?

Merci

 

[Calvus]

Bonsoir 00 🙂, Marcel 😉, le forum,

[B3] = "Cl" & InputBox("Code Client", "Recherche Client")

C'est une autre possibilité en effet, merci.

Bienvenue au club !

Ben oui !! Hé hé 😉

A bientôt 🙂