vba : la cellule selectionné doit pointer sur une référence

[miguelangelo]

Bonjour à tous,

je vous mets un fichier si joint

ce que j'aimerai reussir à faire, c'est que qu'elle que soit la cellule que je selectionne dans ce tableaux, que la référence c.offset() corresponde au numéro situé dans la 3e colonne.

par exemple :

si je selectionne la cellule a15, que ma macro aille pointer sur c15
si je selectionne la d22 que la macro pointe c22

merci à tous, et bon we...

 

[ROGER2327]

Re : vba : la cellule selectionné doit pointer sur une référence

Bonjour miguelangelo

Essayez ceci :

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Target, Range("A6:E36")) Is Nothing Then
      Application.EnableEvents = False
      Cells(Target.Cells(1, 1).Row, 3).Select
      Application.EnableEvents = True
   End If
End Sub[/B][/COLOR]

ROGER2327
#3776

Jeudi 12 Gidouille 137 (Sainte Confiture, dévote et Sainte Cliche, donatrice, SQ)
8 Messidor An CCXVIII
2010-W25-6T06:28:52Z

 

[miguelangelo]

Re : vba : la cellule selectionné doit pointer sur une référence

Bonjour,

merci pour votre réponse, mais j'ai du mal là ...
Pouvez vous svp me dire à quel niveau je dois copier la private sub.

dans les macros concernant l'onglet, la macro n'apparait.
est ce que je dois la mettre dans l'onglet thisworkbook ? si oui ne va t'elle pas affecter les autres onglets ?

si ma question est à l'ouest, désolé d'avance....

 

[ROGER2327]

Re : vba : la cellule selectionné doit pointer sur une référence

Re...

J'aurais dû le dire, la procédure est à placer dans la feuille Feuil1 de votre classeur.​

ROGER2327
#3777

Jeudi 12 Gidouille 137 (Sainte Confiture, dévote et Sainte Cliche, donatrice, SQ)
8 Messidor An CCXVIII
2010-W25-6T07:02:36Z

 

[miguelangelo]

Re : vba : la cellule selectionné doit pointer sur une référence

et je dois l'appeller via une autre macro ??

ex : sub toto()
application.run ("Worksheet_SelectionChange")
..

encore merci

 

[pierrejean]

Re : vba : la cellule selectionné doit pointer sur une référence

bonjour miguelangelo

Salut ROGER

En supposant avoir compris, vois si tu peux t'inspirer de ceci
En selectionnant une cellule dans ton tableau ,on declanche l'evenement Worksheet_SelectionChange qui appelle la macro Test qui elle affiche le contenu de la cellule même ligne , colonne E

 

[miguelangelo]

Re : vba : la cellule selectionné doit pointer sur une référence

non c'est bon
ca marche très bien...
en fait quelque soit la selection que je fais dans la zone, ca repart automatiquement sur la colonne voulu....


merci bcp

 

[miguelangelo]

Re : vba : la cellule selectionné doit pointer sur une référence

par contre, un probleme est apparu

dans le fichier plus haut...Lien supprimé la colonne de

a6 à a36 sont mis à jour par une autre macro (c)..
donc qd la macro pointe sur la cellule, ca me decalle tout....!!!
arrggghhhhh

y a t'il moyen pour que qd je fais jour la macro (c) que l'option de decallage soit desactivé ??

 

[ROGER2327]

Re : vba : la cellule selectionné doit pointer sur une référence

Re...

et je dois l'appeller via une autre macro ??

ex : sub toto()
application.run ("Worksheet_SelectionChange")
..

encore merci

Il n'y a pas à appeler cette procédure par une autre : le simple fait de sélectionner une cellule quelconque de la feuille Feuil1 la déclenche.
​

ROGER2327
#3778

Jeudi 12 Gidouille 137 (Sainte Confiture, dévote et Sainte Cliche, donatrice, SQ)
8 Messidor An CCXVIII
2010-W25-6T08:35:05Z

 

[miguelangelo]

Re : vba : la cellule selectionné doit pointer sur une référence

ok j'ai trouvé une parade, je fais les mise à jour dans une cellule au dessus de la zone qui s'auto met à jour....

Pourriez vous par contre m'aider pour, si je selectionne les cellules de a5 à a10 que cela les reporte à la colonne c5 à c10...

grand merci à vous tous...

 

[ROGER2327]

Re : vba : la cellule selectionné doit pointer sur une référence

Re...

par contre, un probleme est apparu

dans le fichier plus haut...Lien supprimé la colonne de

a6 à a36 sont mis à jour par une autre macro (c)..
donc qd la macro pointe sur la cellule, ca me decalle tout....!!!
arrggghhhhh

y a t'il moyen pour que qd je fais jour la macro (c) que l'option de decallage soit desactivé ??

Dans le classeur que vous citez, il n'y a pas de problème. Le problème doit apparaître dans un autre classeur : en le voyant, il serait probablement plus facile de vous aider.
Toutefois, pour empêcher le déclenchement de la procédure Worksheet_SelectionChange, on peut employer le code

[COLOR="DarkSlateGray"][B]      Application.EnableEvents = False
[/B][/COLOR]

Ne pas oublier de rétablir le fonctionnement "normal" en ajoutant

[COLOR="DarkSlateGray"][B]      Application.EnableEvents = True
[/B][/COLOR]

en fin de code.
​

ROGER2327
#3779

Jeudi 12 Gidouille 137 (Sainte Confiture, dévote et Sainte Cliche, donatrice, SQ)
8 Messidor An CCXVIII
2010-W25-6T08:43:14Z

_______________________
Bonjour, pierrjean. Une connexion capricieuse fait que je suis un peu à contretemps dans mes interventions...

 

[miguelangelo]

Re : vba : la cellule selectionné doit pointer sur une référence

Re...
Dans le classeur que vous citez, il n'y a pas de problème. Le problème doit apparaître dans un autre classeur : en le voyant, il serait probablement plus facile de vous aider.

le fichier est trop lourd, donc j'ai juste mis la partie pour permettre de visualiser mon probleme....

dans mon fichier origine, j'ai tous les mois de l'année ... donc j'ai adapté votre macro pour qu'elle s'applique à tous les mois.
et comme les années tournent, une macro pour que les mois soient mis à jour...en jour semaine et en dates...

d'ou ca bloquait..

brefffff.....

Pourriez vous par contre m'aider pour, si je selectionne les cellules de a5 à a10 que cela les reporte à la colonne c5 à c10...

 

[ROGER2327]

Re : vba : la cellule selectionné doit pointer sur une référence

Re...

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Address = "$A$5:$A$10" Then
      Range("C5:C10") = Range("A5:A10").Value
   Else
      If Not Intersect(Target, Range("A6:E36")) Is Nothing Then
         Application.EnableEvents = False
         Cells(Target.Cells(1, 1).Row, 3).Select
         Application.EnableEvents = True
      End If
   End If
End Sub[/B][/COLOR]

ROGER2327
#3781

Jeudi 12 Gidouille 137 (Sainte Confiture, dévote et Sainte Cliche, donatrice, SQ)
8 Messidor An CCXVIII
2010-W25-6T09:04:19Z

 

[miguelangelo]

Re : vba : la cellule selectionné doit pointer sur une référence

pardon Roger,
je me suis mal exprimé dans ma 2e demande.

en fait je voulais dire que si je selectionne par exemple les cellules a5 à a10, que ma selection se deplace vers c5 à c10.

pas de report de valeurs. en fait comme pour le 1er cas, si je selectionne la plage a5 à a10 que la selection se deplace à c5 à c10....

merci pour ta contribution...

 

[pierrejean]

Re : vba : la cellule selectionné doit pointer sur une référence

Re

Toujours en supposant avoir saisi (ce qui ne parait pas evident)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 x = 5 - Selection.Column
 Selection.Offset(0, x).Select
End Sub