XL 2019 formule de transfère

[viper68]

Bonjour,
Après des semaines de recherche, je ne trouve rien peut être que cela n'hexiste pas !
Sur ma première feuille excel j 'ai une liste de nom et j'aimerais en cliquant sur certains nom qu'il se retrouve automatiquement sur la feuille suivante dans des cases bien précise
Exemple dans la colonne agent je sélectionne agent 3 en cliquant et il se retrouve automatiquement dans la feuille 2 dans la colonne agent et si je clique plusieurs il se rajoute aussi
bien cordialement

 

[Phil69970]

Bonjour @viper68

Je te propose se fichier

Merci de ton retour

 

[viper68]

Bonjour @viper68

Je te propose se fichier

Merci de ton retour

Bonjour Phil69970
Super merci
je vais regarder ca et affinée
et surement revenir vers toi
merci

 

[mapomme]

Bonjour @viper68 🙂,

et si je clique plusieurs il se rajoute aussi

ça ne veut rien dire 😳 ! Développez svp.

 

[viper68]

Bonjour @viper68 🙂,

ça ne veut rien dire 😳 ! Développez svp.

Bonjour mapomme,

Quand je selectionne des cellules j'aimerais les copiées directement sur la feuille 2 dans les colonnes respectives et si je décoche une cellule qu'elle puisse s'enlever automatiquement
voilà

 

[Phil69970]

Re
Un bonjour à @mapomme que je salue

@viper68 dans cette version tu peux ajouter ou supprimer les noms de la feuille 2 en "cliquant/décliquant" sur le nom de la feuille 1

Donc
1 clic ==> le nom se grise s’inscrit dans la feuille 1

1 clic de nouveau sur le nom en gris le nom s’enlève de la feuille 2

Merci de ton retour

 

[vgendron]

Hello all

vu qu'on ne sait pas ce que tu veux faire des données recopiées dans la feuille 2
pourquoi pas tout simplement les données sous forme de TS et un segment pour selectionner les données souhaitées??

 

[mapomme]

Bonsoir @viper68🙂 , @Phil69970 😉, @vgendron😉,

La p'tite version de ma pomme.
Dans la feuille "Feuil1" la surbrillance est faite via une MFC.
Le code dans le module de la feuille "Feuil1" :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Range, xcell, ligne&, coul
   Set x = Intersect(Target, Columns("a:c"))
   If x Is Nothing Then Exit Sub
   Set x = Intersect(x.EntireRow, Rows("4:" & Rows.Count), Columns("a"))
   If x Is Nothing Then Exit Sub
   With Sheets("Feuil2")
      For Each xcell In x.Cells
         If xcell <> "" Then
            ligne = Application.IfError(Application.Match(xcell, .Columns("a:a"), 0), 0)
            If xcell.DisplayFormat.Interior.ColorIndex = xlColorIndexNone Then
               If ligne = 0 Then .Cells(Rows.Count, "a").End(xlUp).Offset(1).Resize(, 3) = xcell.Resize(, 3).Value
            Else
               If ligne > 0 Then .Cells(ligne, "a").Resize(, 3).Delete shift:=xlShiftUp
            End If
         End If
      Next xcell
   End With
End Sub

 

[viper68]

Bonjour

MERCI À TOUS

C'est bien la fonction que je cherchai je vais affiné mes tableaux
si ça bloque je reviens vers vous
Bravo les Rois du Excel