VBA need help

StagiaiireVannes · 20 Avril 2017

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

StagiaiireVannes · 2 Mai 2017

GENIAL, ca marche tout le temps ^^
J'ai une derniere recommandations si possible, apres promis j'arrete
Est ce que c'est possible que dans les trois feuilles l'ecriture soit en
Futura BK-BT
et au lieu d'etre écrit en noir que ce soit en RGB - 28 37 108 ?

vgendron · 3 Mai 2017

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 · 3 Mai 2017

Parfaitement, parfait !

StagiaiireVannes · 3 Mai 2017

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é.

vgendron · 3 Mai 2017

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 · 3 Mai 2017

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

vgendron · 3 Mai 2017

OK.. je viens de voir que tu avais ajouté une macro "Déplace"

c'est elle qui ne va pas

vgendron · 3 Mai 2017

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

StagiaiireVannes · 3 Mai 2017

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

VBA need help

StagiaiireVannes

XLDnaute Nouveau

Pièces jointes

StagiaiireVannes

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

StagiaiireVannes

XLDnaute Nouveau

StagiaiireVannes

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

StagiaiireVannes

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Pièces jointes

StagiaiireVannes

XLDnaute Nouveau

Discussions similaires