Lien entre des cellules de feuilles différentes

Re : Lien entre des cellules de feuilles différentes

Bonjour
je n'ai pas fait le tour de tes macros, pads le courage aujourd'hui 🙄

soit tu ajoutes des colonnes :tu gardes le numéro et à côté tu écris :


soit dans ton code, au lieu d'écrire le numéro tu utilises un code du style

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

Re : Lien entre des cellules de feuilles différentes

Re

pas testé mais si
.Cells(j, 5) est le numéro de sousfonction, je verrais plutôt

Feuil5.Cells(l, c).Value = Feuil3.Range("D1").Offset(.Cells(j, 5), 0).Value 'décalage en ligne, reste sur colonne D

Re : Lien entre des cellules de feuilles différentes

Re,

C'est parfait, ca marche niquel. Merci beaucoup Eric !

Pumba