Discussion :

[rihab92]

Bonsoir ,

SVP si quelqu'un a une idée sur comment réaliser un code efficace pour répondre à cette question là :

Je veux afficher le nom du manager en se basant sur le choix réalisé dans la liste déroulante de la feuille 1

Le code que j'ai essayé de faire n'est pas du tout efficace vu que je suis débutante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
For Each v In Sheets("Feuil2").Range("C2:C5")
 If v = Sheets("Feuil1").Range("G2").Value Then
 Sheets("Feuil1").Range("E4") = Sheets("Feuil2").Range("D2")
 End If
 Next v
 For Each y In Sheets("Feuil2").Range("C6:C8")
 If y = Sheets("Feuil1").Range("G2").Value Then
 Sheets("Feuil1").Range("E4") = Sheets("Feuil2").Range("D6")
 End If
 Next y
 For Each Z In Sheets("Feuil2").Range("C9:C12")
 If Z = Sheets("Feuil1").Range("G2").Value Then
 Sheets("Feuil1").Range("E4") = Sheets("Feuil2").Range("D7")
 End If
 Next Z
End Sub

[SfJ5Rpw8]

Bonsoir,

est-tu vraiment obligé d'utiliser des cellules fusionnées .. pourquoi ne pas répéter le nom du manager sur chacune des lignes concernées, cela simplifierais grandement les choses ...

Cdt.

[gnain]

Cela fera ton bonheur
mettre ce code dans le module de la feuil1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Address = "$G$2" Then 'G2 est la liste
      For i = 2 To Worksheets("feuil2").Range("C" & Rows.Count).End(xlUp).Row
        If Cells(2, 7).Value = Worksheets("feuil2").Cells(i, 3).Value Then
            Cells(4, 5).Value = Worksheets("feuil2").Range("D" & i).MergeArea.Cells(1, 1).Value 'récupère la valeur de la cellule fusionner
            Exit For
        End If
      Next
    End If
 
End Sub

[rihab92]

gnain , comment faire SVP dans le cas où on a 3 feuilles c'est comme si la liste est divisée?

Feuille1 afficher Julien et Robet
Feuille 2 afficher Nina

Feuille 3 le tableau complet ?

[gnain]

Il faut ce code dans le module de la feuil1 et la feuil2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Address = "$G$2" Then 'G2 est la liste
      For i = 2 To Worksheets("feuil3").Range("C" & Rows.Count).End(xlUp).Row
        If Cells(2, 7).Value = Worksheets("feuil3").Cells(i, 3).Value Then
            Cells(4, 5).Value = Worksheets("feuil3").Range("D" & i).MergeArea.Cells(1, 1).Value 'récupère la valeur de la cellule fusionner
            Exit For
        End If
      Next
    End If
 
End Sub

[rihab92]

Saluuuut gnain,

le problème c'est que dans les mêmes feuilles 1 et 2 j'ai un autre code nommé Private sub worksheet_change du coup on m'affiche ce message

que faire ?