Format numérique dans un useform

Je me étalé sur mes explications.

Voici ce que je souhaite

Mettre en jaune les cellules modifiées. pour les colonnes de 4 à 20 et de 26 à 56

Soit sur le fichier directement ou par le userform.

Actuellement cela fonctionne très bien pour les colonnes de 4 à 20 avec les 2 méthodes

1ere=userform et 2eme=directement sur le fichier

Par contre pour les colonnes de 26 à 56 cela fonctionne seulement par le userfom.,

Si on utilise le code que vous venez de me donner il souligne la ligne de 26 à 56 et non pas la cellule modifiée.

En espérant avoir été claire..

Grosso modo

Je voudrais ce code qui fonctionne

de 4 à 20 = OK

de 26 à 56 = pas OK

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Plage As Range

Set Plage = Range(Cells(Target.Row, 4), Cells(Target.Row, 20))

Set Plage = Range(Cells(Target.Row, 26), Cells(Target.Row, 56)) (VOICI LA LIGNE QUE J'AI RAJOUTE ONGLET FICHIER CLIENT)

If Target.Count = 1 And Not Application.Intersect(Target, Plage) Is Nothing Then

Target.Interior.Color = vbYellow

End If

Set Plage = Nothing

End Sub

Bonjour

Je comprends mieux

Essayes

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range

  Set Plage = Union(Range(Cells(Target.Row, 4), Cells(Target.Row, 20)), Range(Cells(Target.Row, 26), Cells(Target.Row, 56)))
  If Target.Count = 1 And Not Application.Intersect(Target, Plage) Is Nothing Then
    Target.Interior.Color = vbYellow
  End If
End Sub

Bonjour Banzaï,

En passant par le fichier directement = OK

En Passant par le UserForm MACHINES = PAS OK il surligne la ligne de 26 à 56

Cordialement

Samy

Bonjour

Suppression des évènements avant la recopie par l'userform puis rétablissement des évènements

A tester

Salut Banzaï,

Me revoila parfait ça fonctionne du tonnerre.

J'ai diffusé le fichier auprès de mes 30 collaborateurs, j'attends les retours s'il y en a.

Je te tiens au courant de la suite.

Merci encore mille fois.