XL 2010 Probleme affichage vba et volets figés

scoobytor · 20 Mars 2021

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 ;-) .

Bernard_XLD · 20 Mars 2021

Bonjour @scoobytor , le forum

tu te compliques bien la vie !

Bien cordialement

VB:

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 · 20 Mars 2021

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 · 20 Mars 2021

Bonjour @scoobytor , le forum

tu te compliques bien la vie !

Bien cordialement

VB:

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 · 20 Mars 2021

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

Bernard_XLD · 20 Mars 2021

scoobytor à dit:
mais ça je savais pas faire

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

Bonne journée !
Bien cordialement

XL 2010 Probleme affichage vba et volets figés

scoobytor

XLDnaute Nouveau

Pièces jointes

Bernard_XLD

scoobytor

XLDnaute Nouveau

Bernard_XLD

XLDnaute Barbatruc

scoobytor

XLDnaute Nouveau

Bernard_XLD

XLDnaute Barbatruc

Discussions similaires