Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Rêve

Rêve

6 réponses
Avatar
Denys
Re-bonjour =E0 tous,

Si en cellule D1 j'ai inscrit dedans le mot Bonjour, est-
il possible qu'en cliquant dans la cellule qu'Excel me=20
dirige en cellule A132 o=F9 le mot Bonjour y est aussi=20
inscrit?=20

Et aussi qu'en cliquant sur la cellule D2, qu'Excel me=20
conduise dans la colonne Axxx l=E0 o=F9 l'=E9quivalent de ce qui=20
est incrit dans la cellule D2. Et ainsi de suite....

Est-ce un r=EAve? Ou c'est possible?

Merci

Denys
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
garnote
Salut Denys,

Si tu ne tiens pas vraiment au clic, tu pourrais utiliser ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target <> "" And Target.Column = 4) Then Cells(131 + Target.Row,
1).Select
End Sub

Par contre, si tu y tiens, tu pourrais inclure dans tes cellules des
rectangles
sans remplissage et sans trait et leur associer une macro qui t'enverrait à
l'endroit désiré.

Serge



"Denys" a écrit dans le message de
news: 175c01c3fbd6$02ec4e80$
Re-bonjour à tous,

Si en cellule D1 j'ai inscrit dedans le mot Bonjour, est-
il possible qu'en cliquant dans la cellule qu'Excel me
dirige en cellule A132 où le mot Bonjour y est aussi
inscrit?

Et aussi qu'en cliquant sur la cellule D2, qu'Excel me
conduise dans la colonne Axxx là où l'équivalent de ce qui
est incrit dans la cellule D2. Et ainsi de suite....

Est-ce un rêve? Ou c'est possible?

Merci

Denys
Avatar
garnote
Si tu tiens au clic :

1. Insère un rectangle sans remplissage et sans contour
en D1 ( faut pas qu'il sorte de la cellule)
2. Associe cette macro au rectangle :
Sub Je_Vais_Ailleurs()
L = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
Cells(L + 131, 1).Select
End Sub
3. Sélectionne le rectangle et copie-le dans les cellules D2-D3-D4...
en t'assurant qu'il est entièrement compris dans ces cellules
Alors, si les textes de D1 à Dxxx apparaissent de A132 à Axxx,
ça devrait aller.


Serge



"garnote" a écrit dans le message de news:
s87%b.78890$
Salut Denys,

Si tu ne tiens pas vraiment au clic, tu pourrais utiliser ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target <> "" And Target.Column = 4) Then Cells(131 + Target.Row,
1).Select
End Sub

Par contre, si tu y tiens, tu pourrais inclure dans tes cellules des
rectangles
sans remplissage et sans trait et leur associer une macro qui t'enverrait
à

l'endroit désiré.

Serge



"Denys" a écrit dans le message de
news: 175c01c3fbd6$02ec4e80$
Re-bonjour à tous,

Si en cellule D1 j'ai inscrit dedans le mot Bonjour, est-
il possible qu'en cliquant dans la cellule qu'Excel me
dirige en cellule A132 où le mot Bonjour y est aussi
inscrit?

Et aussi qu'en cliquant sur la cellule D2, qu'Excel me
conduise dans la colonne Axxx là où l'équivalent de ce qui
est incrit dans la cellule D2. Et ainsi de suite....

Est-ce un rêve? Ou c'est possible?

Merci

Denys




Avatar
Denys
Salut Serge,

Merci, la première fonctionne très bien, même en cliquant
dessus...Sans vouloir abuser (même si j'ai l'impression de
le faire), comment faire que pour chaque cellule que tu
cliques en colonne D, tu vas en colonne A plus 20 lignes...

Par exemple, si tu cliques sur D1, tu vas en A131. Si tu
cliques sur D2, tu vas à a131+20, soit A 151 etc...

Car il se rajoutera sans cesse des noms de projets en D....

Y a-t-il un moyen pour que je n'aie pas à récrire de code?

Merci encore...

Denys
-----Original Message-----
Salut Denys,

Si tu ne tiens pas vraiment au clic, tu pourrais utiliser
ceci :


Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

If (Target <> "" And Target.Column = 4) Then Cells(131 +
Target.Row,

1).Select
End Sub

Par contre, si tu y tiens, tu pourrais inclure dans tes
cellules des

rectangles
sans remplissage et sans trait et leur associer une macro
qui t'enverrait à

l'endroit désiré.

Serge



"Denys" a écrit
dans le message de

news: 175c01c3fbd6$02ec4e80$
Re-bonjour à tous,

Si en cellule D1 j'ai inscrit dedans le mot Bonjour, est-
il possible qu'en cliquant dans la cellule qu'Excel me
dirige en cellule A132 où le mot Bonjour y est aussi
inscrit?

Et aussi qu'en cliquant sur la cellule D2, qu'Excel me
conduise dans la colonne Axxx là où l'équivalent de ce qui
est incrit dans la cellule D2. Et ainsi de suite....

Est-ce un rêve? Ou c'est possible?

Merci

Denys


.



Avatar
garnote
Essaie :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target <> "" And Target.Column = 4) Then _
Cells(131 + (Target.Row - 1) * 20, 1).Select
End Sub

Serge

"Denys" a écrit dans le message de
news: 176401c3fbe0$c67ef140$
Salut Serge,

Merci, la première fonctionne très bien, même en cliquant
dessus...Sans vouloir abuser (même si j'ai l'impression de
le faire), comment faire que pour chaque cellule que tu
cliques en colonne D, tu vas en colonne A plus 20 lignes...

Par exemple, si tu cliques sur D1, tu vas en A131. Si tu
cliques sur D2, tu vas à a131+20, soit A 151 etc...

Car il se rajoutera sans cesse des noms de projets en D....

Y a-t-il un moyen pour que je n'aie pas à récrire de code?

Merci encore...

Denys
-----Original Message-----
Salut Denys,

Si tu ne tiens pas vraiment au clic, tu pourrais utiliser
ceci :


Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

If (Target <> "" And Target.Column = 4) Then Cells(131 +
Target.Row,

1).Select
End Sub

Par contre, si tu y tiens, tu pourrais inclure dans tes
cellules des

rectangles
sans remplissage et sans trait et leur associer une macro
qui t'enverrait à

l'endroit désiré.

Serge



"Denys" a écrit
dans le message de

news: 175c01c3fbd6$02ec4e80$
Re-bonjour à tous,

Si en cellule D1 j'ai inscrit dedans le mot Bonjour, est-
il possible qu'en cliquant dans la cellule qu'Excel me
dirige en cellule A132 où le mot Bonjour y est aussi
inscrit?

Et aussi qu'en cliquant sur la cellule D2, qu'Excel me
conduise dans la colonne Axxx là où l'équivalent de ce qui
est incrit dans la cellule D2. Et ainsi de suite....

Est-ce un rêve? Ou c'est possible?

Merci

Denys


.



Avatar
garnote
Il serait prudent de commencer la macro par
On Error Resume Next
Entre autre pour prévoir le cas où un quelqu'un
sélectionnerait des Dx avec x > 3271.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Column = 4 Then Cells(131 + (Target.Row - 1) * 20, 1).Select
End Sub

Serge


"Denys" a écrit dans le message de
news: 176401c3fbe0$c67ef140$
Salut Serge,

Merci, la première fonctionne très bien, même en cliquant
dessus...Sans vouloir abuser (même si j'ai l'impression de
le faire), comment faire que pour chaque cellule que tu
cliques en colonne D, tu vas en colonne A plus 20 lignes...

Par exemple, si tu cliques sur D1, tu vas en A131. Si tu
cliques sur D2, tu vas à a131+20, soit A 151 etc...

Car il se rajoutera sans cesse des noms de projets en D....

Y a-t-il un moyen pour que je n'aie pas à récrire de code?

Merci encore...

Denys
-----Original Message-----
Salut Denys,

Si tu ne tiens pas vraiment au clic, tu pourrais utiliser
ceci :


Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

If (Target <> "" And Target.Column = 4) Then Cells(131 +
Target.Row,

1).Select
End Sub

Par contre, si tu y tiens, tu pourrais inclure dans tes
cellules des

rectangles
sans remplissage et sans trait et leur associer une macro
qui t'enverrait à

l'endroit désiré.

Serge



"Denys" a écrit
dans le message de

news: 175c01c3fbd6$02ec4e80$
Re-bonjour à tous,

Si en cellule D1 j'ai inscrit dedans le mot Bonjour, est-
il possible qu'en cliquant dans la cellule qu'Excel me
dirige en cellule A132 où le mot Bonjour y est aussi
inscrit?

Et aussi qu'en cliquant sur la cellule D2, qu'Excel me
conduise dans la colonne Axxx là où l'équivalent de ce qui
est incrit dans la cellule D2. Et ainsi de suite....

Est-ce un rêve? Ou c'est possible?

Merci

Denys


.



Avatar
Denys
Bonsoir Serge,

J'arrive à la maison, et déjà tu m'as répondu....

Merci beaucoup, ça m'aide vraiment...A bientôt

Denys


-----Message d'origine-----
Il serait prudent de commencer la macro par
On Error Resume Next
Entre autre pour prévoir le cas où un quelqu'un
sélectionnerait des Dx avec x > 3271.

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

On Error Resume Next
If Target.Column = 4 Then Cells(131 + (Target.Row - 1) *
20, 1).Select

End Sub

Serge


"Denys" a écrit
dans le message de

news: 176401c3fbe0$c67ef140$
Salut Serge,

Merci, la première fonctionne très bien, même en cliquant
dessus...Sans vouloir abuser (même si j'ai l'impression
de

le faire), comment faire que pour chaque cellule que tu
cliques en colonne D, tu vas en colonne A plus 20
lignes...


Par exemple, si tu cliques sur D1, tu vas en A131. Si tu
cliques sur D2, tu vas à a131+20, soit A 151 etc...

Car il se rajoutera sans cesse des noms de projets en
D....


Y a-t-il un moyen pour que je n'aie pas à récrire de
code?


Merci encore...

Denys
-----Original Message-----
Salut Denys,

Si tu ne tiens pas vraiment au clic, tu pourrais
utiliser


ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

If (Target <> "" And Target.Column = 4) Then Cells(131 +
Target.Row,

1).Select
End Sub

Par contre, si tu y tiens, tu pourrais inclure dans tes
cellules des

rectangles
sans remplissage et sans trait et leur associer une
macro


qui t'enverrait à
l'endroit désiré.

Serge



"Denys" a écrit
dans le message de

news: 175c01c3fbd6$02ec4e80$
Re-bonjour à tous,

Si en cellule D1 j'ai inscrit dedans le mot Bonjour,
est-


il possible qu'en cliquant dans la cellule qu'Excel me
dirige en cellule A132 où le mot Bonjour y est aussi
inscrit?

Et aussi qu'en cliquant sur la cellule D2, qu'Excel me
conduise dans la colonne Axxx là où l'équivalent de ce
qui


est incrit dans la cellule D2. Et ainsi de suite....

Est-ce un rêve? Ou c'est possible?

Merci

Denys


.




.