Discussion :

[bibernaute]

bonjour à tous,
j'ai une feuille excel avec les 22 premières lignes attribuées à des familles produits désignées ainsi. en A2 produits jardin de la cellule 22 à 100, en A3 outillages jardin de la cellule 101 à 130, en A4 produits piscine de la cellule 131 à 240 etc.etc. Ma demande est que j'aimerai en cliquant par exemple sur la cellule A4 que ma page se déroule afin de positionner mon curseur sur la première cellule concernant la famille demandée. Exemple si je clique sur la cellule A4 que je puisse me retrouver sur la cellule A131. En faisant une macro puis-je réaliser celà ? si oui pouvez-vous me donner la marche à suivre ? Merci par avance pour vos réponses. Ber

[rvtoulon]

Slt,

oui ceci est possible. En voici un exemple a adapter et fignoller

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [A2]) Is Nothing Then
[A22].Activate
ElseIf Not Intersect(Target, [A3]) Is Nothing Then
[A101].Activate
ElseIf Not Intersect(Target, [A4]) Is Nothing Then
[A131].Activate
End If
 
End Sub

Tu ouvres l'éditeur de macro ALT + F11
dans la petite fentre de gauche tu sélectionne la feuille dans laquel tu veux mettre ce code.
Et tu colle le code.

Comme je te l'ai dis c'est à titre d'exemple on peut mieux faire.

A+

[bibernaute]

slt,
je viens de faire ce que tu viens de me dire est j'ai un message qui apparait :
erreur de compilation
erreur de syntaxe. et il me met en surbrillance la première ligne elself not intersect.

[rvtoulon]

Pourtant il fonctionne parfaitement essaye avec celui-ci j'ai changé la syntaxe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
Range("A22").Activate
ElseIf Not Intersect(Target, Range("A3")) Is Nothing Then
Range("A101").Activate
ElseIf Not Intersect(Target, Range("A4")) Is Nothing Then
Range("A131").Activate
End If
End Sub

A+

EDIT: ou encore :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then Range("A22").Activate
If Not Intersect(Target, Range("A3")) Is Nothing Then Range("A101").Activate
If Not Intersect(Target, Range("A4")) Is Nothing Then Range("A131").Activate
End Sub

[bibernaute]

merci beaucoup,
pouvez-vous me donner le titre d'un livre ou document qui pourrait m'apprendre tout cela san qu'il soit trop indigeste ?

[LeForestier]

Bonjour,
Pour le fun, une autre approche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [A2:A4]) Is Nothing Then
        Select Case Target.Row
        Case 2: [A22].Activate
        Case 3: [A101].Activate
        Case 4: [A131].Activate
        End Select
    End If
End Sub

A+
Et quand ta question à trouver réponse oublie pas ...

[rvtoulon]

Re, bibernaute, LeForestier
Perso j'ai excel 2007 et je fais de la macro vba depuis mars grace à ce forum qui est excellent, tu y trouve une tres bonne FAQ et d'excellent tutos, ainsi que des personnes qui prennent le temps de t'aider et t'expliquer.

Mais j'ai aussi un petit livre qui m'as permis de comprendre pas mal de choses il est édité par Micro Application dans la collection "Super Poche", C'est "VBA pour Excel 2007".

Il y en a bien d'autre....

Heureux d'avoir pu t'aider