Discussion :

[Theophile69]

Bonjour à tous,

voici mon défi du jour.
Dans le fichier ci-joint (ColorationTransOnglette.xlsm) j'ai douze onglets (un par mois) réunissant un récapitulatif de consultations thérapeutiques (les noms sont fictifs bien surs), avec nom (intitutlé), montant, numéro de chèque, etc.

Lorsqu'on clique sur le petit icone de chèque en haut à droite, un userform s'ouvre, destiné à récapituler dans sa listbox les chèques que l'utilisateur aura sélectionné avec un click de souris pour générer une remise de chèque automatique.

Je souhaiterai faire en sorte que : dès que l'userform est activé, un click sur un numéro de chèque transforme la couleur de la cellule contenant ce numéro, qu'au besoin un autre click fasse repasser cette couleur en blanc, et surtout que cette coloration des cellules à sélectionner pour la remise de chèque soit possible sur plusieurs feuille en même temps. L'idée étant de pouvoir créer une remise de chèque intégrant des chèques du mois précédent...

PLUS SIMPLEMENT: userform ouvert: a chaque click sur un numéro de chèque la cellule passe en couleur sur l'ensemble des feuilles qu'on souhaite.

Quelqu'un a t'il une piste car je reste soit bloqué par l'événement unique d'un worksheet avec sn selectionchange, soit bloqué par une procédure que je n'arrive pas à rendre dynamqieu( lorsqu'on click...).

La suite que j'entrevois évidemment, c'est de boucler pour chaque feuille la récupération des informations sur la ligne correspondante à une cellule de couleur, les intégrer dans une variable tableau puis dans une listbox et de tout coller pour imprimer, puis de repasser automatiquement les cellules en blancs en fermant le formulaire ou le classeur.

Eh bien si quelqu'un a le gout, la motivation, le génie, la fougue...Je suis preneur pour cette "coloration trans-onglette".

[EricDgn]

Je n'ai pas tout à fait compris la destination des userforms, mais voici toujours un début de solution pour la colorisation du client sélectionné sur toutes les feuilles:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub MemeClient(cR As Range)                            '--- à placer dans un module
   Dim wSh As Worksheet, sNom As String, kR As Long
   Debug.Print cR.Address, cR.Value
   SendKeys "{ESC}"
   sNom = cR.Value
   For Each wSh In Worksheets
      kR = 3
      With wSh
         While .Cells(kR, 2) <> ""           '--- s'arrête dès qu'il y a une cellule est vide
            If .Cells(kR, 2) = sNom Then     '--- nom rencontré = nom du patient
               With .Cells(kR, 2).Interior
                  .Pattern = xlSolid
                  .Color = 10092441
               End With
               '--- et ajouter ce qu'il faut pour utiliser les données de cette ligne
            Else
               .Cells(kR, 2).Interior.Pattern = xlNone
            End If
            kR = kR + 1
         Wend
      End With
   Next wSh
End Sub

et ensuite dans chaque feuille, ajouter le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   MemeClient Target
End Sub

Le double-clic me semble nettement préférable au clic normal.
Pour que tous les noms soient désélectionnés, il suffit de double cliquer une cellule vide.
Attention que les noms soient bien identiques dans toutes les feuilles (Dampart <> Dampart 2).
Bonne continuation.