Si X dans tableur1= X' dans tableur2 alors appliquer la mise en forme de X sur X'

[ron971]

Bonjour à tous,

Dans mes recherches sur le net, j'ai trouvé ce forum, j'ai parcouru bien des pages, je suis sûr de trouver ce que je veux réaliser, quelqu'un veut-il bien m'orienter ?

Je voudrais pouvoir copier la mise en forme de plusieurs nombres que j'aurai mis dans des mises en forme particulières et pouvoir appliquer cette mise en forme respectivement sur chaque nombre que compose mon fichier.

En fait, ça serait de trouver le moyen de chercher dans la feuille excel le chiffre concerné et attribuer le code couleur correspondant. Ex: 70=> 70 en rouge, 56=> 56 vert pomme, etc. En fait c'est une forme conditionnelle.

En pièce jointe, mon gradient de couleur que je voudrais appliquer et l'exemple de que je voudrais obtenir dans le fichier joint.

Merci de votre aide.

A bientôt,

Ronnie.

 

[Compte Supprimé 979]

Re : Si X dans tableur1= X' dans tableur2 alors appliquer la mise en forme de X sur

Bonjour Ron971 et bienvenue sur ce forum

Voici un petit code qui devrait faire l'affaire

Sub MiseEnForme()
  Dim Cel As Range, CelF As Range, RngG As Range, RngD As Range
  ' Définir la zone de gradient
  Set RngG = Range("C10:I19")
  ' Définir la zone ou appliquer les couleurs
  Set RngD = Range("S10:Y19")
  ' En cas d'erreur on continue la boucle
  On Error Resume Next
  ' Pour chaque cellule
  For Each Cel In RngD
    ' Trouver le chiffre correspondant
    Set CelF = RngG.Find(What:=Cel.Value)
    ' Si la cellule est trouvée
    If Not CelF Is Nothing Then
      ' Copier la cellule de la zone gradient et la coller
      ' = couleur + fond
      CelF.Copy Destination:=Cel
    End If
  Next Cel
  On Error GoTo 0
End Sub

A+

 

[ron971]

Re : Si X dans tableur1= X' dans tableur2 alors appliquer la mise en forme de X sur

Bonsoir BrunoM45,

Impeccable.

Merci beaucoup.