Discussion :

[jipedici]

Bonjour à tous et merci d'avance,

Dans le cadre de mon projet de 2ème année, je cherche :

Lorsque je clique dans une colonne (entre la ligne 5 à 150), je veux copier la cellule ligne 4 de cette colonne et la coller en A1 par exemple.

Je débute dans ce domaine, j'ai acheté un guide du VBA mais celà ne m'a pas aidé plus que ça.

J'arrive à faire un certain nombre d'opération comme, copier, coller des cellules mais ça s'arrête là.

Merci de votre aide et conseils.


N'hésité pas

[Gorfael]

Salut jipedici et le forum
Pas d'adresse perso sur le forum!

Lorsque je clique dans une colonne (entre la ligne 5 à 150), je veux copier la cellule ligne 4 de cette colonne et la coller en A1 par exemple.

Pour pouvoir progresser, il faut analyser les réponses. Alors donne des informations précises (adresses, nom de feuille, etc.), ça te donnera une base pour décortiquer les codes qu'on te donnes
A+

[Qwazerty]

Salut et bienvenue
Désolé mais je ne répond pas par mail, ceci est un forum d'entraide les question ET les réponses doivent y figurer pour que d'autre personnes puissent effectuer des recherches.
Cela etant dit voila je pense ce que tu cherches

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row <= 150 And Target.Row >= 5 Then Range("A1") = Cells(Target.Row, 4)
End Sub

Et sur ce, bonne nuit a tous et toutes
++
Qwaz

[Krovax]

Juste une inversion dans le code de Qwaz
si j'ai bien compris c'est la ligne 4 de la colonne de la selection que tu veux copier

Code :

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

1
2
3
4
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row <= 150 And Target.Row >= 5 Then Range("A1") = Cells(4,Target.Column)
End Sub

Dans sa version il prenais la colonne 4 de la ligne de la selection

Remarque a 1h du matin on lui pardonnera facilement

[Qwazerty]

Salut
Oupss jolie rattrapage ^^, je devrais plus poster après 1h du mat ^^
pour la correction Krovax

++
Qwaz