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

XL 2016 Gestion de liste transposée dans une autre feuille avec décalage d'une colonne et exclusion de certains éléments

W

Webperegrino

XLDnaute Impliqué
Supporter XLD
Le Forum,

Dans le fichier ci-annexé, j’essaie de transposer correctement une liste de prénoms de la feuille « Liste » vers la ligne n° 4 de la feuille « Gestion_&_Placemt ».

Il faut aussi réussir à exclure certains prénoms dans le résultat.

Pour cela j'ai essayé avec trois compositions de lignes VBA (trois boutons d'activation en 2ème feuille).

Pour continuer à exploiter cette feuille, l’objectif est de décaler les prénoms d’une colonne sur la ligne 4 et à partir de L4.
Seule les calculs du Bouton « 3 – MAJ Prénoms » semblent me produire ce que je désire, mais à peu près :
- j'ai en effet des prénoms manquants en fin de la transposition (Zina notamment)
- la fin du transpose de la liste est désastreux (Yves se centralise sur toutes les cellules restantes, en alignement centré sur plus de deux colonnes)

Pouvez-vous jeter un coup d’œil sur ces lignes VBA pour me signaler les erreurs, les manques et m’expliquer comment faire fonctionner plus intelligemment tant la méthode de départ (Bouton vert n° 1) que réussir le bon fonctionnement du bouton n° 3 ?

Merci pour votre aide

Webperegrino
 
Solution
Re,

Vos trois boutons font la meme chose donc pourquoi 3 ou 2


J'ai cree un fichier car il y avait un serieux probleme avec l'affichage du dernier prenom ZINA
Visible entre deux colonnes apres l'avant dernier prenom mais ecrit au bon endroit

Vous remettrez les couleurs sur la ligne si vous decidez d'utiliser le fichier.
Avec ce fichier pas besoin d'astuce pour le dernier prenom

Pour votre dernier fichier, bouton 2 le code pour le test
VB: 
lgLst = 3
    col = 12
    While Sheets("Liste").Cells(lgLst, 2).Value <> "" And (Sheets("Liste").Cells(lgLst, 2).Value <> "ALAIN·LL" Or Sheets("Liste").Cells(lgLst, 2).Value <> "CHRISTINE" Or dest <> "LOÏC" Or Sheets("Liste").Cells(lgLst, 2).Value <> "NICOLE" Or Sheets("Liste").Cells(lgLst...
Trier par date Trier par votes
W

Webperegrino

XLDnaute Impliqué
Supporter XLD
Le Forum,
Bonjour Oneida,
Merci d'intervenir.
Oui, c'est de ma faute : au dernier moment j'avais renommé le nom de la feuille sans passer sur les lignes de commandes VBA.
Je corrige cela et replace le fichier en lieu et place en #1 (et ici), mais je doute que cela fonctionne même avec cette correction...

... en effet, avec cette correction :
- Bouton vert : la liste s'arrête à Yves (qui prend anormalement 4 colonnes), et Zina n'apparaît pas en bout de liste reportée. mais avantage : les prénoms non désirés ont bien été retirés dans la liste de destination
- Bouton n° 2 : ça galère sérieusement : je suis obligé de faire un Ctrl + Pause pour en sortir et les prénoms non désirés restent dans la liste reportée
- Bouton 3 : m^me effet que le bouton vert Yves prend 4 cellules au lieu de deux, Zina n'apparaît pas en bout de liste reportée.
Webperegrino
 

Pièces jointes

  • Gestion et Placements.xlsm
    95.7 KB · Affichages: 7
Vote positif 0 Vote négatif

Oneida

XLDnaute Impliqué
Re,
mais je doute que cela fonctionne
Ben oui, mais y a deja a chercher donc une erreur n'arrange pas les chose


Correction, avais pas pris le bon fichier mais des similitudes

Bouton vert: Zina apparait en FZ
Bouton 2: tester si cellule non vide
VB: 
    While Sheets("Liste").Cells(lgLst, 2).Value <> "" And (Sheets("Liste").Cells(lgLst, 2).Value <> "ALAIN·LL" Or Sheets("Liste").Cells(lgLst, 2).Value <> "CHRISTINE" Or dest <> "LOÏC" Or Sheets("Liste").Cells(lgLst, 2).Value <> "NICOLE" Or Sheets("Liste").Cells(lgLst, 2).Value <> "VINCENT")

Bouton 3, je regarde
 
Dernière édition:
Vote positif 0 Vote négatif
W

Webperegrino

XLDnaute Impliqué
Supporter XLD
Oneida,
Bouton vert : oui en effet Zina est en FZ (182)
Je regarde si je peux appliquer la façon du n° 3 pour exclure Alain·LL... Vincent de la liste finale.
Bouton 2 avec ta ligne rectificative : à nouveau Ctrl+Pause pour sortir...
Je continue mes recherches et corrections de mon côté.
 
Vote positif 0 Vote négatif

Oneida

XLDnaute Impliqué
Votre dernier fichier modifie pour bouton 2 avec la ligne que je vous ai mise

Ca panouille quand meme avec les modifs
Je continue en reprenant le fichier de depart
 

Pièces jointes

  • Gestion et Placements.xlsm
    97 KB · Affichages: 2
Dernière édition:
Vote positif 0 Vote négatif
W

Webperegrino

XLDnaute Impliqué
Supporter XLD
Le Forum,
Oneida,
Pourquoi toujours cette anomalie en cellule CT4 (colonne 98), avec un "ajout parasite de ZZ et ZZZ" après ZINA dans la liste...
... et toujours pas de "ZINA" dans le reporté, entre YVES et ZZ.
C'est vraiment curieux !

J'ai appliqué une astuce de nettoyage de bout de plage en ligne 4 pour placer les derniers prénoms correctement (voir le vba des deux seuls boutons conservés, car avec le dernier bouton abandonné ça patauge sérieusement dans la macro qui tourne, et tourne...).

Ci-joint fichier évolué.
 

Pièces jointes

  • Gestion et Placements(1).xlsm
    57.4 KB · Affichages: 3
Vote positif 0 Vote négatif

Oneida

XLDnaute Impliqué
Re,

Vos trois boutons font la meme chose donc pourquoi 3 ou 2


J'ai cree un fichier car il y avait un serieux probleme avec l'affichage du dernier prenom ZINA
Visible entre deux colonnes apres l'avant dernier prenom mais ecrit au bon endroit

Vous remettrez les couleurs sur la ligne si vous decidez d'utiliser le fichier.
Avec ce fichier pas besoin d'astuce pour le dernier prenom

Pour votre dernier fichier, bouton 2 le code pour le test
VB: 
lgLst = 3
    col = 12
    While Sheets("Liste").Cells(lgLst, 2).Value <> "" And (Sheets("Liste").Cells(lgLst, 2).Value <> "ALAIN·LL" Or Sheets("Liste").Cells(lgLst, 2).Value <> "CHRISTINE" Or dest <> "LOÏC" Or Sheets("Liste").Cells(lgLst, 2).Value <> "NICOLE" Or Sheets("Liste").Cells(lgLst, 2).Value <> "VINCENT")
        Cells(4, col) = UCase(Sheets("Liste").Cells(lgLst, 2).Value)
        col = col + 2
        lgLst = lgLst + 1
    Wend
 

Pièces jointes

  • Gestion_Dispo.xlsm
    33.9 KB · Affichages: 6
Dernière édition:
Vote positif 0 Vote négatif
Solution
W

Webperegrino

XLDnaute Impliqué
Supporter XLD
Bonsoir Oneida,

Vos trois boutons font la même chose donc pourquoi 3 ou 2 :
J'avais différentes approches de lignes de vba piochées ici ou là, ou ai créé certaines, avec une vérification par mise en place de ces trois boutons.
Mais au final, bien sûr, je n'aurai qu'un bouton avec les lignes qui fonctionneront le mieux et le plus vite.

Merci pour cette proposition de fichier rectifié #8 : je vais l'étudier d'ici demain matin et reviens vers vous.
Merci encore pour votre aide et votre trouvaille.
Bonne soirée,
Webperegrino
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

C
  • 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
C
  • Résolu(e)
XL 2019 Copier et renommer (en même temps) des feuilles à partir d'une liste de noms dans un colonne
Réponses
13
Affichages
1 K
Clemee61
C
E
  • Question
Power Query Cherche une liste de mots dans une feuille et ajuter une colonne true/false si existe ou pas
Réponses
2
Affichages
567
sylvanu
M
  • Résolu(e)
Microsoft 365 Récupérer données d'une autre feuille en fonction de ma selection dans une liste
Réponses
2
Affichages
795
minamas
M
R
  • Question
XL 2019 Objet : Copier/coller des valeurs d'une plage de cellules colorées avec MFC dans une deuxième feuille
2
Réponses
15
Affichages
2 K
Rom1-51
R
  • Question
XL 2019 AUTOMATISATION DASHBOARD - Somme avec deux conditions (en liste déroulante) à rattacher avec des datas dans une autre feuille x/y
Réponses
5
Affichages
1 K
De Castro
S
  • Question
Microsoft 365 Protéger certains éléments d'une feuille
Réponses
1
Affichages
868
jmfmarques
J
F
  • Résolu(e)
XL 2019 copie une série de lignes n fois dans une autre feuille selon valeur d'une case de la ligne
Réponses
10
Affichages
2 K
fpinheiro
F
  • Question
Comparaison de colonnes avec extraction des doublons et une autre valeur sur une nouvelle feuille
Réponses
11
Affichages
2 K
Amilo
A
B
  • Question
Comment copier par une macro une colonne et coller dans le tableau d'une autre feuille
Réponses
10
Affichages
4 K
bidouill
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…