Affichage de valeur d'une cellule

Bonjour,

Avec une petite macro (de débutant) j'ai réussi à faire afficher dans une cellule la valeur d'une autre cellule activée et choisie parmi un ensemble de valeurs proposées (valeur allant de 0 à 8). Je souhaiterais désormais pouvoir restreindre l'affichage concernant une plage précise car cela s'applique à toutes les cellules de la feuille,

Puis, dans un 2ème temps, reproduire cette fonctionnalité sur une autre ligne.

L'idée générale étant la possibilité pour chaque ligne d'activer une valeur précise avec son affichage dans une même colonne.

Je n'ai pas l'impression d'avoir été clair, je joins mon fichier test.

Si quelqu'un peut me venir en aide.

Merci d'avance

Michael73

bonjour,

tu peux ajouter un test qui vérifie si la cellule sélectionnée se trouve dans la plage qui t'intéresse.

ainsi

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("B4:J5")) Is Nothing Then Exit Sub
Cells(4, 11).Value = ActiveCell.Value

End Sub

Super, cela marche.

Je souhaite maintenant pouvoir appliquer cette procédure pour chaque ligne de données sachant que dans mon fichier final, je vais avoir besoin d'une trentaine de lignes à gérer. A part reproduire la même commande par ligne, je ne sais pas s'il y a une programmation plus appropriée ?

Merci encore pour votre aide

Michael

Bonjour,

pas sûr d'avoir tout compris, mais essaie ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("B4:J33")) Is Nothing Then Exit Sub
Cells(target.row, 11).Value = ActiveCell.Value

End Sub

C'est tout à fait cela.

Merci infiniment pour l'aide apportée.

Michael