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 ?
Merci
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 ?
Code:
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 SubMerci