XL 2010 Probleme affichage vba et volets figés

[scoobytor]

Bonjour à tous,

Je viens solliciter votre aide pour mon problème d'affichage dans mon fichier. Je vous remercie par avance pour vos solutions.

Sur mon onglet BASE, j'ai une liste d'item colonnes (a:h) puis j'aurai à côté un suivi par personne colonnes (i:bd) une personne étant concernées par 8 colonnes

Donc en G2, je choisi mon agent et je clique sur mon bouton Atteindre pour avoir cet agent à côté de la colonne H, grâce aux volets figés mais à chaque fois j'ai un décalage.
Dans ma capture c'est AG qui devrait être collé à H et non pas AB

mon bouton atteindre est associé à la macro suivante

car sur la ligne 2 j'ai une formule qui vérifie si l'agent saisie en G2 est identique au nom des agents en ligne 5, si c'est le cas on marque ici sinon c'est non.

Je vous mets une copie de mon fichier, si vous pouvez m'aider, ça m'éviterais de resté figé (Ah, Ah, Ah comme les volets ;-) .

 

[scoobytor]

Merci Scoobytor pour ta solution. En effet, en demandant d'aller à la colonne désignée, c'est plus facile.

et en H2 je cherche la valeur de colonne associée à l'agent recherché. Peut-être pas le plus académique mais ça fonctionne.

Encore merci à toi Scoobytor.

 

[Bernard_XLD]

Bonjour @scoobytor , le forum

tu te compliques bien la vie !

Bien cordialement

Sub ici_agent()
'
' ici_agent Macro
'

'
    Dim Cellule_en_Cours As Range
    On Error Resume Next
    Set Cellule_en_Cours = Rows("5:5").Find(What:=[G2].Value, After:=[A5], LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True _
        , SearchFormat:=False)
    On Error GoTo 0
    If Cellule_en_Cours Is Nothing Then
        MsgBox [G2].Value & " non trouvé !", vbOKOnly + vbInformation
    Else
        Application.Goto Reference:=Cellule_en_Cours, Scroll:=True
        Set Cellule_en_Cours = Nothing
    End If
End Sub

 

[scoobytor]

Merci Yeahou, effectivement beaucoup plus simple mais ça je savais pas faire. Je vais mettre ta solution en application. Encore merci.

 

[Bernard_XLD]

mais ça je savais pas faire

c'est toute l'utilité d'un forum comme XLD !

Bonne journée !
Bien cordialement