Copier coller des feuilles d'un classeur à un autre classeur Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
s
soukaina
Membre habitué
Membre habitué
Messages : 100
Inscrit le : 23 mai 2014
Version d'Excel : excel2010

Message par soukaina » 16 juillet 2015, 18:31

Bonjour Fred,

J'ai pas pu envoyé le fichier parce que je travaille encore sur certaines formules.


J'ai cette formule qu'elle marche très bien sauf que j'ai des N/A, est ce qu'il y a un moyen de simplifier cette formule et éviter les N/A.

=SI(OU(CJ4>=(SI(ESTNA(RECHERCHEV(L4;'Planning general'!E:Q;11;FAUX)=FAUX);1;RECHERCHEV(L4;'Planning general'!E:Q;11;FAUX)));(SI(ESTNA(RECHERCHEV(L4;'Planning general'!E:Q;11;FAUX)=FAUX);1;RECHERCHEV(L4;'Planning general'!E:Q;11;FAUX)))=1);"Oui";"Non")

Pour expliquer ma formule je fais une recherche V en fonction du thème et le numéro de la semaine sur une feuille.

CJ4 numéro de la semaine
L4 le thème

Cdlt
Avatar du membre
fred2406
Membre impliqué
Membre impliqué
Messages : 1'941
Appréciations reçues : 29
Inscrit le : 13 mai 2014
Version d'Excel : 2007-201364bits-2011MAC

Message par fred2406 » 16 juillet 2015, 18:33

Salut
Désolé
je part en vacances demain j'ai pas le temps de regarder ouvre un nouveau post quelqu'un pourra certainement t'aider
a+fred
Je ne réponds pas aux M.P. non sollicités.
Fred
s
soukaina
Membre habitué
Membre habitué
Messages : 100
Inscrit le : 23 mai 2014
Version d'Excel : excel2010

Message par soukaina » 16 juillet 2015, 18:35

Merci Fred
Bonne vacance !
s
soukaina
Membre habitué
Membre habitué
Messages : 100
Inscrit le : 23 mai 2014
Version d'Excel : excel2010

Message par soukaina » 4 août 2015, 09:25

Bonjour Fred,

J'espère que tu as passé des bons vacances !

Je suis bloquée sur cette macro que tu m'as aidé à la faire. J'ai juste ajouter les éléments suivant:
Supprimer le segment dépôt , filtre le dépôt, enregistrer la feuille ensuite revenir sur le fichier source est créer le segment dépôt parce que j'en ai besoin pour d'autres macros .

Une fois sur deux le code ne marche pas ... est ce qu'il y a moyen de le simplifier ?
Sub VSL()
Application.CalculateBeforeSave = False
Dim fichier As String
Workbooks("PF CDE.xlsm").Sheets("Préparationdujour").Activate
 ActiveWorkbook.SlicerCaches("Segment_DEPOT3").Slicers("DEPOT 1").Delete
With Sheets("Préparationdujour").PivotTables("Tableau croisé dynamique1").PivotFields("DEPOT")
        .PivotItems("001").Visible = True
        .PivotItems("002").Visible = True
        .PivotItems("S01").Visible = False
        .PivotItems("008").Visible = False
End With
fichier = "VSL" & Format(Date, "dd-mm-yy-ss")
Sheets(Array("Préparationdujour")).Copy
With ActiveWorkbook
    .SaveAs "C:\Users\Souu\Desktop\test\"" & fichier
    .Close
End With
With Sheets("Préparationdujour")
   .PivotTables("Tableau croisé dynamique1").PivotSelect "", xlDataAndLabel, True
 Workbooks("PF CDE.xlsm").Sheets("Préparationdujour").Activate
 ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.PivotTables( _
        "Tableau croisé dynamique1"), "DEPOT").Slicers.Add ActiveSheet, , "DEPOT 1", _
        "DEPOT", 174, 514.5, 144, 198.75
    ActiveSheet.Shapes.Range(Array("DEPOT 1")).Select
    ActiveSheet.Shapes.Range(Array("DEPOT 1")).Select
    ActiveSheet.Shapes("DEPOT 1").IncrementLeft -217.5
    ActiveSheet.Shapes("DEPOT 1").IncrementTop -171
    ActiveSheet.Shapes("DEPOT 1").ScaleHeight 0.3471698113, msoFalse, _
        msoScaleFromTopLeft
    ActiveWorkbook.SlicerCaches("Segment_DEPOT3").Slicers("DEPOT 1"). _
        NumberOfColumns = 2
    ActiveWorkbook.SlicerCaches("Segment_DEPOT3").Slicers("DEPOT 1").Style = _
        "SlicerStyleDark3"
End With
End Sub


Cordialement
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message