Retour vers base de donnée

Furtif13780

XLDnaute Nouveau
bonjour a tous
après des recherches infructueuses, et cela depuis mon inscription,je ne vois pas, a partir d'un menu déroulant et bouton (feuil2), quel fonction inserer dans la macro, afin de retourner dans une base de donnée (feuil1) et sur la ligne correspondante au libellé du menu déroulant.
Ci-joint un fichier Zip pour plus de compréhension
Merci de votre aide
 

Pièces jointes

  • Bureaux.zip
    35 KB · Affichages: 31
G

Guest

Guest
Re : Retour vers base de donnée

Bonsoir Furtif,

Vois si cela te convient:

Code:
Sub versR5()
    Dim numligne As Variant
    'Si la cellule active n'est pas vide
    If ActiveCell <> "" Then
        'Chercher la cellule correspondante dans "R+5"
        numligne = Application.Match(ActiveCell, Sheets("R+5").range("A:A"), 0)
        'Si trouvée, aller lui dire bonjour.
        If Not IsError(numligne) Then Application.Goto Sheets("R+5").range("A" & numligne)
    End If
End Sub

A+
 

Furtif13780

XLDnaute Nouveau
Re : Retour vers base de donnée

Merci Hasco

ce code VBA va parfaitement

pour la 2ème question : Peut-on, a partir de cette cellule,modifier la cellule correspondante (Cellule B3 de la Feuil R+5 ) et tout en concervant la possibilité de modifier la cellule B3 de la Feuil R+5

si ce n'est pas possible ma fois je ferais avec.

encore merci de cette rapidité.
furtif13780
 
Dernière édition: