Inserer 4 nouvelles colonnes en derner
Bonjour,
J'ai un fichier (que je vous joins) où j'aimerais inserer 4 colonnes toujours avant les colonnes "TOTAL" pour y insérer le contenu des colonnes de 4 colonnes d'un autre fichier (colonnes C K L ET AU) en fonction de jour de la semaine
J'ai essayé ça mais ça na marche pas. Je précise que je ne suis pas une pro de VBA
Windows("classeur2.xls").Activate
If Sheets("feuil1").Range("B16").Value = 1 Then
Sheets("LUNDI").Select
Columns("C:C").Select de l'autre fichier
Selection.Copy
Columns("D:D").Select
Selection.Insert Shift:=xlToRight
Range("C7:C50").Select
ActiveSheet.Paste 'lundi
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("K:K").Select de l'autre fichier
Selection.Copy
Columns("F:F").Select
Selection.Insert Shift:=xlToRight
Range("K7:K50").Select
ActiveSheet.Paste 'lundi
ActiveSheet.Paste
Application.CutCopyMode = False etc...
Else
If Sheets("feuil1").Range("B16").Value = 2 Then
Sheets("MARDI").Select...etc
End If
End If
d'avance merci pour votre aide
Re-bonjour,
Je te félicite, tu viens de gagner le prix de la phrase la plus obscure ou presque de notre Forummarinette a écrit :J'ai un fichier (que je vous joins) où j'aimerais inserer 4 colonnes toujours avant les colonnes "TOTAL" pour y insérer le contenu des colonnes de 4 colonnes d'un autre fichier (colonnes C K L ET AU) en fonction de jour de la semaine
Non, je plaisante à moitié
Sur les feuilles de tes 6 jours de la semaine, tu as plusieurs colonnes ‘’Total’’. Soit plus précise et indique-moi sur quelle feuille tu désires insérer 4 colonnes devant la colonne ‘’Total’’ se trouvant dans quelle colonne exactement ?
Ces 4 colonnes à ajouter, elles proviennent de quelles colonnes de quel fichier ?
Quel est l’élément déclencheur de ta macro ?
Ne te gêne pas d’utiliser le correcteur d’orthographe de Word en préparant tes textes.
A te relire.
Bonjour
Bonjour à tous
Une proposition, si j'ai bien compris....
Les 2 fichiers doivent être ouverts.
Cela convient-il ?
Bye !
Bonjour,
non, rien, erreur
eric
Bonjour GMB,Yvouille et tous,
GMB tu as parfaitement compris ce que je veux. C'est génial. Est ce que je peux insérer ton code importer à l'interieur de ma macro?
If DIR(MyPath, vbDirectory) <> "" And Sheets("feuil1").Range("A6").Value < Sheets("feuil1").Range("D10").Value And Sheets("feuil1").Range("D10").Value And Sheets("feuil1").Range("B4").Value <> "07" And "08" Then
Do While Sheets("feuil1").Range("A9").Value <> Sheets("feuil1").Range("D10").Value
For Each MyPath In Application
Workbooks.Open Filename:="chemin\" & Sheets("feuil1").[A6] & "\Mobifil.xls"
Sheets("General").Select
If Sheets("autre feuille").Range("B8").Value = "7:00-7:15" Then
Range("C8:C39,C52:C63").Select
Selection.Copy
Windows("classeur2.xlsm").Activate
If Sheets("feuil1").Range("B16").Value = 1 Then
merci pour ta réponse.
Serait ce abuser que te demander comment faire la somme dans ma colonne TOTAL ?
=SOMME(D7:colonne total-1)
je ne suis vraiment pas douée lol
Bonne journée
A bientôt
Bonjour
marinette a écrit :Est ce que je peux insérer ton code importer à l'interieur de ma macro?
Sans les fichiers qui vont avec ta macro, il faudrait que je me prenne la tête pour comprendre ce qu'elle fait et où intégrégrer la mienne.
Or, je n'ai pas envie.
Alors, si tu veux que j'aille plus loin ...
marinette a écrit :comment faire la somme dans ma colonne TOTAL ?
Ce n'est pas le plus difficile...
Bye !