Résolu-Conception d'une macro - déplacer en transposé des données brut

  • Initiateur de la discussion Initiateur de la discussion QI dhuitre
  • 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 !

QI dhuitre

XLDnaute Junior
Bonjour, s'il y a une personne qui s'ennuie et qui a des connaissances en vba j'ai une mission pour elle.

Je copie-colle des données d'un site internet dans la feuille "import site internet".
Certaines lignes sont fusionnées et d'autres non

Les lignes fusionnées le sont toujours par groupe de 5 car dans la dernière colonne, pour une même date, j'ai 5 valeurs. Et ses 5 valeurs, il faut les déplacer en transposé dans les colonnes adjacentes...

Dans le fichier il y a 3 onglets, l'onglet "import internet" qui permet de voir comment sont les données importées.
un onglet "explication" et un onglet "résultat souhaité".

Merci à l'âme généreuse qui prendra le temps d'étudier ma demande.
Ca ne presse pas à la minute, je vais faire environ un import par mois.

Cordialement
 

Pièces jointes

Dernière édition:
Re : Résolu-Conception d'une macro - déplacer en transposé des données brut

idéalement il ne restera plus qu'à trouver une solution pour actualiser de façon dynamique le TCD mais c'est pas important, en deux trois jours vous êtes allé bien plus loin que je ne me l'attendais c'est déjà beaucoup pour moi (jusqu'à présent, j'utilisais une méthode assez archaïque).

Danke Job75 🙂
 
Re : Résolu-Conception d'une macro - déplacer en transposé des données brut

Re,

Merci à vous, allez un petit digestif.

Pour éviter un double transfert en feuille "All" voici un garde-fou :

Code:
'---------
  .Activate
  Application.ScreenUpdating = True
  '---transfert en feuille "All"---
  If Application.CountIf(Feuil2.[A:A], .[A2]) Then _
    If MsgBox("Le " & .[A2] & " existe déjà en feuille '" & Feuil2.Name & _
      "', voulez-vous quand même y transférer les données de la feuille '" _
        & .Name & "' ?", 4) = 7 Then Exit Sub
  .Rows(1).Copy Feuil2.[A1]
  .UsedRange.Offset(1).Copy Feuil2.Range("A" & Rows.Count).End(xlUp)(2)
  Feuil2.Cells.Sort Feuil2.[A1], xlDescending, Header:=xlYes 'tri décroissant
Fichier (1 bis).

Bonne fin de soirée.
 

Pièces jointes

- 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

Retour