Transfert auto

[boulou]

Bonjour,

Ya t il une solution pour que,

Toute cellule sur laquelle je click dans une plage N1:T54 se transfére automatiquement avec la cellule immédatement à sa droite dans F22 pour la premiére et F23 pour la seconde ?

Merci pour votre concours.

 

[Pierrot93]

Re : Transfert auto

Bonjour,

essaye ceci si j'ai bien compris... A utiliser dans le module de la feuille concernée...

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("N1:T54")) Is Nothing Then
    Range("F22:F23").Value = Application.Transpose(Target.Resize(, 2).Value)
End If
End Sub

bonne journée
@+

 

[boulou]

Re : Transfert auto

Bonjour.
Ai dû m'absenter hier et donc impossible de te remercier.
Je comprends le sens de ton code mais ne vois pas comment l'intégrer.

Je te joins mon fichier test avec des données "bidons".

Peux tu me le positionner.
Merci pour ton aide et bonne journée.

 

[Pierrot93]

Re : Transfert auto

Bonjour,

ton fichier n'est pas passé... doit être inférieur à 50k....

 

[MJ13]

Re : Transfert auto

Bonjour Boulou, Pierrot

ton fichier n'est pas passé... doit être inférieur à 50k...

AH Pierrot , faut suivre, maintenant, on peut aller jusque 293 ko .

Bon c'est vrai que c'est pas une raison pour mettre des fichiers trop compliqués pour qu'on s'y perde .

 

[Paritec]

Re : Transfert auto

bonjour Michel, Pierrot
je ne savais pas que c'était déjà opérationnel, j'avais lu aussi le post de David, mais moi aussi je pensais que la validité serait dans quelque temps (enfin il faut dire que je ne viens pas souvent sur XLD en ce moment)
enfin merci Michel
a+
papou

 

[Pierrot93]

Re : Transfert auto

Re, bonjour Michel, Papou

Aarf, pensais pas que c'était déjà opérationnel.... merci Michel pour le tuyau....

 

[boulou]

Re : Transfert auto

Toute cellule sur laquelle je click dans une plage N1:T54 se transfére automatiquement avec la cellule immédatement à sa droite dans F22 pour la premiére et F23 pour la seconde ?
__________________

PRECISION : Je ne veux pas transferer 2 fois la même valeur en F22 et F23 mais par exemple la cellule N24 en F22 et O24 en F23
__________________

Re obligé de m'absenter ce matin. Toutes mes excuses.

Le fichier annexe devrait à présent passer.

Merci pour ton aide.

 

[Pierrot93]

Re : Transfert auto

Re,

dans ta question tu précisais F22 et F23, hors maintenant tu veux G13 H13, dans ce cas plus besoin de transposition.... d'ou l'importance d'être précis...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("N1:T54")) Is Nothing Then
    Range("G13:H13").Value = Target.Resize(, 2).Value
End If
End Sub