format numérique dans un useform Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
b
belsamis010975
Membre habitué
Membre habitué
Messages : 73
Inscrit le : 14 juin 2013
Version d'Excel : 2010FR

Message par belsamis010975 » 13 novembre 2014, 16:10

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
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'690
Appréciations reçues : 5
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 13 novembre 2014, 16:19

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
b
belsamis010975
Membre habitué
Membre habitué
Messages : 73
Inscrit le : 14 juin 2013
Version d'Excel : 2010FR

Message par belsamis010975 » 14 novembre 2014, 08:49

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
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'690
Appréciations reçues : 5
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 14 novembre 2014, 13:18

Bonjour

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

A tester
belsamis010975 Base de données V020.zip
b
belsamis010975
Membre habitué
Membre habitué
Messages : 73
Inscrit le : 14 juin 2013
Version d'Excel : 2010FR

Message par belsamis010975 » 20 novembre 2014, 14:51

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.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message