XL 2010 Probleme affichage vba et volets figés

scoobytor

XLDnaute Nouveau
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
Capture.JPG


mon bouton atteindre est associé à la macro suivante

Capture2.JPG


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

Pièces jointes

  • Livret Individuel.xlsm
    55.5 KB · Affichages: 11
Solution
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

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

Capture3.JPG

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

Discussions similaires

Réponses
1
Affichages
357

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 848
dernier inscrit
Djigbenou