Discussion :

[fransix]

Bonjour, je salut tous les membres du club et vous remercie par avance de l'aide que vous pourrez m'apporter.
Retraité, je suis débutant + avec Excel. Dans le cadre de mes activités associatives, je souhaite colorer les département de France (y compris la corse selon des critères définis contenus dans une feuille (4 critères => inférieur à 10%, <> 10 et 30%, entre 30 et 60 %, entre 60 et 40% et =100%).
Merci de votre aide. Cordialement. Fransix

[kiki29]

Salut, un excellent point de départ Dessiner une carte de france

Et tout particulierement ici Colorier la carte.
Il te restera à adapter et développer, cette portion de code pour tes critères.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    If oSheet.Cells(lLine, 4) < oSheet.Cells(lLine, 3) Then
        lColor = vbRed
    Else
        lColor = vbGreen
    End If

[fransix]

Merci beaucoup Kiki29 pour ce coup de pouce et cette aide bien précieuse
J'ai essayé en suivant les instructions, mais k'suis paumé et j'ai perdu la Corse au passage
En fait je souhaite appliquer les couleur selon la progression de chaque département (voir légende). Ou est ce que j'ai faux ???
Merci de votre aide

[kiki29]

Salut, tu repars du fichier de base Carte
Tu supprimes la colonne D
Tu remplaces

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    If oSheet.Cells(lLine, 4) < oSheet.Cells(lLine, 3) Then
        lColor = vbRed
    Else
        lColor = vbGreen
    End If

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
        If oSheet.Cells(lLine, 3) < 0.1 Then lColor = vbRed
        If oSheet.Cells(lLine, 3) >= 0.1 And oSheet.Cells(lLine, 3) < 0.3 Then lColor = RGB(255, 0, 255)
        If oSheet.Cells(lLine, 3) >= 0.3 And oSheet.Cells(lLine, 3) < 0.6 Then lColor = vbYellow
        If oSheet.Cells(lLine, 3) >= 0.6 And oSheet.Cells(lLine, 3) < 0.8 Then lColor = RGB(204, 255, 204)
        If oSheet.Cells(lLine, 3) = 1 Then lColor = RGB(0, 128, 0)

Tu rajoutes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

	Set oSheet = Nothing

avant le End Sub

[fransix]

Slt et merci encore pour ton aide et tes solutions
Je teste tout ça dès ce soir. Atchao

[kiki29]

Salut, si tu as suivi tout ce que j'ai posté en #4 cela fonctionne, par contre si tu pars d'un fichier "bancal" cela s'averera difficile vu que tu es un béotien. Refais la manip.