Lien vers cellule

Question

Je souhaiterai crée un outil sur Excel pour cibler des cellules en surbrillance en fonction de ma recherche, Ci joint je vous mets une photo, je ne peux malheureusement pas fournir plus point de vue sécurité Ma démarche, J’ai mis en arrière plan une image qui vient cibler sur avion des noms de portes, je souhaiterai donc pouvoir renvoyer aux cellules qui correspondent à la zone de l’arrière plan et les mettre en surbrillance pour montrer à l’utilisateur la zone correspondantes. Est ce que l’un d’entre vous aurait une idée sur la démarche ? Si je sélectionne la porte r149a je voudrais donc un renvoi sur les cellules qui correspondent à l’arrière plan Cordialement...

Pedro22 · Answer

C'est possible grâce à un macro liée à l’événement "SelectionChange" (voir documentation ). Quelque chose du genre : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone 'Retire les anciennes mise en forme If Not Intersect(Target, Range("AD50:AG55")) Is Nothing Then 'Si la sélection croise la plage de la porte R149A Range("X80:Y85").Interior.ColorIndex = 3 'Couleur de fond rouge de la zone concernée End If If Not Intersect(Target, Range("AE60:AI65")) Is Nothing Then 'Si la sélection croise la plage de la porte TRUC Range("AA90:AC100").Interior.ColorIndex = 3 'Couleur de fond rouge de la zone concernée End If '... Etc End Sub...

Pedro22 · Answer

Un exemple illustré : PS : ça a quand même plus de gueule qu'un Rafale, non ...

Pedro22 · Answer

Tu peux aussi mettre une adresse de cellule sur chaque ligne pour centrer la vue sur un point précis. Avec le même type de procédure événement que celle présentée plus haut, tu peux lancer une macro par simple double clique sur cette ligne ou cette cellule contenant l'adresse.

Sub CentrerCellule(r As Range)

Dim iRow As Integer
Dim iCol As Integer

iRow = r.Row - ActiveWindow.VisibleRange.Rows.Count / 2
If iRow < 1 Then iRow = 1
iCol = r.Column - ActiveWindow.VisibleRange.Columns.Count / 2
If iCol < 1 Then iCol = 1
ActiveWindow.ScrollColumn = iCol
ActiveWindow.ScrollRow = iRow

End Sub

Si la vue à afficher n'est pas sur la même feuille, il te faut au préalable activer la feuille correspondante :

Sheets("MaFeuille").Activate

Pedro22 · Answer

Si tu veux davantage d'aide sur ta problématique, je t'invite à joindre un classeur pour l'illustrer, et que l'on puisse directement y tester nos propositions.....

Pedro22 · Answer

La difficulté d'une image d'arrière plan est qu'elle ne dépend pas du zoom. Une partie précise de l'image ne peut donc être rattachée à une cellule en particulier. On peut tout de même contourner le problème en imposant un zoom fixe dans la macro.

Un essai pour centrer la vue sur la pièce :

Private Sub Worksheet_Change(ByVal Target As Range)

Dim AdrCel As String

If Not Intersect(Target, Range("A6")) Is Nothing Then
    ActiveWindow.Zoom = 100
    Select Case Target.Value
        Case 1
            AdrCel = "O47"
        Case 2, 3
            AdrCel = "P48"
        Case 4
            AdrCel = "P50"
        Case 5
            AdrCel = "Q50"
    End Select
    Call CentrerCellule(Range(AdrCel))
End If

End Sub

5test-vba2.xlsm (234.70 Ko)

Les références de cellule sont à adapter.

Pedro22 · Answer

Tu peux mettre en forme les cellules par la même méthode. Attention, la couleur de fond masque l'arrière plan. Tu peux jouer sur la présence ou non d'une bordure colorée, ajouter du texte en couleur, déplacer une forme. Attention à bien effacer les anciennes mises en forme en début de macro.....