Format nombre suivant celleule adjacente

[Moultigrade]

Bonjour a tous, tous mes vœux pour cette nouvelle année.
La question du moment sans réponse me semble t il sur le forum :
Comment automatiser le format d'une cellule (m² / ml / U / etc ) lorsque je rentre une quantité dans une cellule, je souhaite en validant (ex en D5), exécuter un automatisme de recherche dans une cellule voisine de même ligne (en B5 pour ce cas) l'unité prévue dans le texte et l'appliquer a la cellule de saisie (D5).
Voir sur le fichier joint le type de document objet de la question.
Merci par avance pour vos lumières.
Moultigrade 🙄

 

[Dranreb]

Re : Format nombre suivant celleule adjacente

Bonjour.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Unité As String
If Target.Column = 4 And Target.Count = 1 Then
   On Error Resume Next
   Unité = Trim$(Split(Target.Offset(, -2).Value, "/")(1))
   If Err Then
      Target.NumberFormat = "General"
   Else
      Target.NumberFormat = "General"" " & Unité & """": End If: End If
 End Sub

 

[Moultigrade]

Re : Format nombre suivant celleule adjacente

Après application, ca marche a condition que la cellule cible soit débarrassée de tout autre rapport avec une unité (par ex 350gr/m2 de peinture affichée X € /m²) et la cellule destination affiche un format brut, non arrondi, sinon parfait, ca tourne bien et reproduit n'importe quel format souhaité avec toute les fantaisies possible. . Merci. Moultigrade