Sujet Précédent Sujet Suivant

Excel : déplacement de la cellule active

Résolu/Fermé
chemil123 - 7 juil. 2012 à 19:22
 chemil123 - 9 juil. 2012 à 05:59
Bonjour,
Je veux déplacer la cellule active en fonction d'un code.
Si je rentre en a1 un "1" je veux que la cellule active soit en a10, si je tape un "2" que la cellule active soit en a12.
Je pense que la chose est simple mais je n'y arrive pas...
merci pour votre aide



A voir également:

6 réponses

Réponse 1 / 6
Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
7 juil. 2012 à 23:14
Bonjour,
Au passage, il est plus rapide et plus simple de sélectionner directement la cellule concernée (A10 ou A12).
Quand pensez-vous ?
1
Réponse 2 / 6
Raymond PENTIER Messages postés 58398 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 28 avril 2024 17 094
8 juil. 2012 à 00:11
Non, la chose n'est pas simple ; d'ailleurs personne ne fait ça ...
0
Réponse 3 / 6
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
Modifié par Mike-31 le 8/07/2012 à 06:54
Salut,

C'est tout à fait possible mais en VBA uniquement ou avec des liens hypertextes éventuellement.
Par contre quel intérêt de passer par une macro alors qu'il suffit d'un simple clic sur la cellule considérée, cela qui me semble plus simple et rapide que de saisir des valeurs dans une cellule.
a moins que tu nous es pas tout dit sur ton fichier ?
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0
Réponse 4 / 6
chemil123
8 juil. 2012 à 07:48
Bonjour à tous,
Je vous remercie pour vos réponses. Il me semble pourtant avoir utilisé (il y a longtemps) cette manip dans une formule.
Bien sûr il est simple de cliquer sur la cellule.
Je suis en b1 et je dois aller en g1 ou h1, c'est loin avec les flèches ou bien il faut attraper la souris...
C'était pour le fun...
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 685
8 juil. 2012 à 11:38
Alors pour le fun, tu peux essayer ceci : 

Private Sub Worksheet_Change(ByVal sel As Range)
On Error Resume Next
    Range(sel.Value).Select
    If Err.Number = 0 Then sel.Value = "" Else Err.Clear
End Sub

Tu iras à l'adresse saisie dans une cellule vide afin de ne pas garder les adresse visitées !
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
8 juil. 2012 à 09:28
Re,

Alors comme tu le dis si bien pour le fun, avec ce code

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Selection, Range("B1:B20")) Is Nothing Then
Target.Offset(0, Target.Value).Select
End If
End Sub


sur le fichier exemple saisir une valeur dans la plage colorisée en jaune et la cellule active se déplacera vers la droite de la valeur saisie et vers la gauche si la valeur saisie est -1 vu qu'il n'y a qu'une colonne libre à gauche

https://www.cjoint.com/?BGijB2Eu8wq
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 685
Modifié par gbinforme le 8/07/2012 à 10:49
Bonjour Mike-31,

Ceci serait plus approprié : 

Private Sub Worksheet_Change(ByVal Target As Range) 
On Error Resume Next 
If Not Intersect(Target, Range("B1:B20")) Is Nothing Then 
    Target.Offset(0, Target.Value).Select 
End If 
End Sub
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 076
8 juil. 2012 à 11:12
Salut l'ami,

Exact

Bon dimanche
A+
0
Réponse 6 / 6
chemil123
9 juil. 2012 à 05:59
Merci pour votre solution, ça va m'obliger à me replonger dans vba, voilà 10 ans que je n'y est pas touché...
bonne semaine à tous
0