Ecrire sur deux feuilles

[maval]

Bonjour,

Voila j'ai 2 feuilles excel donc une se nomme "Genre" et l'autre "données".
Dans la feuille nommer "Données" il y a une liste de film avec toutes les données d'un film classé par catégorie de la colonne "B" à la colonne "M". Les deux colonnes qui nous concerne pour ce code et la colonne "B" qui sont les titres et la colonne "F" qui sont les genres.
J'aimerai que lorsque je rempli ma feuille de données et que je rentre dans la colonne "F" le genre c'est à dire "action, aventure, western...ect et le titre qui se trouve en colonne "B" sa ce copie dans la feuille nommer "Genre" et dans sa catégorie;
Exemple: si je rentre un film nommer "Duels" en colonne "B" et que dans la colonne "F" je met "Action j'aimerai que dans la feuille "Genre" je retrouve Duels dans la colonne "action"

Je vous remercie de votre aide

 

[Lolote83]

Re : Ecrire sur deux feuilles

Salut MAVAL,
Avec une formule sortie de je ne sais ou !!!
Attention, formule matricielle CTRL+MAJ+ENTREE
Est-ce OK ?
@+ Lolote83

 

[job75]

Re : Ecrire sur deux feuilles

Bonjour maval, Lolote83,

Avec ce code dans la feuille "Données" :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B,F:F]) Is Nothing Then Exit Sub
Dim t, ub&, rest(), i&, j As Variant, k&, maxi&
t = Me.UsedRange.Resize(, 6)
ub = UBound(t)
ReDim rest(1 To ub, 1 To 21)
With Sheets("Genre")
  For i = 2 To ub
    j = Application.Match(t(i, 6), .Rows(1), 0)
    If IsNumeric(j) Then
      For k = 1 To ub
        If rest(k, j) = "" Then
          rest(k, j) = t(i, 2)
          If k > maxi Then maxi = k
          Exit For
        End If
      Next
    End If
  Next
  If maxi Then
    .[A2].Resize(maxi, 21) = rest
    .[A2].Resize(maxi, 21).Borders.Weight = xlHairline
  End If
  .Range("A" & maxi + 2 & ":U" & Rows.Count).Delete xlUp
  .Columns.AutoFit 'ajustement largeur (facultatif)
End With
End Sub

La macro s'exécute quand on valide ou efface une cellule en colonne B ou F.

Fichier joint.

PS : faites attention à l'orthographe du nom des onglets...

A+

 

[maval]

Re : Ecrire sur deux feuilles

Bonjour lolote83, Job75,

Je vous remercie c'est Nickel

Je vous souhaite une très bonne journée