Forums XLPages

Tous les messages (Mth)

« 1 ... 6 7 8 9 10 11 12 ... 36 »
Re: Probleme avec fichier de jb-ListeFichiersRepertoireRenomme
#81
Mth
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 16-01-2013 22h32
Bonsoir Eric, bonsoir à tous,

Cela signifie vraisemblablement que l'un des fichiers indiqué colonne A n'existe pas dans le répertoire.
As-tu bien fait tourner la macro Listefichiers() avant ?

Bonne soirée,

mth
Hors Ligne
 Rapport   Haut 

Re: Probleme réalisation macro avec enregistreur de macro ...
#82
Mth
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 16-01-2013 02h08
Bonsoir Eric, bonsoir à tous,

Le code généré par l'enregistreur est très pratique mais un peu indigeste, je t'avoue que je n'ai pas tout décortiqué dans le détail.
D'une façon générale une fois le code de l'enregistreur généré, il convient de le nettoyer un peu.
D'entrée tu peux éliminer tous les scroll, tu peux aussi éliminer la plupart des Select qui ne servent à rien sauf à ralentir le code.

On peut bien sûr faire mieux mais je te propose un petit nettoyage de ce genre:

Option Explicit
Sub Action()
'Déclaration des Variables
Dim i As Long ' Variable pour la boucle fournie par Mth site: http://www.mdf-xlpages.com/
Dim vImport As Variant
Dim Feuil As String
 
Feuil = "Recap"

vImport = Workbooks("EssaiMagKSStestfaux chiffres.xls").Sheets("BDD02").Range("A1120:D1147").Value

For i = 1 To ThisWorkbook.Sheets.Count 'boucle fournie par Mth site: http://www.mdf-xlpages.com/
'Sheets.count renvoie le nombre d'onglets du classeur.
  If Sheets(i).Name <> "Recap" Then
    'Sheets(i).Name indique le nom de la feuille en cours
    'Si le nom de l'onglet est différent de "Recap" alors.. exécuter telle action
        With Sheets(i)
            .Range("D14:D29").FormulaR1C1 = _
              "=IF(OR(RC[-3]=""Sans Tva"",RC[-3]=""Tva à 19.6%"",RC[-3]=""Tva à 5.5%"",RC[-3]=""Tva à 7%"",RC[-3]=""Totaux""),""1""&RC[-3],"""")"
            .Range("A70:D97") = vImport
        End With
   End If
     
Next i

'Création de la feuille Recap
'teste si Recap existe déjà, si oui ne fait rien
If Not FeuilExiste(Feuil) Then
    'cf ici: http://www.mdf-xlpages.com/modules/smartfaq/faq.php?faqid=40
    'La fonction "FeuilExiste(Feuil) décrite sur le lien est dans un module standard
    Sheets.Add before:=Sheets(1)
    ActiveSheet.Name = "Recap"
End If
'Copie du tableau dans la feuille Recap
Sheets("Sheet 1").Range("A70:A97").Copy Sheets("Recap").Range("A4")

'Nomme l'intitulé des colonnes par le noms de chaque onglet
With Sheets("Recap")
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "Recap" Then
            .Range("IV3").End(xlToLeft).Offset(0, 1) = Sheets(i).Name
        End If
    Next i
    'ajout des formules
    .Range("B4:AF31").FormulaR1C1 = _
       "=VLOOKUP(RC1,INDIRECT(R3C&""!$a$70:$c$97""),3,FALSE)"
    .Range("A4:AF31") = .Range("A4:AF31").Value
     ' etc. ...
    With .Range("B33:AF33")
        .FormulaR1C1 = "=SUM(R[-29]C:R[-1]C)"
        .Font.Bold = True
        .NumberFormat = "#,##0.00_ ;[Red]-#,##0.00 "
    End With
       
End With

ActiveWindow.DisplayZeros = False
End Sub
 

Sans les infos de l'onglet BDD02 du second fichier, je n'ai rien testé, par ailleurs je n'ai pas intégré toutes les formules, tu complèteras sur ton fichier, le principe est le même.

Ce n'est pas parfait mais vois si cela peut t'aider malgré tout.

Bien à toi,

mth
Hors Ligne
 Rapport   Haut 

Re: Probleme réalisation macro avec enregistreur de macro ...
#83
Mth
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 13-01-2013 14h29
Bonjour Eric, bonjour le forum,

Pour ma part ta question est un peu floue, et je ne dois pas être la seule car je vois que tu n'as pas encore de réponse.

"...changer de feuille automatiquement" ... c'est à dire? une boucle sur chaque feuille?
"...copier une zone" ... laquelle?
"... la recopier ailleurs" ... où ça?
"... de manière à différencier le texte" ... c'est à dire ?

Si tu veux boucler sur tes feuilles une piste parmi d'autres:

Dim i As Long

For i = 1 To ThisWorkbook.Sheets.Count
'Sheets.count renvoie le nombre d'onglets du classeur
    If Sheets(i).Name <> "Recap" Then
    'Sheets(i).Name indique le nom de la feuille en cours
    'Si le nom de l'onglet est différent de "Recap" alors.. exécuter telle action
        'Action
    End If
Next i
 

Si non essaie d'être plus précis.

Bien à toi,

mth
Hors Ligne
 Rapport   Haut 

Re: formul
#84
Mth
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 12-01-2013 12h08
Bonjour mahelnawe, bonjour à tous,

Pourrais-tu indiquer la façon dont se présentent tes données? Un extrait de fichier peut-être? Car là je dois t'avouer que c'est un peu obscur ...

Bonne journée,

mth
Hors Ligne
 Rapport   Haut 

Re: Probleme réalisation macro avec enregistreur de macro ...
#85
Mth
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 10-01-2013 22h32
Bonsoir Eric, bonsoir à tous,

Il n'est sans doute pas nécessaire de déposer le fichier dans son intégralité, un simple extrait de quelques lignes représentatif du problème doit suffire, fais ton possible pour alléger et zipper.
Tu pourras aussi exposer ta question dans ce fil plutôt que dans ton fichier, cela facilitera la lecture et augmentera tes chances de réponse (et allègera aussi ton fichier )

Très bonne soirée et à bientôt,

mth
Hors Ligne
 Rapport   Haut 

Re: MFC Multiples prob fonctionnement à la révouverture du doc
#86
Mth
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 07-01-2013 21h30
Bonsoir lyuba, et bienvenue parmi nous,

Je ne te serai pas d'un grand secours, car ton fichier fonctionne parfaitement chez moi. J'active les macros, je modifie une valeur et la couleur se met bien à jour quel que soit l'onglet.
A tout hasard, as-tu bien activé les macros à la réouverture de ton fichier?

Bien à toi,

mth
Hors Ligne
 Rapport   Haut 

Re: Mise en forme conditionnelle Excel 2007
#87
Mth
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 27-12-2012 00h30
Bonsoir Astyanax

Vois si ces liens relatifs aux MFC peuvent t'intéresser:

office.microsoft.com/fr-fr/excel-help/donnees-avec-mise-en-forme-conditionnelle-exemples-et-instructions-HA010230841.aspx

office.microsoft.com/fr-fr/excel-help/ajouter-modifier-rechercher-ou-effacer-des-mises-en-forme-conditionnelles-HP010073939.aspx

office.microsoft.com/fr-fr/excel-help/gerer-la-priorite-des-regles-de-mise-en-forme-conditionnelle-HA102749558.aspx

Bien à toi,

mth
Hors Ligne
 Rapport   Haut 

Re: faire une double recherche avec condition sur 2 tableaux different
#88
Mth
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 26-12-2012 21h33
Bonjour,

Une formule en D3:

=SOMMEPROD((Feuil3!$A$2:$A$11=$A3)*(Feuil3!$D$2:$D$11=E3)*(Feuil3!$C$2:$C$11))

Bonne soirée,

mth
Hors Ligne
 Rapport   Haut 

Re: Mise en forme conditionnelle Excel 2007
#89
Mth
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 26-12-2012 21h24
Bonsoir Astyanax et bienvenue parmi nous ,

Au lieu du test avec ESTVIDE(), j'essaierai plutôt cette formule dans la mise en forme conditionnelle:

=NBVAL($C$3:$E$5)=9

Très bonne soirée,

mth
Hors Ligne
 Rapport   Haut 

Re: Manipulation TCD
#90
Mth
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 20-12-2012 22h56
Bonsoir Eric, bonsoir à tous,

Je n'ai pas regardé ton fichier en détail mais pour répondre à ta question:

Si je fais, tableau dynamique, formule, champs calculé et que je rentre dans Formule : CA HT tva 19.6% / CA HT Total il note #NA... Comment cela se fait il ?? Je devrais obtenir pour 19.6%: (719.6/2063.30)x100= 34.876%

De même je n'arrivais pas à calculer le panier moyen, donc j'ai rajouté des colonnes dans BDD02 avec des formules calculant le Panier moyen afin de les retrouver dans mon TCD... Qu'elle est la meilleure solution a ce sujet ?


La zone de ton TCD n'est pas dynamique, ce qui surcharge inutilement la mémoire et intègre inévitablement des valeurs nulles.
Pour tes formules, tu dois tester la division par zéro, comme tu le ferais dans une formule classique de la feuille de calcul.
Ainsi ta formule pour calculer le poids du champ 19.6% par rapport au champ total CA HT serait:

=SI('C.A. HT Total' =0;0;'C.A HT tva19.6' /'C.A. HT Total' )
De même pour le panier HT:
=SI('Nb Clients' =0;0;'C.A. HT Total' /'Nb Clients' )
La meilleure solution? dans le cas présent j'ai l'impression qu'un calcul dans le TCD suffit, mais la meilleure solution sera celle avec laquelle tu seras le plus à l'aise avec ton tableau

Très bonne soirée et à bientôt,

mth
Hors Ligne
 Rapport   Haut 

« 1 ... 6 7 8 9 10 11 12 ... 36 »