VBA need help

StagiaiireVannes

XLDnaute Nouveau
Holà !
I neeeeeed your help :)
Voila je vous envoie mon fichier pour que vous compreniez. ^^

J'ai 100 variables donc pas de tableau croisé dynamique.
J'aimerais une macro qui prend dans la colonne A "très satisfait" et qui colonne dans la feuille 2 tous les commentaires associés, et qui répète cette manipulation avec les 5 autres modalités et qui les colles à la suite.
Sur le fichier excel j'ai mis le résultat que j'aimerais .

Cordialement :)
 

Pièces jointes

  • extraiiit.xlsx
    17.9 KB · Affichages: 33

vgendron

XLDnaute Barbatruc
Hello

je n'ai pas la police Futura... chez moi. donc essai ceci
à ajouter à la fin de la macro
VB:
' code précédent 
    Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
    Sheets("Feuil1").Activate
    Cells.Select
    With Selection.Font
        .Name = "Futura BK-BT"
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
        .Color = RGB(28, 37, 108)
    End With
'fin du code précédent
Application.ScreenUpdating = True
end sub
 

StagiaiireVannes

XLDnaute Nouveau
Désolé, j'ai eu un problème, il m'était impossible d'ouvrir cette conversation ce matin c'est pourquoi j'en ai créer une nouvelle, mais je n'arrive pas a la supprimer :/

Mon problème que j'ai sur les colonnes cest que avec la macro que tu m'as réalisé, les colonnes ne se colle pas directement la colonne mais elle se colle très loin, genre dans les lignes 500. Alors que j'aimerais qu'elle soit à la suite :)



Merci et Encore désolé. ;)
 

Pièces jointes

  • Note_points fort_probleme.xlsm
    97.9 KB · Affichages: 35

vgendron

XLDnaute Barbatruc
Désolé
je ne comprend pas ton problème
Dans le fichier que tu viens de joindre, quand je lance la macro,
les colonnes AB et CD de la feuille 1 sont bien mises les unes en dessous des autres dans la feuille 3

avec juste une ligne entre les différents "points forts"

où vois tu que ca colle à la ligne 500 (ou plus) ?
 

StagiaiireVannes

XLDnaute Nouveau
Voilà les photos pour comprendren
avant le lancement des données y'a 42 ligne et quand je lance aussi et par exemple j'ai fais un filtre sur accès "Données" et vous voyez les colonnes C-D ce sont collé dans les lignes 100 000 et E-F dans les 214 000
 

Pièces jointes

  • données.PNG
    données.PNG
    6.5 KB · Affichages: 20
  • Données_avant_lancement.PNG
    Données_avant_lancement.PNG
    18.3 KB · Affichages: 17
  • apres_lancement.PNG
    apres_lancement.PNG
    5.1 KB · Affichages: 29

vgendron

XLDnaute Barbatruc
Avec ce code
VB:
Sub deplace()
 NbColonnesToMove = Cells(1, Rows("1:1").Columns.Count).End(xlToLeft).Column / 2

 For i = 1 To NbColonnesToMove - 1
    MaxLignesToMove = Cells(Rows.Count, 3).End(xlUp).Row 'les colonnes à déplacer seront toujours en C et D car on delete au fur et à mesure
    LastLineDestination = Range("A" & Rows.Count).End(xlUp).Row + 1
    Cells(1, 3).Resize(MaxLignesToMove, 2).Copy Destination:=Cells(LastLineDestination + 1, 1)
    Cells(1, 3).Resize(MaxLignesToMove, 2).Delete
 Next i
End Sub
 

Pièces jointes

  • Note_points fort_FINAL.xlsm
    74.5 KB · Affichages: 23

StagiaiireVannes

XLDnaute Nouveau
Oups, j'ai du mal m'exprimer.
En faite ce que je voulais c'est que les colonnes C-D vont en dessous de A-B
Et que les colonnes E-F vont à la suite !
Et apres il faut que les colonnes I-J et K-L soient dessos la colonne G-H
Pour au final n'avoir que 4 colonnes, les points forts avec commentaires et les points faible avec commentaire
 

Discussions similaires

Statistiques des forums

Discussions
311 729
Messages
2 081 971
Membres
101 852
dernier inscrit
dthi16088