Forums XLPages

Tous les messages (myDearFriend!)

1 2 3 4 ... 142 »
Re: personnalisation de mDF Devis Professionnel 2007.zip
#1
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1472

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 28-10-2017 17h42

Re bonjour zambol,

 

Tu trouveras en pièce jointe une façon de faire pour tenter de répondre à ta demande.

 

J'ai essayé de répondre aux différents points énoncés (même si l'historique des Devis en onglet "Données" est venu se rajouter dans ton dernier message il me semble... indecision)

 

Tu as maintenant :

  • 2 listes déroulantes dans le 1er Userform (une pour le choix de Commercial et une pour le choix du Client lié)
  • Le Devis créé reprend les données souhaitées (y compris le nom du Commercial)
  • L'historique des Devis se met à jour dans l'onglet Données.

 

- Un nouvel onglet est ajouté pour gérer la liste des Commerciaux.

- L'onglet "Clients" comprend une colonne supplémentaire dans laquelle tu devras indiquer le Commercial correspondant à chaque client.

- L'onglet historique Données est, par contre, simplifié : j'ai supprimé la reprise du détail des articles et je ne reprends ici que le Total HT global du Devis par simplification (je te laisse voir si tu souhaites absolument reprendre le contenu du Devis en détail... Mais je pense que ça risque d'être un peu compliqué si tes devis contiennent plusieurs produits, donc plusieurs lignes d'articles).

 

Nb: Je n'ai pas ajouté de colonne de "Références" des produits par manque de temps... Au besoin, tu peux aussi ajouter directement ces références dans les libellés d'article (onglet Produit), ainsi, ça te permettra de les faire afficher dans le Devis créé sans rien modifier d'autre.

 

En espérant avoir pu t'aider.

Bien cordialement,

Pièce jointe:
zip mDF Devis Professionnel (pour Zambol).zip   [ Taille: 70.16 Ko - Téléchargements: 21 ]
Edité par myDearFriend! le 29/10/2017 12:48:11

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Chrono centieme
#2
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1472

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 28-10-2017 12h10

Bonjour michajudo, bienvenue sur XLpages.com smiley

 

Tout d'abord, je me permets de supprimer le fichier que tu as joint à ton post car il s'agit du fichier que l'on retrouve en section de Téléchargement du site sous le lien suivant :

Chrono Centième

(si le fichier n'a subi aucune modification, un lien pointant sur sa source est toujours préférable à mon avis. C'est ce que j'ai modifié dans ton Post).

 

J'en ai d'ailleurs profité pour corriger cette même source en téléchargement car je viens de m'apercevoir d'un souci de couleur de fond du Userform lorsqu'on lançait le fichier sous Excel 2016 ! Un fond noir et une couleur de police noire qui rendait illisible son contenu (?) !!! Problème que je n'avais jamais remarqué jusqu'à lors frown

 

Pour répondre à ta question, par contre, je t'invite à télécharger le fichier que j'ai déjà posté dans une précédente discussion du Forum et qui devrait répondre totalement à ton besoin :

Chronometre avec pause reprise dans un UserForm

Voir le 6ème post de cette discussion, dans lequel j'ai mis à disposition une version modifiée de ce fichier  wink

 

SVP, n'hésitez pas à utiliser le moteur de recherche du Forum. La réponse à votre question s'y trouve peut-être déjà...

 

Bien cordialement,


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: personnalisation de mDF Devis Professionnel 2007.zip
#3
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1472

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 28-10-2017 11h19

Bonjour zambol, bienvenue sur XLpages.com smiley

 

Je pense que tu fais allusion au fichier que j'avais mis à disposition dans ce fil de discussion.

 

Cela dit, je pense aussi que ta demande manque un peu de précisions et un fichier exemple de ce que tu souhaiterais obtenir serait sans doute le bienvenu si tu souhaites que quelqu'un t'aide.

En particulier, un onglet liste des commerciaux (fictifs) et leur rattachement géographique par commune (c'est ce que je crois avoir compris dans ta demande...).

 

A vrai dire, le hasard fait que je suis justement en train de travailler dur sur mon prochain projet Devis-Factures Pro pour auto entrepreneurs. D'abord réalisé pour mes besoins personnels, c'est LE PROJET qui accapare tout mon temps dispo depuis plusieurs mois maintenant et j'espère bien pouvoir le finaliser au plus tôt !

 

Bien cordialement,

 

 

 


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Fermeture automatique d'un fichier Excel
#4
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1472

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 22-10-2017 02h11
 Bonsoir Nim, le Forum.

Savoir aider... oui, ça arrive parfois cher Nim.

Mais on peut aussi ne pas avoir de solution à proposer. C'est le cas pour moi, mais peut être que ta question en inspirera d'autres...

Bien cordialement 
Edité par myDearFriend! le 22/10/2017 09:56:02

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Afficher un icone quand case vide depuis trop longtemps
#5
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1472

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 19-10-2017 22h11

Bonsoir Emma2337, bienvenue sur XLpages.com smiley

 

Une proposition simple via une Mise en Forme conditionnelle :

 

  • Tu sélectionnes d'abord ta cellule B1.
  • Puis, depuis le Ruban Excel, tu fais Accueil / Mise en forme conditionnelle / Nouvelle règle
  • Dans la liste, tu sélectionnes "Utiliser une formule pour déterminer pour quelles cellules le format sera appliqué"
  • Dans la zone de saisie en dessous, tu saisies la formule suivante :
    =ET($A1<=AUJOURDHUI()-30;$B1="")
  • Au final, tu définis le format souhaité (un remplissage rouge par exemple)
  • Et tu valides le tout.

 

Pour appliquer ce même format à l'ensemble des cellules colonne B de ton tableau :

  • Tu sélectionnes à nouveau ta cellule B1
  • Puis, Ruban Excel : Mise en forme conditionnelle / Gérer les règles
  • Tu saisies simplement l'adresse de ta plage cible ("$B$1:$B$100" par exemple) dans la zone intitulée "S'applique à".

 

Encore une fois, c'est beaucoup plus long à écrire qu'à faire ! wink

 

Tu obtiendras ainsi un fond rouge en colonne B, sous 2 conditions :

  1. Il n'y a aucune saisie en résultat colonne B
  2. La date en colonne A est dépassée de plus de 30 jours.

 

Pouvoir afficher une icone via la Mise en forme conditionnelle dans ce cas de figure, ne me semble pas réalisable.

 

En espérant que ça puisse te dépanner.

Bien cordialement,

 

 


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Plage nommée INTROUVABLE
#6
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1472

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 16-10-2017 16h40

Bonjour Bassigny, bienvenue sur XLpages.com smiley

 

C'est normal que tu ne puisses pas voir ta plage nommée dans la liste en zones de nom, ni dans la fenêtre "Atteindre", c'est le cas pour les plages faisant appel à des formules ou fonctions de calcul (DECALER ou NBVAL dans ton cas).

 

Ta référence de plage, même si elle n'est pas listée, reste toutefois utilisable dans n'importe quelle formule de calcul dans tes feuilles.

 

Tu peux également y faire référence dans ton code VBA. Sauf erreur, dans ton exemple, tu devrais pouvoir y accéder via l'instruction suivante notamment :

 

Sheets("RéunionsEnCours").Range("LeNomDeTaPlage")

Bien cordialement,

 


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Mise en forme conditionnelle avec cellule vide
#7
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1472

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 15-10-2017 19h08

Bonjour nicos974, bienvenue sur XLpages.com smiley

 

Puisque tu utililses une version Mac XL2011, j'imagine que tu dois pouvoir forcément aussi suivre la façon de faire suivante (réalisée depuis XL2010 PC) :

 

  • Tu supprimes d'abord tes formats conditionnels (pour faire place nette !).
  • Tu sélectionnes la plage B2:E2 (pour la 1ere ligne de ton tableau)
  • Puis, depuis le Ruban, onglet Accueil / groupe Style / Mise en forme conditionnelle / Nouvelle règle...
  • Dans la liste "Type de règle", tu choisis "Appliquer une mise en forme uniquement aux valeurs rangées parmi les premières ou dernières valeurs"
  • En dessous, dans la liste déroulante, tu sélectionnes "derniers"
  • Dans la zone de valeur tu saisies 1 (au lieu de 10 par défaut)
  • Tu définis ensuite le format souhaité (fond couleur vert par exemple)
  • Et tu valides le tout !

 

Ca devrait fonctionner pour ce que tu veux faire, qu'il y ait - ou non - des cellules vides dans la plage.

 

C'est beaucoup plus long à écrire qu'à faire ! wink

Ces nouvelles MFC t'évitent de te creuser la tête pour trouver la bonne formule à appliquer, c'est toujours intéressant de les expérimenter et exploiter je pense...

 

Bien cordialement,


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: alimenter deux listbox
#8
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1472

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 13-10-2017 20h29

Bonsoir odilolo, bienvenue sur XLpages.com

Voici une façon de faire je pense...

Préparatifs obligatoires avant de faire fonctionner le code ci-dessous :

  • J'ai nommé ta 2ème listBox : "ListBoxMOUV"
  • J'ai défini sa propriété ColumnCount à : 5
  • Ta 1ére listbox est nommée "ListBox1" (j'ai laissé tel quel)

 

CODE VBA A AJOUTER AU MODULE DE CODE DE TON USERFORM1 :

Private Sub ListBox1_Change()
'myDearFriend! - www.mdf-xlpages.com 10/2017
Dim vTab As Variant
Dim CodeArticle As String
Dim Lmax As Long, L As Long
Dim C As Byte
    'Code article sélectionné ?
    With ListBox1
        If .ListIndex < 0 Then Exit Sub
        CodeArticle = .List(.ListIndex, 1)
    End With
    'Mettre à jour la liste des MOUVements
    With ListeBoxMOUV
        'RAZ du contenu
        .Clear
        'On stocke toutes les données "MOUV" dans une variable Tableau
        vTab = Sheets("MOUV").UsedRange.Value
        Lmax = UBound(vTab, 1)
        'Pour chaque ligne du Tableau
        For L = 2 To Lmax
            If vTab(L, 1) = CodeArticle Then     'Si le CodeArticle est trouvé...
                .AddItem vTab(L, 10)                        'Date
                .List(.ListCount - 1, 1) = vTab(L, 11)      'Type
                .List(.ListCount - 1, 2) = vTab(L, 9)       'Bénéficiaire
                .List(.ListCount - 1, 3) = vTab(L, 2)       'Article (Désignation)
                .List(.ListCount - 1, 4) = vTab(L, 4)       'Quantité
            End If
        Next L
    End With
End Sub

En pièce jointe, ton classeur exemple adapté en conséquence.

 

J'espère que cette solution te conviendra.

Bien cordialement,
 

Pièce jointe:
zip PourOdilolo.zip   [ Taille: 52.05 Ko - Téléchargements: 16 ]

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: AIDE EXCEL VBA COPIER COLLER FEUILLE COMPLÈTE AVEC GRAPH
#9
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1472

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 13-10-2017 19h10

Bonjour ritchi3131, le Forum,

 

Sans fichier exemple ce n'est jamais facile d'aider... sad

 

Cela dit, voici ma vision de ton problème. Proposition de code pour remplacer le tien (dans son ensemble) ...

CODE A COLLER DANS LE MODULE DE TON USERFORM (en remplacement de l'ancien) :

Option Explicit

Private Sub annuler_Click()
    Unload Me
End Sub

Private Sub OK_Click()
Dim Sh As Worksheet
Dim NomFeuille As String
Dim I As Byte
    If ComboBox1 = "" Then
        MsgBox ("VEUILLEZ SELECTIONNER LA SEMAINE A CREER")
        Exit Sub
    End If
    NomFeuille = UCase(ComboBox1.Value) & "_" & Format(Now, "yyyy")
    On Error Resume Next
    Set Sh = Sheets(NomFeuille)
    On Error GoTo 0
    'La feuille existe déjà ?
    If Not Sh Is Nothing Then
        MsgBox ("La feuille " & UCase(ComboBox1) & " existe déjà, si vous désirez regénérer une feuille de données veuillez la supprimer avant toute action")
        Exit Sub
    End If
   
    ' Copie de la feuille "Reporting" sans les formules pour éviter que les données se mettent à jours
    Application.ScreenUpdating = False
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets("Reporting").Copy After:=Sheets(Sheets.Count)
    With ActiveSheet
        'Suppression des formules
        .Cells.Copy
        .Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        'Nom de feuille
        .Name = NomFeuille
        .Range("A1").Select
    End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim S As Byte
    For S = 42 To 52
        ComboBox1.AddItem "Semaine" & S
    Next S
End Sub
 

En espérant t'avoir dépanné.

Bien cordialement,
 


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: mot de passe dans XLcalendar v3.2
#10
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1472

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016
Posté le : 05-10-2017 22h17

Bonsoir Fabio47, bienvenue sur Xlpages.com smiley

 

Tout d'abord je te remercie pour ton intérêt concernant cet utilitaire et surtout, te remercie grandement pour le partage de ton expérience et de cette astuce.

 

Je souhaite bien évidemment que cette solution soit efficace pour toi et pour d'autres également, mais j'avoue pour ma part que j'ai quand même un doute. La situation que tu décris (et que j'ai moi même observé de façon très aléatoire et donc très difficile à analyser) reste pour moi un vrai mystère que je n'ai pas réussi à cerner.

 

Merci encore à toi Fabio47 et soit le bienvenu.

 

Bien cordialement,


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

1 2 3 4 ... 142 »