formater les cellules Résolu/Fermé

Question

Bonjour, 
je voudrais formater les cellules de "A" à "O" quand ma cellule"D" est pleine
je voudrais leur mettre des bordures
En macro si possible car en MFC les conditions s'effacent avec les lignes et a un moment ça coincera
j'ai fait cette macro mais elle formate  la ligne dessous ou  que je clique  après
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("zone_format")) Is Nothing Then
Call form ' ma macro de format
 End If
Application.EnableEvents = True
End Sub
Le debut de la macro
Private Sub form ()
 ActiveCell.Offset(0, -3).Range("A1:O1").Select
    ActiveCell.Activate
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
etc etc
End Sub
si vous voulez je mettrai un fichier exemple 
merci de votre aide

Le Pingou · Answer

Bonjour,
Au passage, contrôler que la cellule active dans la procédure [Private Sub form ()] corresponde à la ligne à traiter !

surplus · Answer

Bonjour
j'avais fait une macro avec les reference relatives
je n arrive pas a l'adapter
je vous mets le fichier je vois que la macro n'apparait pas
https://www.cjoint.com/?DEnnGqPgLb3
Pour que ca marche il faut remplir la colonne D et les lignes de A à O devraient mettre des bordures
merci

Le Pingou · Answer

Bonjour,
Merci de voir les petits commentaires dans les 2 procédures.
Votre fichier : https://www.cjoint.com/?3EnpmPfok6B

Le Pingou · Answer

Bonjour,
En principe dans un tableau les lignes pleines se suivent (sont donc formatées) et si vous avez par hasard une cellule en colonne [D] vide alors pas de formatage.

surplus · Answer

Re,
je viens de mieux regarder les macro 
je ne comprends pas comment elle se déclenche
Sub active_event()
Application.EnableEvents = True
End Sub 
pourquoi avoir rajouté celle ci?
merci de m'éclairer car si je veux faire l inverse ça va être dur lol
j arrive pas trop a comprendre déjà la
merci

Le Pingou · Answer

Bonjour,
Je l'ai créé pour réactiver les événements du classeur car votre code produisait une désactivation des événements car vos commandes [EnableEvents] n'étaient pas au bon endroit.
Vous pouvez la supprimer sans autre.

surplus · Answer

bonjour
oui je l'avais mal placé a force de changer mes macros 
le déclenchement de la macro est bien form Target.Address ?
qui veut dire macro s'exécute dans l'adresse cliqué
si je veux si je veux faire une macro si vide aucune bordure 
je réécris la même et je formate sans bordures ?
merci

surplus · Answer

Bonjour;
vous avez raison 
mais en dernière position c'est pas un problème mais entre 2 lignes plus dur
car j'aurais 3 feuilles a gérer a partir d'un userform donc il faudrait que ça se fasse tout seul que si  entre 2 en fait
c'est faisable?
slts

Le Pingou · Answer

Bonjour,
Expliquez comment vous décidez la ligne à supprimer dans un tableau dont les lignes se suivent... ?
Qu'elle est la structure de votre formulaire (UserForm) qui sert à la gestion... ?

surplus · Answer

bonjour
en fait c'est pour gérer des repas a distribuer a de personnes âgées
l'userform prendra les cases habituelles "nom" "prénom" "adresse" si régime spécial "avec sel" "sans sel" "vin" pas "vin"
et on efface le client si il arrête les repas ou malheureusement en cas de décès
donc ligne a supprimer
il y aura 3 feuilles des tournées a faire "nord""sud" "est"
et comme il sera géré par 2 ou 3 personnes je veux le sécuriser au max

Le Pingou · Answer

Bonjour,
Pour terminer la soirée ; vous devez avoir une commande dans le formulaire qui vous permette de choisir de supprimer la personne y relative ce qui entraine la création d'une procédure qui recherche le nom de la personne dans le/les feuille/s et supprime l'enregistrement correspondant.
Bonne nuit.

surplus · Answer

bonjour,
j ai pensé plus a 2 combobox 
le 1er choix des feuilles et le second liste des noms de la feuille du 1er combobox
donc on supprimera que sur la feuille citée 
je vous l'expose comme ça mais pas facile a mettre en place c sur que je vais roder sur ce forum lol
bonne nuit

surplus · Answer

bonjour
j'ai un soucis pour combiner 2 macros sur ce fichier 
je voudrais que les colonnes D H et O se formatent en majuscule 
j'essaie de combiner les 2 mais la majuscule se met que si on re clique dessus
je vous mets le fichier voir ce que j ai fait
https://www.cjoint.com/?DEocnI8LZZP
ou est l'erreur?
merci
a bientot

Le Pingou · Answer

Bonjour,
Je vous rappelle que vous aviez précisé : gérer à partir d'un userform...   
Ma question, pourquoi ce formulaire ne figure pas dans votre fichier... ?
Le dire c'est une chose mais le faire c'est mieux !

Le Pingou · Answer

Bonjour,
Merci pour le fichier, je vais regarder, patience.

Le Pingou · Answer

Bonjour,
A première vue il  y a une inversion des colonnes [A : B] et [D : E] pour les feuilles [EST,OUEST,SUD].... !
Pouvez-vous m'indiquer depuis quel formulaire vous gérez les feuilles... ?

Le Pingou · Answer

Bonjour,
Merci, et qui est à l'origine de cette macro ... !

surplus · Answer

Bonjour
je l'ai trouvé dans un autre fichier de gestion de stock 
je me rappelle plus ou mais j'ai l'original dans une clef

Le Pingou · Answer

Bonjour,
Merci, dans ce cas je vais voir si je trouve dans les diverses procédures ou se trouve l'origine du problème.

surplus · Answer

Bonjour
vous voulez le fichier original?

Le Pingou · Answer

Bonjour,
Non merci mais plutôt celui qui a généré le code... !

surplus · Answer

bonjour
en fait le code d'apres ce que j'ai travaillé dessus c'est que dans la 3 eme colonne il y a un index de chaque nom ce qui permet de faire le click droit comme a l'initialisation de l'userform.
Ce que j'essayais de faire c'est de mettre la colonne 4 et 5 en 1er dans le listbox.
le fichier fonctionne bien si le nom et prénoms sont en colonne 1 et 2

Le Pingou · Answer

Bonjour,
C'est très gentil de votre part, je l'ai déjà trouvé mais par contre la personne qui à réaliser ce code à vraiment chercher à ce que ce soit introuvable ou alors c'est du rafistolage... !

surplus · Answer

Bonjour
c'est vrai que moi je ne trouve pas la solution depuis 4 j mais j'ai pas les mêmes connaissances évidement que vous

surplus · Answer

Re,
j'ai regardé dans mes post en fait c'est  "f894009" qui a pondu ce code 
dans ce post
https://forums.commentcamarche.net/forum/affich-26627688-copier-donnees-d-une-listbox-vers-page

Le Pingou · Answer

Bonjour,
Vous pouvez chercher longtemps, et surtout avec du code bricolé... ! Sans tenir compte des procédures qui apparemment non rien à y faire... !
J'ai mis le doigt sur une incohérence entre les données pour la liste client du formulaire et celle pour la feuille  extrait des clients selon région ou vous appliquez la même source au deux ce qui n'est pas correct car l'une à 3 colonnes et l'autre 17.
Je regarde demain comment corriger cela sans tout massacré.
Note : attention, ce n'est pas le code de f894009 (salutations)il est parfait.

Le Pingou · Answer

Bonjour,
J'espère que cela va fonctionner sans surprise.
Votre fichier : https://www.cjoint.com/?3EvqoAiaKWw 
Je vous conseille de sérieusement faire le ménage dans les modules, j'ai eu quelques gentilles surprises...... !

Le Pingou · Answer

Bonjour,
J'espère que cela va fonctionner sans surprise.
Votre fichier : https://www.cjoint.com/?3EvqoAiaKWw 
Je vous conseille de sérieusement faire le ménage dans les modules, j'ai eu quelques gentilles surprises...... !

surplus · Answer

Bonjour
c'est a dire "gentilles surprises...... ! "?
j'avais deja pas mal épuré
je viens de regarder en fait ça fonctionne pas bien car quand on fait le clic droit les noms sont décalés
car d"apres ce que je comprends l'index se decale car on ne garde pas l'index de depart non?
autre chose que je remarque si j"ajoute un nom dans les feuilles j ouvre l'userform et le nom apparait si je ferme et enregistre le fichier 
a la prochaine ouverture le nom disparait

Slts               A bientôt 
Surplus

Le Pingou · Answer

Bonjour,
J'ai corrigé le problème : normalement si vous regardez quand on change de feuille ca modifie la feuille du meme nom "EST,OUEST,SUD" et le soucis majeur vient de la car je n'arrive pas a remettre chaque colonne a sa place car je voudrais garder la structure initiale de la feuille "Clients".
Il me semble que là c'est correct Oui  Ou non ?

Le Pingou · Answer

Bonjour,
Je viens de regarder en fait ça fonctionne pas bien car quand on fait le clic droit les noms sont décalés 
Réponse : un clic droit où, on ne voit rien depuis ici... ?

Car d'après ce que je comprends l'index se décale car on ne garde pas l'index de départ non? 
Réponse : 1.- quel index qui se décale ?
2.-c'est votre application est c'est vous qui savez ce que vous devez avoir comme résultat... !

Autre chose que je remarque si j'ajoute un nom dans les feuilles j'ouvre l'userform et le nom apparait si je ferme et enregistre le fichier 
a la prochaine ouverture le nom disparait
Réponse : rien de plus normal car les données de bases sont en feuille [Clients] donc les modifications doivent se faire sur base Oui / Non

Le Pingou · Answer

Bonjour,
Je constate que vous avez l'art de ne jamais répondre exactement aux commentaires mais vous ajouter toujours d'autres problèmes qui sont incompréhensible pour la personne qui n'est pas à l'origine de l'application.
Je regrette, je veux bien aider le mieux possible mais certainement pas de cette manière.

surplus · Answer

bonjour
excusez moi alors je reprends question 1 
Réponse : un clic droit où, on ne voit rien depuis ici... ? 
quand on fait click droit sur un nom du listbox "client" les données se copient dans les divers textbox de droite.
 question2
Réponse : 1.- quel index qui se décale ? 
quand l'userform s'initialise la colonne 3 est un index de chaque nom qui doit lui etre attribué même dans le combobox "fam" si vous regardez une fois le choix changé les données de la colonne 3 ne correspondent plus a ceux du départ c'est pour cela que le decalage de noms se fait
3eme
les modif se font sur la base mais ne sont pas transmises aux autres feuilles 
j ai du fermer et reouvrir le fichier 3 fois pour le voir apparaitre dans la feuille correspondante
excusez encore mais je n'ai surement pas votre logique

Le Pingou · Answer

Bonjour,
Je ne vais pas plus loin et vous laisse voir ce que je trouve pour la question 2 : https://www.cjoint.com/?3EvxcfWn8t6
Le point 3 est impossible ....!

Formater les cellules

34 réponses

Discussions similaires