Problème à cause du format

[isa44]

Bonsoir ,
j'ai un souci de code qui ne fonctionne pas par ce que le format des cellules concernées est en "format , spécial , Luxembourg "

Lorsque je passe ces cellules en format standart le code fonctionne.
Peut on appliquer le code pour le format : spécial , Luxembourg ?

Sub test()
Dim zoneRecherche As Range, celluleTrouve As Range, i As Integer
Set zoneRecherche = ThisWorkbook.Sheets("HEURE").Range("A5:A109")
With ThisWorkbook.Sheets("        Set celluleTrouve = zoneRecherche.Find(.Range("E" & i), , xlValues, xlWhole)
        If Not celluleTrouve Is Nothing Then
            .Range("C" & i) = celluleTrouve.Offset(0, 15)
            .Range("G" & i) = celluleTrouve.Offset(0, 14)
        End If
    Next i
End With
End Sub

Merci

 

[ledzepfred]

Re : Problème à cause du format

Bonsoir Isa44,

tu peux peut-être contourné le pb en faisant passé ta sélection au format standard en début de code et de la repasser au format numéro de téléphone (Luxembourg) en fin de code (j'imagine que c'est de ce format dont tu parles).

A tester :

Sub test()
Dim zoneRecherche As Range, celluleTrouve As Range, i As Integer
Set zoneRecherche = ThisWorkbook.Sheets("HEURE").Range("A5:A109")
zoneRecherche.NumberFormat = "General"

[COLOR="Red"]' suite de ton code[/COLOR]

zoneRecherche.NumberFormat =  "##"" ""00"" ""00"
End Sub

A+

 

[isa44]

Re : Problème à cause du format

Bonjour , j'y avait pensé en faisant une macro.
Je voulais savoir si cela est possible de faire la recherche directement sans transformer les formats.

 

[kjin]

Re : Problème à cause du format

Bonjour,
Avec le telefon

Telefon = Format(.Range("E" & i), "##"" ""00"" ""00")
Set celluleTrouve = zoneRecherche.Find(Telefon)

A+
kjin