Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 un copier coller de plage cellules automatisé pour listing dynamique

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Formulatix
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

Formulatix

XLDnaute Nouveau
Bonjour,

Feuille test jointe pour exemple
La feuille aura pour but de gérer une liste de produits affectés par choix à des fournisseurs

Cellules de B7 à F7 = liste des produits issue d’un listing
1_Cellule A8 liste = sélection le fournisseur
2_Cellules de B8 à F8 = choix des produits affectés au fournisseur condition « 1 »
3_Cellules de B9 à F9 = calcul du rang de chaque produit retenu
4_Cellules de B11 à F11 = listing trié des produits retenus

Je bloque sur une procédure

Je sélectionne le fournisseur en cours de choix dans la cellule A11 (liste=A8)
Je souhaite que ce choix puisse se confirmer en A11 avec la ligne 11
Je reviens sur la cellule A8 pour sélectionner un autre fournisseur
Je refais les étapes 2 à 4
Je sélectionne le fournisseur en cours de choix dans la cellule A12 (liste=A8)
Je souhaite que ce choix puisse se confirmer en A12 avec la ligne 12

Macro obligatoire?

Si on peut s’en passer je préfèrerais

Merci de votre aide
 

Pièces jointes

Solution
OK !! je viens de comprendre

le problème : c'est DANS la macro

Adaptation ici:
VB: 
Sub Valider()
Dim tSaisie As ListObject
Dim tData As ListObject

Set tSaisie = ActiveSheet.ListObjects("t_Saisie")
Set tData = ActiveSheet.ListObjects("t_Bdd")

With tData
    .ListRows.Add
    LastLine = .ListRows.Count
    .DataBodyRange(LastLine, 1) = tSaisie.DataBodyRange(1, 1)
    k = 2
    For j = 2 To 102
        If tSaisie.DataBodyRange(1, j) = 1 Then
            .DataBodyRange(LastLine, k) = tSaisie.Range(1, j).Offset(-1, 0) 'on prend ce qu'il y a AU DESSUS de la table
            k = k + 1
        End If
    Next j
End With
End Sub
Trier par date Trier par votes
Bonjour

Je n'ai pas vraiment compris ce que tu veux faire...

ligne 7 = liste des produits ==> ca ne devrait pas bouger
ligne8 et 9 ==> pour saisir une nouvelle entrée..?

lignes 11 12 13 ...... c'est "l'enregistrement " des nouvelles entrées au fur et à mesure??
 
Vote positif 0 Vote négatif
Bonjour vgendron,

Dsl pour ce retour tardif
Grace à ton aide j’ai pu avancer sur mon projet
Par contre je suis largué sur la programmation macros, ça fait bien 20 ans que je n’en ai pas refait.

Mon second problème est donc le suivant
Dans la feuille « Gestion listes », les listes des produits et fournisseurs évoluent en permanence (fournisseurs en H et produits en R)
Dans feuille « Affectation », je n’ai pas de problèmes pour le fournisseur que je dois sélectionner en liste déroulante $A$2 automatiquement mise à jour depuis « Gestion listes »H.

Par contre la liste des produits ne peut pas être récupérée automatiquement depuis « Gestion listes »R en entête du tableau « t_Saisie » (formules non autorisées sur entête tableau)

J’ai bien essayé de modifier le type de mise forme du tableau « t_Saisie » pour disposer d’une plage de cellules à fonctions (ex : ='Gestion listes'!R2) et / ou la macro

Dans ces cas l’export que j’arrive à obtenir dans « t_Bdd » correspond à $A$2 et valeurs 1 de « t_Saisie »

Pour la date en $B$1 j’ai bricolé une valeur confirmée par 1 en $B$2.
La position de la cellule saisie date n'est pas figée dans la mesure ou elle reste contiguë à la cellule sélection du fournisseur
 

Pièces jointes

Vote positif 0 Vote négatif
euh.. je ne vois pas de quoi tu parles..
la SEULE chose que j'ai changée: c'est supprimer la ligne d'entete de la table t_Saisie et mis une formule dans la ligne 1

le reste. je n'y ai pas touché
 
Vote positif 0 Vote négatif
OK !! je viens de comprendre

le problème : c'est DANS la macro

Adaptation ici:
VB: 
Sub Valider()
Dim tSaisie As ListObject
Dim tData As ListObject

Set tSaisie = ActiveSheet.ListObjects("t_Saisie")
Set tData = ActiveSheet.ListObjects("t_Bdd")

With tData
    .ListRows.Add
    LastLine = .ListRows.Count
    .DataBodyRange(LastLine, 1) = tSaisie.DataBodyRange(1, 1)
    k = 2
    For j = 2 To 102
        If tSaisie.DataBodyRange(1, j) = 1 Then
            .DataBodyRange(LastLine, k) = tSaisie.Range(1, j).Offset(-1, 0) 'on prend ce qu'il y a AU DESSUS de la table
            k = k + 1
        End If
    Next j
End With
End Sub
 
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
182
sylvanu
T
  • Question Question
XL 2013 Colonne dynamique en fonction de choix d'une liste déroulante
Réponses
5
Affichages
621
JHA
J
C
  • Résolu(e)
XL 2016 Propriété pour déterminer si la sélection correspond à une plage de cellules
Réponses
2
Affichages
83
crocrocro
C
M
  • Question Question
XL 2021 Rechercher dans une matrice le texte d'une cellule et copier les 10 lignes situées en dessous de ce texte retrouvé
Réponses
2
Affichages
386
JHA
J
D
  • Question Question
XL 2016 Une Zone de Liste pour plusieurs cellules.
Réponses
7
Affichages
215
duduche62
D
W
  • Résolu(e)
XL 2016 Ordonner une cellule ou un pavé de cellules contenant des chr(10)
Réponses
5
Affichages
543
Webperegrino
W
  • Résolu(e)
Autres Tests de diverses solution pour lister dans un dialog perso des fichiers en filtrant par expression et extension
10 11 12
Réponses
175
Affichages
16 K
patricktoulon
C
  • Question Question
Microsoft 365 Créer un tableau dans une seconde feuille a partir de certains éléments d'une première feuille
Réponses
8
Affichages
1 K
cethan
C
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
327
zendb
Z
D
  • Question Question
XL 2016 VBA - Copier/coller valeur d'une cellule, sur une plage de cellule données.
2 3
Réponses
34
Affichages
2 K
DaONE
D
P
  • Question Question
XL 2021 Code VBA pour copier coller des données de cellules d'une feuille a une autre
Réponses
4
Affichages
622
phoceenjo
P
J
  • Résolu(e)
XL 2019 Détection de texte dans une Cellule pour le Copier et Coller dans un autre tableau
2 3
Réponses
40
Affichages
1 K
Phil69970
C
  • Résolu(e)
Copier/Masquer des lignes de couleur pour alimenter un tableau
Réponses
9
Affichages
576
vgendron
L
  • Résolu(e)
Microsoft 365 Envoyer un mail avec un copier/coller de cellules
Réponses
10
Affichages
1 K
LeLigérien
L
E
  • Question Question
Microsoft 365 Boite de dialogue qui s'affiche quand cellules restent vides
Réponses
6
Affichages
521
Erakmur
E
Z
  • Question Question
XL 2016 Demande de formule pour copier, déplacer et coller
Réponses
2
Affichages
540
zegmanour
Z
M
  • Question Question
XL 2021 COPIER valeur d'une cellule pour constituer un tableau de résultats
Réponses
13
Affichages
379
matlatarte
M
J
  • Question Question
Microsoft 365 affiché une valeur texte dans un cellule
Réponses
1
Affichages
714
Gen Rose
S
  • Résolu(e)
Microsoft 365 VBA pour copier/coller une plage de cellule dans un autre onglet en fonction de la date
Réponses
8
Affichages
1 K
Sylvain. B
S
C
  • Question Question
XL 2016 Commentaires avec RollOver pour liste aléatoire...
Réponses
6
Affichages
579
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…