Re : Lien entre des cellules de feuilles différentes
Bonjour Eric,
En suivant tes conseils j'ai essayé de modifer mon code source:
c = Application.Match(HC_Selection.Controls("ListBox" & lb(m)).List(k), Feuil5.Rows(2), 0)
'Pour toutes les lignes de Sousfamille
For I = 0 To Subfunctions.ListCount - 1
'Si la ligne est sélectionnée
If Subfunctions.Selected(I) Then
'Avec la feuille indiquée en H10
With Sheets(HC_Selection.Controls("ListBox" & lb(m)).List(k))
'Pour toutes les lignes de cette feuille
For j = 3 To .[B65536].End(3).Row
Debug.Print Subfunctions.Column(1, I), Val(.Cells(j, 5))
'Si la colonne (1) de Sousfamille est = à la valeur de la ligne j de la colonne E (5)
If Subfunctions.Column(1, I) = Val(.Cells(j, 5)) Then
'On recherche la première cellule vide dans l'onglet Feuil5
l = Feuil5.Cells(Rows.Count, c).End(3)(2).Row
'On copie les données
Feuil5.Cells(l, c) = .Cells(j, 5)
Feuil5.Cells(l, c + 1) = .Cells(j, 2)
J'ai essayé de remplacer:
Feuil5.Cells(l, c) = .Cells(j, 5) (appelle les numéros des sous-fonctions)
par:
Feuil5.Cells(l, c).Value = Feuil3.Range("D1").Offset(j, 5).Value (apelle les noms des sous-fonctions)
mais cela ne marche pas. Cela me modifie mes numéros de sous-fonctions.
As-tu une idée?
Merci
Pumba