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...

 

[miguelangelo]

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

merci pierrejean pour ta réponse,

euh....

je pensais pas avoir autant de difficultés à m'exprimer ...
en fait, dans la zone a2:f40, quelque soit la selection que j'effectue, que cette selection se deplace meme ligne, colonne c.

donc :si je selectionne range("b3;b10") que la selection (pas les valeurs) se deplace sur la colonne c range("c3;c10"), memes lignes...

merci à tous

 

[ROGER2327]

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

Re...

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...

J'avoue que j'ai un peu de mal à suivre. Essayons donc de déplacer la sélection et non de reporter les valeurs...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Target, Range("A6:E36")) Is Nothing Then
      Application.EnableEvents = False
      Intersect(Target.EntireRow, Range("C6:C36")).Select
      Application.EnableEvents = True
   End If
End Sub

ROGER2327
#3783

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

__________________
Re-bonjour pierrejean.
J'ai décidément bien du mal à suivre en temps réel...

 

[pierrejean]

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

Re

Re Salut ROGER

Sacré challenge que de comprendre la question
Néanmoins il y avait une erreur dans ma derniere proposition

voila le correctif

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set isect = Application.Intersect(Range("A2:F40"), Target)
If Not isect Is Nothing Then
 x = 3 - Selection.Column
 Selection.Offset(0, x).Select
End If
End Sub

 

[ROGER2327]

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

Re...

Oui, pas simple !
Du coup, je viens de m'apercevoir que la zone utile est maintenant A2:F40.
Je corrige :

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Target, Range("A2:F40")) Is Nothing Then
      Application.EnableEvents = False
      Intersect(Target.EntireRow, Range("C2:C40")).Select
      Application.EnableEvents = True
   End If
End Sub[/B][/COLOR]

ROGER2327
#3784

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

 

[miguelangelo]

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

euh...

pierrejean,

canal 55 ondes courtes ... ok 5/5

alors avec mes mots de novice je vais essayer de t'expliquer ce que j'aimerai essayer de faire...
dans le Lien supprimé joint plus haut,

en fait, roger m'a dépanner d'une macro qui me permet, quelque soit la cellule que je selectionne dans un tableau, que la selection se deplace en colonne C meme ligne.
ex : si je selectionne a2, la selection se deplace en c2 (aucun traitment de valeur), juste la selection
si je clique sur e26, ca part sur c26.

mon probleme maintenant est que si je selectionne un ensemble de cellule qui se suivent, b2 à b10. je voudrais que la selection se deplace en c2 à c10.
(tjs pas de notion de valeurs) juste la selection.

que dire, à part Merci !!

 

[miguelangelo]

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

j'ai repondu trop tard par rapport à vos réponses.

je reteste...

 

[miguelangelo]

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

je vous offre le resto ???
je vous envoi une pizza depuis chez moi...
une bouteille peut etre !!!

Merci à vous deux.merci forum .

les 2 solutions fonctionnent parfaitement...

 

[Gorfael]

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

Salut à tous
Je suis pas sûr de comprendre le problème, donc juste une réflexion.
- Faire un agenda par macro,alors qu'une simple application de format/MFC suffirait...
- Pourquoi sélectionner une plage ?

Enfin, pour ce que ça vaut un exemple : en A1 une date ou mois/année
Comme je ne sais pas ce que tu veux faire, je n'ai pas approfondi (gestion W-E et jours fériés))
A+

 

[job75]

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

Bonjour miguelangelo, salut pierrejean, Roger, Gorfael,

Une variante de la solution de pierrejean :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Application.Intersect(Range("A2:F40"), Target)
If Not Target Is Nothing Then Intersect([COLOR="Red"]Target.EntireRow[/COLOR], Columns("C")).Select
End Sub

A+

 

[miguelangelo]

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

gestion congés rtt arret maladie pour tout un service avec historique et gestion des demandes par email.

c'est mon challenge de la période...

merci pour tout

 

[job75]

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

Re,

Si l'on veut toujours reporter la sélection en colonne C quand on sélectionne dans un tableau, modifier ainsi :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Application.Intersect(Range("[COLOR="Red"]tableau[/COLOR]"), Target)
If Not Target Is Nothing Then Intersect(Target.EntireRow, Columns("C")).Select
End Sub

"tableau" étant le nom donné au tableau (menu Insertion-Nom).

A+