Problème retour au début du classeur

Résolu
zer4 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention   -  
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
J'ai créé un planning pour suivre de l'outillages et j'ai une fonction de liste déroulante qui me permet de retrouver un outil parmi une longue liste en début de classeurs (Colonne A:B)
Mais étant donner que je travail beaucoup vers la colonne NH, des que je veux retrouver un outils il me ramène directement en début de classeurs alors que je ne souhaite pas.
Voici ma fonction:

Private Sub Worksheet_Change(ByVal sel As Range)
If Not Intersect([A3], sel) Is Nothing Then
Cells.Find(sel, sel, xlValues, xlWhole).Activate
End If
If Not Intersect([C3], sel) Is Nothing Then
Cells.Find(sel, sel, xlValues, xlWhole).Activate
End If
End Sub

Pourrais-je la modifier de tel manière a ce que cherche que dans la colonne "A et B" ?

Cordialement.


1 réponse

gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Bonjour,

Tu remplace ainsi :
Columns("A:B").Find(sel, sel, xlValues, xlWhole).Activate 

0
zer4 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention  
 
Merci de votre reponses si rapide, mais cela ne fonctionne pas
0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Effectivement, j'avais lu un peu vite :
Cells.Find(sel, sel, xlValues, xlWhole).Offset(0, 371).Activate
0
zer4 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention  
 
Merci c'est entre guillemets ce que je voulais.
Je me suis mal exprimé.
Est-il possible de faire de même pour la colonne ou se trouve la date d'aujourd'hui ?
0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
la colonne ou se trouve la date d'aujourd'hui
Ma boule de cristal est en panne, je n'arrive pas à savoir où se trouve ta date.
0