Forums XLPages

Tous les messages (Mth)

« 1 ... 29 30 31 32 33 34 35 36 »
Re: recopier une ligne
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 : 14-11-2009 20h54
re,


Claude, si tu n'as pas eu de réponse plus rapide c'est que ta demande initiale était incompréhensible, comme le dit Dan plus haut, copier quoi? où? comment?
C'est visiblement le même problème sur les trois forums (ou plus ?), de nombreux contributeurs bien plus compétents que moi essaient de t'aider, mais comme tu as du mal à définir ce que tu veux, beaucoup passent du temps pour rien, et si ce n'est déjà fait tu risques d'user les meilleures volontés à la longue ... D'une manière générale essaie de bien expliquer ton besoin de façon claire et détaillée afin que les gens te comprennent.
(un effort sur l'orthographe serait également bienvenu)

Pour le reste, j'ai tenté de comprendre ce que tu voulais, et de faire le lien avec ton fichier d'origine sur lequel nous travaillons depuis le début, au risque de faire erreur je me dis que ce n'est pas forcément la ligne 11 dont tu as besoin, mais des deux lignes, qui s'insèrent autant de fois que nécessaire et ce tant que la fin de broyage n'est pas atteinte.
Je suis donc repartie du code de Dan plus haut (et des autres forumers, il y a du monde dans ce fichier ) en essayant de ne rien abîmer (le VBA et moi ça n'est pas vraiment ça...)

Il y a tout de même un hic c'est que je ne sais pas dire à VBA que dans ce cas la ligne de saisie doit être paire (afin de ne rien insérer si on saisit le numéro du boyeur), mais au cas où je te laisse déjà regarder cette ébauche et nous dire si en gros l'idée est là ou si ça n'est pas ce que tu souhaites.

Bonne soirée à tous,

mth


Pièce jointe:
zip rebelote.zip   [ Taille: 51.25 Ko - Téléchargements: 596 ]
Edité par Mth le 14/11/2009 21:32:17
Hors Ligne
Rapport   Haut 

Re: recopier une ligne
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 : 14-11-2009 15h02
Bonjour Claude40, bonjour Dan,

Claude, comme disait familièrement feu ma grand-mère, tes explications sont claires comme du jus de boudin!

En repartant de ton code, et des infos que tu distilles ici et ailleurs :

bonjour a tous j'ai trouver un code en farfouillant sur le site qui semblait me convenir,je l'est tester sur une feuille excel vierge il marche corectement.mais quand je veut l'integrer a mon projet que je joint a ce message il ne fonctionne plus.quelqu'un pourrai t'il regarder la ou j'ai fait une erreur dans le code et si cela est possible de le réctifier un peu s'il vous plait.car actuellement le code fonctionne comme ceci: quand je sélectionne Av/Colle dans la liste de la cellule A11 cela me recopi la ligne en jaune complete en dessous avec les informations dedant.alors que moi je souhaiterai que sa me copie la ligne compl� en dessous mais sans les informations.l'arrêtde la recopie ne s"éffectue que une fois "Fin Broyage" séléctionner dans la liste.
merci d'avance pour votre aide

essaie peut-être comme ceci:

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'code pour copie de ligne a revoir
Dim Lg As Integer
Lg = Range("a1120").End(xlUp).Row
    If Not Intersect(Target, Range("a11:a" & Lg)) Is Nothing Then
        Application.EnableEvents = False
            If Target = "Fin Broyage" Then
                Range("A" & Lg & ":V" & Lg).Copy
                Range("a" & Lg + 1).PasteSpecial Paste:=xlPasteFormats
                    With Range("a" & Lg + 1).Validation
                     .Delete
                    End With
            End If
    End If
        Application.EnableEvents = True
        Application.CutCopyMode = False
End Sub

Bonne journée à tous,

Mth



Hors Ligne
Rapport   Haut 

Re: somme selective
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 : 08-11-2009 13h35
Bonjour Claude40, bonjour à tous,

Tu devrais privilégier les dépôts de fichier sur le site et pas sur cijoint, si ton fichier est trop gros tu le zippes, tu peux aussi l'alléger, nul besoin d'avoir des centaines de lignes pour comprendre le problème, généralement un extrait suffit.

Si j'ai bien compris tu devrais t'en sortir avec les fonctions NB.SI() et SOMME.SI() (d'ailleurs, dans ton message précédant, il me semble que nous avions déjà utilisé NB.SI()...)

Sous réserve d'avoir compris quelles colonnes tu souhaitais additionner, tu trouveras ton tableau allégé ci-joint avec:

 Pour compter le nombre de broyages:
=SI(B71="";"";NB.SI($A$11:$A$47;$B71))

Comme il est dit dans l'aide Excel :
"La fonction NB.SI compte le nombre de cellules d’une plage qui répondent à un critère spécifique"

Synthaxe:

NB.SI(plage, critères)

Il te reste à adapter la plage à ton fichier d'origine donc à remplacer la ligne 71 par la ligne 389.

 Pour la quantité d'eau utilisée:
=SI(B71="";"";SOMME.SI($A$11:$A$47;$B71;$N$11:$N$47)+SOMME.SI($A$11:$A$47;$B71;$Q$11:$Q$47)+SOMME.SI($A$11:$A$47;$B71;$V$11:$TV47)+SOMME.SI($A$11:$A$47;$B71;$D$11:$D$47))

Même principe que la fonction NB.SI(), mais au lieu de dénombrer la fonction SOMME.SI() permet d'additionner.

Syntaxe:
SOMME.SI(plage;critère;[somme_plage])

J'ai placé là les quatre colonnes qui parlaient de quantité d'eau, à toi d'aménager si ce ne sont pas les bonnes colonnes.


 Pour le temps de fonctionnement:

Même raisonnement avec la fonction SOMME.SI() :

=SI(B71="";"";SOMME.SI($A$11:$A$47;$B71;$E$11:$E$47))

J'ai mis dans la cellule résultat un format de cellule : [h]:mm:ss
A toi d'adapter si cela ne te convient pas (les crochets autour du h permettent d'additionner plus de 24 heures au cas où)


Voilà claude40, j'espère que cela pourra t'aider, et pour aller plus loin n'hésite pas à consulter l'aide Excel qui est vraiment très bien faite sur les fonctions NB.SI() et SOMME.SI().

Cordialement,

Mth

Pièce jointe:
zip Saisie_Mod_3.zip   [ Taille: 52.13 Ko - Téléchargements: 460 ]
Edité par Mth le 08/11/2009 15:07:04
Hors Ligne
Rapport   Haut 

Re: Intégrer Macro SaveAsPDF
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 : 06-11-2009 22h36
Bonsoir à tous,

Antonio j'ai bien lu ton message et consulté ton lien mais je ne maîtrise pas le VBA et ne pourrai t'aider dans cette voie, je continuerai en revanche à lire avec intérêt les différents échanges de cette discussion.

Eric, si cela peut t'intéresser, voici le lien vers le site de Microsoft présentant le pack de conversion. Une fois installé il permet d'ouvrir les fichiers 2007 à partir des versions antérieures, bien pratique parfois ...

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

mth




Hors Ligne
Rapport   Haut 

Re: Intégrer Macro SaveAsPDF
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 : 05-11-2009 15h55
Bonjour Antoniomiguel, bonjour Didier, le forum.

Je me permets de m'immiscer dans la conversation en repartant du fichier que tu as déposé la dernière fois, le dernier n'étant pas passé.

J'ai modifié certaines choses, peut-être cette proposition (qui reste largement perfectible) pourra-t-elle t'aider un peu.

Tu verras que j'ai éliminé les onglets pour regrouper les lots dans une seule feuille nommée "Lots".

J'ai également modifié tes zones nommées, puis éliminé le haut de ton devis où tu avais inscrit toutes tes listes déroulantes car (et ça n'engage que moi) je trouvais plus judicieux de les mettre directement dans le corps du devis.

J'ai considéré que les lignes fonctionnaient par deux, la première ligne indiquant le libellé du lot (par exemple Lot peintures), et la ligne immédiatement en dessous indiquant les différents choix possibles en fonction du choix de la ligne du dessus, ( donc par exemple uniquement les items faisant partie du lot peinture).

Pour la première ligne, la formule utilisée dans la source de validation est :

=ChoixLot
ChoixLot est une zone nommée, en dynamique, afin de pouvoir fonctionner même si tu rajoutes plus tard d'autres lots.
La formule de cette zone nommée est:

=DECALER(Lots!$A$2;;;NBVAL(Lots!$A:$A)-1;)
Tu peux consulter l'article expliquant comment nommer une zone dynamique à l'aide de DECALER() et NBVAL() ICI

Pour la ligne suivante, j'ai placé une liste de validation dont le contenu varie en fonction de ce qui a été choisi sur la ligne précédente, le menu pour y accéder est le même que ci-dessus soit Données/Validation de données/autoriser "Liste", (attention il faut au préalable retirer la fusion de cellules) tu y trouveras la formule suivante:

=DECALER(INDIRECT(SUBSTITUE($B18;" ";"_"));1;;NBVAL(INDIRECT(SUBSTITUE($B18;" ";"_")))-1)
Le principe est exactement celui qui est expliqué dans le lien que je viens de t'indiquer, mais avec en plus l'aide des fonctions INDIRECT() et SUBSTITUE(), car dans le nom des zones nommées les espaces ont été remplacés par des tirets (sans quoi ça ne fonctionnerait pas les noms des zones n'acceptant pas les espaces)

Une fois ceci fait, tu te promènes dans ton devis, en choisissant ligne 1 ton lot, ligne 2 ton item, ligne 3 un autre lot, etc ...


Pour ce qui est des unités, toutes les données étant regroupées dans l'onglet "Lots"
j'utilise cette formule pour les retrouver:
=SI(B18="";"";RECHERCHEV(B19;INDIRECT("Lots!"&CAR(65+EQUIV($B18;Lots!$1:$1;0)-1)&":"&CAR(65+EQUIV($B18;Lots!$1:$1;0)));2;FAUX))
un SI() et un RECHERCHEV() comme tu l'avais fait, mais aussi la fonction EQUIV() pour rechercher le numéro de colonne, puis la fonction CAR() pour retrouver la lettre correspondant à ce numéro de colonne, le tout imbriqué dans la fonction INDIRECT() pour pouvoir lire tout ça.
Tu peux bien sûr consulter la précieuse aide Excel sur ces fonctions, mais tu trouveras également un article ICI et un fichier d'exercices sur la fonction CAR() ICIqui sont assez proches du problème traité et qui pourront sans doute t'aider.

La formule de la colonne prix est la même, simplement avec une colonne de plus dans le RECHERCHEV().

Voilà Antoniomiguel, je ne sais si cela s'approche de ce que tu voulais faire mais peut-être y trouveras-tu une petite source d'inspiration pour t'aider.

Bon courage pour ton travail et à bientôt,

mth
Pièce jointe:
zip Futur_Devis_Pro 2.zip   [ Taille: 28.45 Ko - Téléchargements: 1032 ]
Hors Ligne
Rapport   Haut 

Re: Problème: impossible de décocher l'item "masquer" des cellules
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 : 04-11-2009 12h20
Bonjour à tous,

Je ne suis pas très calée en macros, mais dans la procédure Private Sub Workbook_Open(), tu as à la fin une propriété Cells.FormulaHidden à True, remplace par False, ça devrait fonctionner.

Bonne journée,

mth
Hors Ligne
Rapport   Haut 

Re: recapitulatif
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 : 01-11-2009 19h38
Bonsoir à tous,

Claude tu trouveras ton tableau ci-joint avec un essai par formule permettant d'avoir la liste des machines utilisées.

En cellule C1512 et suivantes j'ai utilisé ta liste pour placer cette formule, qui indique "Oui" ou "Non" en face des broyeurs:
=SI(NB.SI(Modèle!$A$11:$A$389;A1512)>0;"Oui";"Non")

Ensuite, toujours sur l'onglet Modèle en cellule P400 et recopiée vers le bas, j'utilise cette formule matricielle :
{=SI(NB.SI($C$1512:$C$1529;"Oui")(C$1512:C1512);"";PETITE.VALEUR(SI($C$1512:$C$1529="Oui";$A$1512:$A$1529);LIGNES(C$1512:C1512)))}


Décomposition de la formule:

NB.SI($C$1512:$C$1529;"Oui")
permet de compter le nombre de "Oui"; dans le fichier joint où j'ai saisi quelques données cette partie de la formule renvoie 3

 
LIGNES(C$1512:C1512)
permet de compter le nombre de lignes renseignées par la formule. En ligne 1512 on obtient 1; sur la ligne suivante cette formule renvoie 2, etc.


 La première partie de la formule soit:
=SI(NB.SI($C$1512:$C$1529;"Oui")(C$1512:C1512);"";...)
permet de ne pas renvoyer de valeur une fois que tous les broyeurs utilisés ont été traités.
Si 3 broyeurs ont été utilisés, les 3 premières lignes seront renseignées par la formule, mais la 4ème ligne ainsi que les suivantes ne renverront rien.


 La fonction PETITE.VALEUR() permet de renvoyer la n-ième plus petite valeur d'une matrice, je l'utilise ici pour renvoyer la première, puis la deuxième, etc. , cette n-ième étant calculée avec la fonction LIGNES() (je te laisse consulter l'aide d'Excel sur ces fonctions LIGNES() et PETITE.VALEUR()).

La formule :
PETITE.VALEUR(SI($C$1512:$C$1529="Oui";$A$1512:$A$1529);LIGNES(C$1512:C1512))
permet de récupérer la n-ième plus petite valeur de la plage de cellules A1512:A1529, à condition que les cellules de la plage C1512:C1529 renvoient "Oui"



L'ensemble est une formule matricielle, ce qui veut dire qu'elle doit être validée en appuyant simultanément sur les trois touches CTRL MAJ et ENTER.

Pour analyser cette formule qui est un peu compliquée, n'hésite pas à user et abuser de la touche F9 comme indiqué dans la FAQ ici

Voilà Claude, il y a certainement d'autres solutions mais j'espère que celle-ci pourra te dépanner.

Cordialement,

Mth




Pièce jointe:
zip Saisie_Mod_4.zip   [ Taille: 75.03 Ko - Téléchargements: 408 ]
Edité par Mth le 01/11/2009 20:48:40
Hors Ligne
Rapport   Haut 

Re: Envoi de fichier par mail avec Windows Mail
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-10-2009 22h45
Bonsoir Didier, Guy,

Résulat des courses aujourd'hui avec un premier essai:

- Vérification faite, l'envoi de mail fonctionne bien sur les machines, par le menu excel "Envoyer vers".

- Concernant ta procédure Guy, elle fonctionne, en ce sens qu'elle ouvre bien Windows Mail, elle place bien le destinataire l'objet et le message, puis s'arrête là.
Ce qui est déjà bien, mais resterait à placer le fichier en pièce jointe, et ... sourire.. je rêve peut-être un peu là ... mais serait-il possible que cette procédure envoie le mail sans forcément ouvrir Windows Mail ? ( si ce dernier point est trop compliqué, je serais déjà ravie de toute façon)

Encore merci pour votre intérêt, et à bientôt,

Mireille

Hors Ligne
Rapport   Haut 

Re: Envoi de fichier par mail avec Windows Mail
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-10-2009 20h19
re ,

Je viens d'essayer sur une machine, et ... tu vas rire ... j'ai fini par m'apercevoir qu'elle n'était sans doute pas bien paramétrée: les mails ne fonctionnent pas.

J'adore notre service informatique ...

Je vais donc essayer de joindre quelqu'un pour faire des tests à distance, (je ne suis pas sûre d'avoir quelqu'un ce soir car il est un peu tard, peut-être demain), et promis dès que j'ai réussi je te tiens au courant.

Merci encore Guy pour ton aide, et à très bientôt donc,

Mireille
Hors Ligne
Rapport   Haut 

Re: Envoi de fichier par mail avec Windows Mail
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-10-2009 19h17
Bonjour Guy,

Ravie de te retrouver et merci de de pencher sur mon problème...

Pour te répondre, effectivement, j'essaie de faire fonctionner ceci sur les ordinateurs portables de certains de nos collaborateurs, qui sont équipés de Vista et qui utilisent Windows Mail; c'est leur messagerie par défaut et ils n'ont que celle là pour l'instant.

Pour les API, aucune réticence ...  sourire.... mais il te faudra me guider car je n'y connais rien, je te promets simplement de faire tous les efforts pour essayer de comprendre.

J'espère que cela répond à tes questions, merci encore Guy et à plus tard,

Mireille.
Hors Ligne
Rapport   Haut 

« 1 ... 29 30 31 32 33 34 35 36 »