Simplification code

[maninwhite]

Bonjour à toutes et à tous.

Je sollicite votre aide afin de simplifier le code ci dessous.

Peut être est il possible de le faire avec un Select Case?

Merci

With Sheets("Zones_blabla")
    With .Cells(.Range("A10").Row, .Range("1:1").Find((S), LookAt:=xlWhole).Column)
        TextBox_HSE_FNOK_zones_blabla = Format(.Value, "0.00")
    End With
End With

With Sheets("Zones_wtf")
    With .Cells(.Range("A10").Row, .Range("1:1").Find((S), LookAt:=xlWhole).Column)
        TextBox_HSE_FNOK_zones_wtf = Format(.Value, "0.00")
    End With
End With

 

[gosselien]

Re : Simplification code

Hello,

regarde avant ici, sans ça il sera difficile de t'aider:

5 – La possibilité de joindre des fichiers est donnée sur ce forum. Ne pas hésiter à utiliser cette fonction, tout en veillant que les données soient bidons et donc qu’aucune donnée confidentielle, nominative ne soit dans le fichier.