VBA need help

S

StagiaiireVannes

Guest

• 2 Mai 2017

• #16

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 🙂 ?

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 3 Mai 2017

• #17

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

 

Vote positif 0 Vote négatif

S

StagiaiireVannes

Guest

• 3 Mai 2017

• #18

Parfaitement, parfait !

 

Vote positif 0 Vote négatif

S

StagiaiireVannes

Guest

• 3 Mai 2017

• #19

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

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 3 Mai 2017

• #20

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) ?

 

Vote positif 0 Vote négatif

S

StagiaiireVannes

Guest

• 3 Mai 2017

• #21

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

  6.5 KB · Affichages: 32
• Données_avant_lancement.PNG

  18.3 KB · Affichages: 24
• apres_lancement.PNG

  5.1 KB · Affichages: 37

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 3 Mai 2017

• #22

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

c'est elle qui ne va pas

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 3 Mai 2017

• #23

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

Vote positif 0 Vote négatif

S

StagiaiireVannes

Guest

• 3 Mai 2017

• #24

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

 

Vote positif 0 Vote négatif