Couleur cellules

[TEMAGOULTFARID]

Est-ce possible via une macro de pouvoir mettre dans la cellule A9 de ce classeur les couleurs comme en exemple ci-dessus des informatio des cellules du classeur P-01 dans la colonne JANVIER , Ensuite que cette macro puisse etre utiliser dans la cellule B9 de ce classeur en prenant les informationsdans le classeur P-01 de la colonne FEVRIER et ainsi de suite jusqu'a decembre.Et ensuite est ce possible de reprndre cette meme macro et l'appliquer sur la ligne 10 de ce classeur avec les information du classeur P-02 et ainsi de suite .Par avance, merci beaucoup

 

[Staple1600]

Bonsoir le fil, Farid

Farid
Est-ce possible via un petit effort occulaire que les nouveaux membres prennent le temps de lire la charte du forum? 😉
(Au hasard ici le point 3 😉)
Maintenant après le rappel des bonnes manières, la bienvenue sur XLD je te souhaite Farid 😉

 

[TEMAGOULTFARID]

bonjour,
je suis vraiment désolé, je ne me suis pas relu . Une erreur sans mauvaise intention de ma part, j'ai négligé la formule de politasse d'entré de texte.
merci de me l’avoir rappeler .
bien cordialement

 

[Staple1600]

Bonsoir le fil,

Maintenant qu'on a fait dans l'échange de politesse, reste la question à résoudre. 😉

Sauf que là, il se fait tard et il fait 27° dans ma chambrée.

Je vais donc aller me baigner dans la rivière.

Je laisse mes camarades climatisés prendre le relais pour t'aider.
😉

 

[job75]

Bonjour TEMAGOULTFARID, JM,

Quelle couleur faut-il appliquer quand 2 (ou 3 ou 4) critères de couleurs sont VRAI simultanément ?

A+

 

[job75]

Bon, voyez dans Module5 cette macro :

Sub Mise_à_jour()
Dim chemin$, ligdeb&, ligfin&, coul1&, coul2&, coul3&, coul4&, coul5&, coul6&, coul7&
Dim i&, n&, fichier$, j%, f$, v1, v2, v3, v4, v5
chemin = ThisWorkbook.Path & "\" 'adapter si nécessaire
ligdeb = 9 '1ère ligne
ligfin = 30 'dernière ligne
coul1 = [T10].Interior.Color
coul2 = [T11].Interior.Color
coul3 = [T12].Interior.Color
coul4 = [T13].Interior.Color
coul5 = [T14].Interior.Color
coul6 = [T15].Interior.Color
coul7 = [T16].Interior.Color
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = ligdeb To ligfin
    fichier = "P-" & Format(i - ligdeb + 1, "00") & ".xlsm"
    For j = 1 To 12
        f = "'" & chemin & "[" & fichier & "]RESUMER'!"
        v1 = ExecuteExcel4Macro(f & "R2C" & j + 1) 'B2
        v2 = ExecuteExcel4Macro(f & "R3C" & j + 1) 'B3
        v3 = ExecuteExcel4Macro(f & "R9C" & j + 1) 'B9
        v4 = ExecuteExcel4Macro(f & "R10C" & j + 1) 'B10
        v5 = ExecuteExcel4Macro(f & "R11C" & j + 1) 'B11
        If IsNumeric(v1) Then If v1 = 0 Then Cells(i, j).Interior.Color = coul1
        If IsNumeric(v1) Then If v1 < 0 Then Cells(i, j).Interior.Color = coul2
        If IsNumeric(v2) Then If v2 < 0 Then Cells(i, j).Interior.Color = coul3
        If UCase(CStr(v3)) = "OT" Then Cells(i, j).Interior.Color = coul4
        If UCase(CStr(v4)) = "NUIT" Then Cells(i, j).Interior.Color = coul5
        If UCase(CStr(v5)) = "OK" Then Cells(i, j).Interior.Color = coul6
        If IsNumeric(v1) And IsNumeric(v2) Then If v1 > v2 Then Cells(i, j).Interior.Color = coul7
Next j, i
End Sub

La couleur appliquée est celle du dernier test True/VRAI.

Téléchargez les fichiers joints dans le même dossier (le bureau).

A+

 

[TEMAGOULTFARID]

Bonjour TEMAGOULTFARID, JM,

Quelle couleur faut-il appliquer quand 2 (ou 3 ou 4) critères de couleurs sont VRAI simultanément ?

A+

Bonjour,
avant, merci pour ta participation a mon projet, concernant ta question , je t'envoie en PJ les réponses

 

[TEMAGOULTFARID]

et merci pour tout

 

[job75]

je t'envoie en PJ les réponses

Cela ne répond pas à la question que j'ai posée.

 

[TEMAGOULTFARID]

Bonjour,
oups, dessolé j'ai oublie le fichier explicatif Word en PJ n'a pas passé, j'espere que cela répondra a tes question. Par avance, merci

 

[job75]

Beaucoup trop compliqué, je n'ai pas lu jusqu'au bout.