VBA : colorier cellules fusionnées en fonction activecell Résolu/Fermé

Question

Bonjour,

1) J'ai un tableau sur lequel j'ai, en colonne B, le nom de mes personnels et vu que j'ai beaucoup de personnels, j'ai mis en place un code pour que le nom du personnel se colore en vert quand je clique sur une cellule correspondant à sa ligne.

Exemple : Robert est inscrit en B1, quand je clique sur une des cellules sur la ligne 1 (C1, D1, E1, ...,etc) cela colore la cellule B1 en vert.

J'ai voulu mettre sur mon tableau 2 lignes par personnel et j'ai cherché pour que cela fonctionne sur des cellules fusionnées mais cela marche pour une ligne et non pour l'autre.

Exemple : j'ai fusionné la cellule B1 et B2 et inscrit Robert dedans, quand je clique sur une cellule de la ligne 1, ça me colore ma cellule fusionnée B1:B2, mais si je clique sur une cellule de la ligne 2, cela ne fait rien.
Je vous mets un bout de code comme pour l'exemple :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C1:NC2")) Is Nothing Then
Range("B1:B2").Cells(1).Interior.ColorIndex = xlColorIndexNone
Cells(Target.Row, "B").Interior.Color = RGB(0, 255, 0)
End If
End sub

Auriez-vous une solution ?

2) Dernière chose, j'ai essayé de faire ce code pour chaque personnel, et avec le code que j'ai mis, les cellules restent colorées quand je clique sur un autre personnel, sauf si je clique sur une cellule d'une ligne où rien ne se passe.

Exemple : j'ai fusionné la cellule B1:B2 et inscrit Robert dedans, j'ai fusionné la cellule B3:B4 et inscrit André dedans. Quand je clique sur une cellule de la ligne 1, cela colore la cellule fusionnée B1:B2, si je clique sur une cellule de la ligne 3, cela colore la cellule fusionnée B3:B4 mais la cellule fusionnée B1:B2 reste colorée. Mais si je clique sur une cellule de la ligne 2, la cellule fusionnée B1:B2 perd sa couleur.
Je vous mets le code que j'ai fait calqué à cet exemple :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C1:NC2")) Is Nothing Then
Range("B1:B2").Cells(1).Interior.ColorIndex = xlColorIndexNone
Cells(Target.Row, "B").Interior.Color = RGB(0, 255, 0)
End If
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C3:NC4")) Is Nothing Then
Range("B3:B4").Cells(1).Interior.ColorIndex = xlColorIndexNone
Cells(Target.Row, "B").Interior.Color = RGB(0, 255, 0)
End If
End sub

Auriez-vous une solution à ce problème ?

En vous remerciant d'avance ! Et désolé du pavé, je souhaitais être le plus exhaustif possible.

Cdlt,

Rémi

yg_be · Answer

bonjour,
pour le premier point, as-tu essayé de mettre 1 à la place de Target.Row?

cs_Le Pivert · Answer

Bonjour,

comme ceci:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DerniereLigneUtilisee As Long
DerniereLigneUtilisee = Cells(Rows.Count, 2).End(xlUp).Row 'où X est le numéro de la colonne donnée
If Not Application.Intersect(Target, Range("C1:NC" & DerniereLigneUtilisee)) Is Nothing Then
Range("B1:B" & DerniereLigneUtilisee).Interior.ColorIndex = xlColorIndexNone
Cells(Target.Row, 2).Interior.Color = RGB(0, 255, 0)
End If
End Sub
 

il faut cliquer sur la ligne haute des cellules fusionnées pour que cela fonctionne!

Remi2236 · Answer

Bonjour,

Cela fonctionne comme ce que j'avais fait, mais il n'y a pas possibilité que cela fonctionne également avec la ligne basse des cellules fusionnées ?

Cdlt,

Rémi

Remi2236 · Answer

Bonsoir,

Que dois-je mettre alors ? Car si je remplace target.row par 1, ça me colorie la cellule B1 uniquement.

Remi2236 · Answer

Bonjour,

Ca ne fonctionne pas. On ne pourrait pas se servir de la fonction Selection.Offset(1, 0) ?
Ou de demander à ce que si la 2ème ligne est sélectionnée, que cela reproduise le même effet que si on sélectionnait la première ligne ?

Cdlmt

Rémi

Remi2236 · Answer

Bonsoir,

Je vous mets un fichier exemple pour vous montrer :
https://www.cjoint.com/c/LBrumTizrPA

Cdlt,

Rémi

Remi2236 · Answer

Bonjour,
Mes connaissances en VBA sont assez faibles, je ne sais pas trop comment procéder. Vous pourriez m'aider pour le code ?
Cdlt
Rémi

f894009 · Answer

Bonjour a vous tous,

Remi2236:
Ca Roule depuis oct 2021?

f894009 · Answer

Bonjour,

Deux remarques pour le fichier que vous avez mis a dispo
   le code n'est pas au bon endroit. Vous l'avez mis dans ThisWorkbook ald VBA de la feuil1
   Vous n'avez besoin de votre fonction que de la ligne 1 a 6 pas pour la suite.
   Si c'est seulement un exemple et que dans votre fichier les cellules fusionnées sont dispersées, y a peut-être moyen de        reconnaitre des cellules fusionnées

Suite:

Detecter cellule appartient a une fusion: 
Apres recherche: ex Cells(1,1)Mergcells donne True si fait partie d'une fusion et False si non

Remi2236 · Answer

Bonjour f894009,

Très bien merci et toi depuis le temps ?

Tu vas peut-être pouvoir m'aider. C'est encore pour mon planning. Après l'avoir testé j'avais 2, 3 petites choses que je voulais modifier mais bon...je n'ai pas les connaissances nécessaires !

1) je voulais que quand je clique sur une ligne de mon planning, ça mette en surbrillance (vert dans l'exemple) le nom du personnel (sur l'exemple joint je les ai nommé 1,2,3,4,5... pour une question d'anonymat. Mais le souci c'est que j'ai des cellules fusionnées et je ne sais pas comment faire pour que la cellule fusionnée se mette en surbrillance.

2) C'est un peu long de se déplacer en scrollant avec la barre en bas. J'ai fait un Userform que je voulais utiliser pour scroller de semaine en semaine et que ça prenne en compte là où se trouve l'activecell. C'est à dire que si je suis au 2 janvier avec l'acticell, quand je clique sur le userform pour aller à droite ça prenne en compte qu'on est en semaine 1, et que si je suis en semaine 10 avec l'activecell, en appuyant sur le bouton de l'userform, ça ne me redéplace pas en semaine 2 en pensant que j'étais en semaine 1. Je ne sais pas si c'est très clair, manque de sommeil lol.

3) J'aurais aimé avoir un moyen de faire une remise à zéro du tableau, de pouvoir effacer toutes les shapes et les commentaire pour pouvoir le réutiliser en fin d'année.

4) J'aurais aimé que en ouvrant le tableau, cela me mette la colonne avec la date du jour à gauche de l'écran. Par exemple, si on est le 20 février, que ça me mette le 20 février à gauche de l'écran.

5) Enfin, quand je fais clic droit sur une cellule, ça ouvre l'userform pour définir l'activité du jour, mais en sauvegardant, je voudrais que si il n'y a pas de commentaire, ça enregistre quand même l'activité mais sans commentaire, mais que si il y en a, ça enregistre comme actuellement l'activité et que ça affiche le commentaire.

Ca fait beaucoup d'infos désolé. Mais si tu peux m'aider avec ça, ce serait super ! Comme tu connais un peu le fichier. Il n'y a pas d'urgence.

Merci en tout cas par avance.

Cdlt,

Rémi

Remi2236 · Answer

Avec le fichier c'est mieux lol

https://www.cjoint.com/c/LBuumKNgJyQ

Remi2236 · Answer

Et le mdp : 2236

f894009 · Answer

Bonjour,
Ca roule pour le moment.

Dans mon post, j'ai mis l'essentiel de la méthode. Mais vu que vous etes a la ramasse, je vous fais ca.
Vous pensez quand meme a vous former un peu meme si le cas present, ca ne coule pas de source.
Avez vous fait quelques recherches?
Si oui, c'est surement l'adaptation qui vous coince.

Je recupere le fichier et regarde la chose


Suite:
d'infos désolé
Pauvre de nous.

Pouvez me la refaire pour le 2

Remi2236 · Answer

Bonjour,

Tant mieux si vous vous portez bien vu la situation sanitaire actuelle. 

Pour le 2, j'ai fait un Userform avec deux boutons qui apparait au lancement du fichier, et j'aimerais qu'ils me permettent de me déplacer de semaine en semaine mais en fonction de la position de l'activecell.
Par exemple, si mon activecell est au 15 mars (c'est en semaine 11), si j'appuie sur le bouton de droite, je voudrais que ça me déplace à la semaine 12, encore une fois en semaine 13 etc....et si j'appuie sur le bouton de gauche, que ça me déplace à la semaine 10, puis 9, etc...

Je ne sais pas si je suis plus clair.

Cdlt,

rémi

f894009 · Answer

Re,
Je ne sais pas si je suis plus clair.
On peu plus clair. Pourquoi mois precedent/suivant alors que vous voulez des semaines?
Deplacement au premier jour de la semaine ou ?

Remi2236 · Answer

Re,

C'est bien les semaines que je veux, semaines suivantes/précédentes

Le  du top serait que l'activecell reste sur la ligne de la personne sur laquelle elle était avant de cliquer sur le bouton, et que ça me déplace l'activecell au premier jour de la semaine suivante/precedente

Cdlt

Rémi

f894009 · Answer

Re,

Ok

f894009 · Answer

Bonjour,

Fichier modifie: https://www.cjoint.com/c/LBxq4zSzOhf

Remi2236 · Answer

Bonjour,

Merci ! Je teste ça chez moi en rentrant.

Cordialement,

Rémi

Remi2236 · Answer

Bonjour,

Je viens de tester le fichier. J'ai des petits soucis :

- Lorsque je crée un shape avec le clic droit sur le planning, je peux effectivement créer un shape sans être obligé de mettre un commentaire mais du coup les commentaires restent visibles en permanence sur le planning, même s'il n'y en a pas. j'aimerais qu'ils n'apparaissent pas sauf si l'on met la souris sur la cellule contenant un commentaire.

- Lorsque je veux me déplacer de semaine en semaine, cela déplace de façon aléatoire en 6 et 7 jours et un chiffre apparait à la place du "S-1" . Est-ce que l'on ne pourrait pas utiliser la recherche de jour et se déplacer de lundi en lundi en fonction de l'activecell ? J'ai essayé de me débrouiller tout seul mais je dois utiliser la mauvaise syntaxe. J'ai essayé de passer par un bouton avec ça :

Private Sub CommandButton1_Click()
Dim DateSearch As String
MaVariable = "lun"
With Worksheets("Planning")
.Unprotect Password:="2236"
    ActiveCell.End(xlUp).Select
    Cells.Find(MaVariable, ActiveCell
    ActiveCell.Offset(2, 0).Select
.Protect Password:="2236"
End With
End Sub
 
- Enfin, pour l'ouverture du fichier à la date du jour, ce que je voulais dire c'est, est-ce que l'on peut faire que lorsque l'on ouvre le tableau, que la colonne à la date du jour s'affiche tout à gauche ?

Cordialement,

Rémi

PS : merci beaucoup du temps accordé !

f894009 · Answer

Bonjour,

Je regarde la chose

est-ce que l'on peut faire que lorsque l'on ouvre le tableau, que la colonne à la date du jour s'affiche tout à gauche ?
Pouvez expliquer plus en detail "le tableau"

Remi2236 · Answer

Bonjour,

Dans mon fichier j'ai une ligne avec les dates du 01 janvier au 31 décembre.
Ce que j’aimerais c'est que quand on ouvre le fichier, que la colonne contenant la date du jour s'affiche tout à gauche de l'écran, histoire que je puisse voir en ouvrant le fichier quelles sont les activités du jour pour mes personnels sans avoir à me déplacer dans le fichier pour retrouver la colonne de la date du jour.

f894009 · Answer

Re,

ouvrant le fichier quelles sont les activités du jour pour mes personnels
D'apres ce que vous avez ecrit, le fait d'ecrire la date du jour en haut a gauche ne vous donnera aucune infos sur les activites!!
Allez sur la colonne de la date du jour serait plus opportun

Au fait dans le fichier du mois d'octobre 2021, le fait de passer la souris sur une cellule avec commentaire, celui -ci s'affiche.
Donc que ce passe-t-il dans ce nouveau fichier qui est une copie du precedent?

Remi2236 · Answer

Re,

Ce que je veux dire c'est que j'ai les 2 premières colonnes qui sont figées et que j'aimerais que la colonne contenant la date du jour en ligne 3 s'affiche à droite de ces deux colonnes figées quand on ouvre le planning.

Dans le fichier que vous m'avez envoyé, quand on met un shape, on n'est plus obligé de mettre un commentaire pour que le shape soit créé mais il y a un commentaire qui reste en permanence affiché sur le shape créé. Alors qu'avant on voyait le shape créé mais la bulle contenant le commentaire ne s'affichait pas, sauf si on passait la souris dessus.

f894009 · Answer

Re,

ça enregistre comme actuellement l'activité et que ça affiche le commentaire.
C'est ceci qui a provoque un quiproquo a l'insu de mon plein gres. Je corrige

la date du jour en ligne 3 s'affiche à droite de ces deux colonnes figées
Pige pas l'utilite, mais c'est vous qui voyez. Par contre pas possible ligne 3 et encore moins a droite des deux cellules voir image:


Le numero ald S-1, c'est le numero de colonne, ai oublie de modifier.
Le deplacement n'est pas celui que vous aviez demande mais je voulais vous donner kake chose car je ne savais pas si je pourrai  finir rapidement

f894009 · Answer

Bonjour,

Fichier modifie pour saut semaine:  https://www.cjoint.com/c/LCdpIwl0nZf

De lundi a lundi S-1 ou S+1 si vous etes sur un lundi
Si vous etes entre mardi et dimanche ira sur le lundi semaine en cours  pour S-1, S+1 pas de probleme

Par contre pige toujours pas pour votre date du jour

Remi2236 · Answer

Bonjour,

Je viens de tester c'est franchement super ! Merci !

Pour la date du jour, sur le tableau j'ai les 2 premières colonnes (colonne A et colonne B) qui sont figées avec le type de personne (colonne A) et les noms des personnels (colonne B), et j'aurais aimé que en 3ème colonne il y ait la colonne concernant la date du jour qui s'affiche quand on ouvre le fichier. Par exemple, si on est le 04/03/2022, et bien si j'ouvre mon tableau, en 3ème colonne il y aura la colonne où il y a la date du 04/03/2022, c'est à dire la colonne "BM". Si on est le 10/01/2022, ce sera la colonne "L", etc. Je ne sais pas si c'est plus clair.

Et dernière demande, est-ce que c'est possible d'inverser sur le userform UF_Activités les flèches pour changer les dates quand on modifie un shape ? Car actuellement, il faut cliquer sur les flèches du bas pour augmenter les dates (passer par exemple du 01/03/2022 au 02/03/2022) et sur les flèches du haut pour diminuer les dates (par exemple pour passer du 02/03/2022 au 01/03/2022). J'ai regardé sur google, ils parlent de multiplier la valeur min et max par -1 du spin mais je n'arrive pas...

Cordialement,

Rémi

f894009 · Answer

Bonjour,

Ok, je regarde la chose

f894009 · Answer

Bonjour,

Fichier modifie pour la date en A2 pas en 3ème colonne, trop de modif
Vous avez la date du jour en A1, donc A2 colonne associee au jour
https://www.cjoint.com/c/LCfkCxPZicf

Je regarde pour l' inversion +/- date

f894009 · Answer

Bonjour,

Fichier modifie pour inversion +/- dates et si vous cliquer sur l'adresse colonne jour en A2: defilement pour attendre la colonne du jour, clique une deuxieme fois vous ramene en colonne C

 https://www.cjoint.com/c/LCioCJmCRzf

Remi2236 · Answer

Bonjour,

Je viens de tester, ça marche nickel. Merci beaucoup pour tout ce travail. Je ne devrais plus vous embêter avec ce tableau normalement. Encore merci pour tout. Bonne continuation et portez vous bien.

Cordialement,

Rémi

VBA : colorier cellules fusionnées en fonction activecell

31 réponses

Discussions similaires