Problème pour élargir une macro dans une même feuille

Bonjour,

Avec l'aide d'un membre du site, j'ai pu arriver à ce que je voulais c'est à dire lorsque que l'on active une cellule pour chaque ligne parmi une plage donnée que j'ai appelé "critère 1", sa valeur s'affiche dans une colonne "affichage 1". Mon problème est que je n'arrive pas à modifier correctement le code pour que cette fonction s'applique de la même façon pour une deuxième plage de cellules ("critère 2") pour un affichage dans une colonne "affichage 2", dans la même feuille.

Je joins mon fichier test pour mieux comprendre.

Si quelqu'un peut m'aider. Merci d'avance.

Michael73

Bonjour

Essaie en modifiant ainsi ton code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Target, Range("B4:J33")) Is Nothing Then
        Cells(Target.Row, 11).Value = ActiveCell.Value
    ElseIf Not Intersect(Target, Range("L4:O33")) Is Nothing Then
        Cells(Target.Row, "P").Value = ActiveCell.Value
    End If
End Sub

Bye !

Bonsoir,

Cela marche très bien, merci infiniment. Je n'étais pas très loin mais je n'ai pas encore intégré toutes les subtilités pour les codes !

Merci encore.

Bien cordialement

Michael73