Cartographie

[Tatnox]

Bonjour,

Je vous pose ici mon problème:

Je n'arrive pas à créer la boucle pour que toutes mes flèches se mettent à jour dès lors que je lance la macro.

Merci d'avance de votre aide 🙂

 

[youky(BJ)]

Bienvenu sur XLD Tatnox,
Sur le fichier il est préférable d’insérer un module et mettre le code dedans plutôt que dans le code du worksheet
J'ai modifier un peu la macro
Bruno

Sub Fleches()
On Error Resume Next
For L = 1 To [S1000].End(3).Row
Region = Cells(L, 19).Value
ActiveSheet.Shapes(Region).Select
Select Case Cells(L, 18).Value
    Case 0 To 5
    Selection.ShapeRange.Line.Visible = False
    Case 6 To 30
    Selection.ShapeRange.Line.Visible = True
    Selection.ShapeRange.Line.ForeColor.SchemeColor = 3
    Case 31 To 60
    Selection.ShapeRange.Line.Visible = True
    Selection.ShapeRange.Line.ForeColor.SchemeColor = 53
    Case Is > 60
    Selection.ShapeRange.Line.Visible = True
    Selection.ShapeRange.Line.ForeColor.SchemeColor = 2
End Select
Next
End Sub

 

[Tatnox]

Merci beaucoup ça fonctionne 🙂

Pour bien comprendre (et progresser) que signifie cette partie stp :

To [S1000].End(3).Row

 

[youky(BJ)]

[S1000].End(3).Row
renvoie la dernière ligne de la colonne S
souvent au lieu du (3) tu verras (xlUp) en montant
on part du bas soit S1000 ici
Il existe (xltoleft) (xltoright)
ou (xldown) en descendant
Si tu veux faire des essais en vba fait Affichage>fenêtre exécution
pour le questionner directement tu mets un point interrogation ? et le code et tu valides par enter
donc tu écris
?[S1000].End(3).Row et ENTER
Perso j'utilise constamment cette fenêtre
Test aussi en mettant des points d'arrêt dans la macro dans les lignes souhaitées
(un click dans la marge de gauche du code cela deviens marron et click sur le rond pour annuler)
Bonne découverte
Bruno

PS sur le fichier la macro trouvais pas les flèches des régions ligne 10-31-40-50

 

[Tatnox]

Merci pour toutes les explications. Je vais essayer tout ça.

Bonne journée.