Tu as tout compris

 

Le problème vient bien du nom de ville qui pourrait contenir aussi un ou plusieurs tirets (je n'y avais pas pensé)!

 

On va cependant profiter du fait que lorsqu'il est inclus dans un nom composé, le tiret n'est pas précédé, ni suivi d'un espace...

 

Tu peux donc régler facilement le souci en modifiant les 2 lignes suivantes :

If Len(vText) - Len(Replace(vText, "-", "")) = 2 Then
    vDate = Mid(vText, InStr(1, vText, "-") + 2, 10)

Comme suit :

If Len(vText) - Len(Replace(vText, " - ", "")) = 6 Then
    vDate = Mid(vText, InStr(1, vText, " - ") + 3, 10)

(note la présence d'un espace avant et d'un espace après le tiret dans la deuxième version)

 

Ca devrait être bon ce coup ci !

 

Bien cordialement,

Bonjour KeepCool, le Forum,

 

Il y a une infinité de façons de faire pour ce type d'opération.

 

Voici mon interprétation du traitement VBA :

DANS UN MODULE DE CODE STANDARD

Option Explicit

Sub Traitement()
'--------------------------------------
' myDearFriend! -  www.mdf-xlpages.com
'--------------------------------------
Dim vTab As Variant
Dim FSource As Worksheet, FCible As Worksheet
Dim Plage As Range, rLign As Range, R As Range
Dim vText As String, vDate As String, vReunion As String
Dim L As Long, C As Long, lgnDebutTab As Long, lgnFinTab As Long, Lcible As Long, CCible As Long

    Set FSource = Sheets("Feuil1 Page Web Récupérée")           'à adapter
    Set FCible = Sheets("Feuille 2 Résultat Attendu")           'à adapter
   
    'COLLECTE DONNEES
    With FSource
        'A quelle ligne commence le tableau (de 8 colonnes) ?
        lgnDebutTab = .Cells(1, 8).End(xlDown).Row              '1ère donnée rencontrée en descendant la colonne H
        If lgnDebutTab = 0 Then Exit Sub                        'si aucun tableau trouvé!
       
        'A quelle ligne se termine ce tableau ?
        lgnFinTab = .Cells(1048576, 8).End(xlUp).Row            '1ère donnée rencontrée en remontant la colonne H
        If lgnFinTab = lgnDebutTab Then Exit Sub                'si le tableau est vide!
       
        'On récupère et mémorise les données sources souhaitées dans un tableau variant
        vTab = .Range(.Cells(lgnDebutTab + 1, 1), .Cells(lgnFinTab, 8)).Value
       
        'On récupère et mémorise la Date de la course et le n° de Réunion ?
        For L = 1 To lgnDebutTab - 1
            vText = .Cells(L, 1).Value
            If Len(vText) - Len(Replace(vText, "-", "")) = 2 Then       'Il y a 2 "-" dans l'expression trouvée
                vDate = Mid(vText, InStr(1, vText, "-") + 2, 10)
                vReunion = .Cells(L - 1, 1).Value
                Exit For
            End If
        Next L
    End With
   
    'MAJ RESULTATS
    With FCible
        'On efface les anciens résultats
        .Cells.ClearContents
        'Pour chaque ligne du tableau mémorisé
        For L = 1 To UBound(vTab, 1)
            If Left(vTab(L, 1), 1) = "C" Then
                Lcible = Lcible + 1
                CCible = 2
                'Pour chaque colonne source
                For C = 1 To 8
                    Select Case C
                    Case 1
                        'Date en colonne 1
                        .Cells(Lcible, 1).Value = vDate
                        'Réunion en colonne 2
                        .Cells(Lcible, 2).Value = vReunion & vTab(L, C)
                        CCible = CCible + 1
                    Case 5, 7
                        CCible = CCible + 1
                        .Cells(Lcible, CCible).Value = vTab(L, C)
                    Case 8
                        CCible = CCible + 1
                        .Cells(Lcible, CCible).Value = Val(Mid(vTab(L, C), 21))
                    End Select
                Next C
            End If
        Next L
    End With
   
    MsgBox "Traitement terminé!"

 

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

 

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

 

Bien cordialement,

Pour ma part, je suis navré Soleil, mais ce sujet est visiblement hors de ma compétence.

 

J'espère qu'Eric et d'autres pourront exploiter au mieux tes explications (voir pièces jointes dans mon post précédent) et pourront peut-être te venir en aide.

 

Bien cordialement,

re-Bonjour,

 

Pour aider Soleil dans sa recherche d'aide et permettre à chacun d'accéder aux pièces qui n'avaient pu être jointes :  vous trouverez ci-dessous les pièces manquantes.

 

Pour information, j'ai dû retailler le fichier Excel (et en particulier les images contenues) pour que l'ensemble puisse passer dans ce forum. J'espère ne pas avoir trop dénaturé la version originale fournie par Soleil, mais c'est un principe de base ici : on ne garde uniquement que l'essentiel dans les fichiers exemples du forum.

 

Par ailleurs, j'en ai quand même profité pour augmenter légèrement * la taille maximum autorisée pour les pièces à l'avenir : la taille maximum des pièces jointes passe de 80 ko à 100 ko maximum à partir d'aujourd'hui.

 

* Pour rappel : il n'y a aucune publicité sur mDF-XLpages. Mais l'hébergement du site n'est malheureusement pas gratuit et je ne peux pas me permettre mieux pour l'instant.

 

Bien cordialement,

Bonjour Soleil, Eric, le forum.

 

Citation :

 

Soleil, je te confirme que ton fichier en pièce jointe est bien passé dans ton post précédent (celui de 22h39 ci-dessus) et nous pouvons donc y accéder.

 

L'ennui, c'est que visiblement, personne ne comprend ta demande...

 

Tu parles de vouloir automatiser un traitement ou quelque chose, mais Eric, tout comme moi (et certainement d'autres), on ne comprend pas de quoi il s'agit... ni quel est l'usage et ton objectif.

 

Tu parles notamment d'une "diagonale", mais il n'y a aucune diagonale tracée dans ton fichier (où bien j'ai raté quelque chose...)

 

Une chose cependant : si ton objectif est de pouvoir générer une feuille Excel ayant le "look" d'une feuille de cahier d'écolier avec une impression à l'identique et au millimètre près... alors le challenge risque d'être compliqué (problème de résolution et échelle d'écran, d'imprimante...). La meilleur solution dans ce cas étant sûrement de réaliser un modèle mannuellement et faire des tests d'impression à tâton jusqu'à obtenir LE modèle qui te convienne et le conserver précieusement pour réutilisation dans tes travaux.

 

Si tu souhaites de l'aide, il faut être plus clair (et en particulier quand on a choisi un pseudo comme "Soleil" )

 

Bien cordialement,

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... )

 

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,

Bonjour michajudo, bienvenue sur XLpages.com

 

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 

 

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 

 

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,

Bonjour zambol, bienvenue sur XLpages.com

 

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,

 

 

 

 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 

Bonsoir Emma2337, bienvenue sur XLpages.com

 

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 !

 

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,