Automatisation d'une fonctionnalité sur Excel 2003 Résolu/Fermé

Question

Bonjour à tous, 

Peut-on arriver à automatiser une mise en forme des colonnes suivant les critères définis ci dessous 

a) Si dans la colonne je détecte un zone de 1 et 2 (qui se suivent) je ne fait rien, 
b) Si dans la colonne je détecte deux ou plus de zones de 1 et 2, 

- je conserve uniquement la première zone de 1 et 2, mais 
- si dans la colonne qui suit il y a aussi plus de deux zones de 1 et 2, 
- je conserve la deuxième zone de 1 et 2 uniquement, mais 
- si dans la colonne qui suit il y a aussi plus de deux zones de 1 et 2, 
- je conserve la troisième zone de 1 et de 2 et ainsi de suite… 

La macro peut être lancée sur demande par une commande bouton. 

En finalité, il ne doit y avoir qu’une zone de 1 et 2 par colonne 

Pour facilité la compréhension voici un fichier joint : https://www.cjoint.com/c/ELrnzNK7ANt 

Merci d'avance de votre aide

ccm81 · Answer

Re-Bonjour 

Une tentative, mais sans garantie !!!
http://www.cjoint.com/c/ELstxN7THeH 

Cdlmnt

mijean94 · Answer

Bonjour à tous,

Message à CCM81,

Après utilisation je me rends compte qu’il me manque une fonctionnalité. 

Serait-il possible après une mise en forme d’avoir une fonction annuler dans cas ou le résultat n’est pas satisfaisant 

Merci d’avance

ccm81 · Answer

RE

Une solution pas chère (à programmer)
http://www.cjoint.com/c/ELtr65ZW3rH 

RQ. Ajoutes les deux instructions soulignées (pour accélérer l'exécution).
Tu peux aussi les ajouter aux deux autres procédures

Public Sub Nettoie()
Dim c As Range
Application.ScreenUpdating = False
.....
End With
Application.ScreenUpdating = True
End Sub

Une question. Tu n'es pas obligé de répondre.
J'ai aussi des petits enfants à distraire, peux tu m'expliquer (en détail, je ne suis pas très versé infographie) comment utiliser ton application ?

Cdlmnt

mijean94 · Answer

Bonjour à tous,

J’ai enfin trouvé du temps pour continuer à exprimer à quoi j’aimerais aboutir pour mon application de dessin sur Excel. Un grand pas à déjà été franchi avec l’aide sans faille de CCM81.

Le contexte :

A partir de l’éditeur de caractère j’ai créé des dessins ou j’utilise des dessins  (lettres ou autres) de la table de caractères existante.

Dans Excel sur mon onglet « maquette » je dépose le dessin par  WordArt, je mais le dessin à la taille souhaité, puis bouton droit « format de l’objet WordArt, aucune couleur et épaisseur bordure 0.25, et là le plus gros du travaille commence car il faut mettre des 1 et 2 sur le contour du dessin aux intersections lignes du dessin / cellules Excel.

Donc, je scan les colonnes une à une, à la première intersection ligne/ cellule, je mais un 1 à la deuxième intersection dans la même colonne je mais un 2 s’il y a une troisième intersection je mais un 1 , une quatrième intersection je mais un 2 et ainsi de suite pour toutes les colonnes. J’utilise la fonction colorisation. Si le travail ne me convient pas je fait les modifications souhaitées.

Ce qui je souhaiterais :

Pour  faciliter la création des sujets je souhaiterais que la mise en place des 1 et 2 soit réalisée, si possible, en automatique ? il ne resterait que les modifications souhaitées à faire manuellement.

Si joint un fichier avec un dessin et les 1 et 2 mis en place manuellement. https://www.cjoint.com/c/ELxmZyIpSZt

En plus :

Dans la fonction colorisation, serait-il possible d’avoir une mise en page identique à la fonction zone sur sélection en fin de colorisation afin d’avoir la zone de dessin visible entièrement à l’écran ?

Dans la fonction validation création, serait-il possible de faire un copier collé du dessin de l’onglet maquette dans l’onglet dessin. Attention le dessin doit être copié le plus possible en haut à gauche afin de ne pas avoir de ligne vide en haut et à gauche  (D3)?

Et pour finir serait-il possible d’avoir une « fonction nouvelle création » qui efface les 1, 2 et couleurs pour pouvoir créer un nouveau sujet ?


En souhaitant à tous de très bonnes fêtes de fin d’année

Merci d’avance pour vos réponses

mijean94 · Answer

Bonjour,

Si j’en juge par l’absence de réponses, mes demandes ne semblent pas réalisables ou trop difficiles à mettre en œuvre ou sans solutions à ce jour. 
Je vais donc continuer à travailler manuellement. Il faut beaucoup de temps mais c’est le résultat qui compte.

Merci à ceux qui m’on fait avancé dans mon projet et bonne année 2016 à tous.

Cordialement