Casse tete pour moi !!

[gihome]

Bonjour,
Tout d’abord Bravo pour tous les commentaires pertinents de ce site … de les lires m’a déjà beaucoup servi.

Je bosse dans la fibre optique et j’ai assez souvent besoin de souder des fibres différentes les unes avec les autres…. Plus c’est simple moins c’est rigolo…

Je me suis fait un petit tableau afin de m’aider dans cette tache..

Seulement je suis un peu limite quant a la programmation Vba … et donc … je compte sur votre savoir faire.

J’aimerais que mon fichier Excel me teinte tous :
• le 1 et ses multiples de 12 en rouge
• le 2 et ses multiples de 12 en bleu
• le 3 et ses multiples de 12 en vert
• etc… de toutes façons j’ai déjà plus ou moins fait ça sur le fichier ci-joint sauf que je ne sais pas comment faire pour les multiples de 12 …


Il faudrait aussi bien sur que les textes sur fond noir, rouge, bleu, etc … soit tout ceux qui si il était en noir ne se verraient pas ..

Mille mercis d’avance pour votre aide…

Si au pire vous me donniez l’info pour intégrer le changement de couleur de la font cela me serait déjà très utile…

Gihome🙄

 

[Staple1600]

Re : Casse tete pour moi !!

Vonsoir

Remplace comme suit dans le code de la macro fibre
pour traiter les couleurs foncees

'....le code au dessus n'est pas à changer
With mycell
   With .Interior
     .ColorIndex = 9
     .Pattern = xlSolid
  End With
.Font.ColorIndex = 2
End With
'... le code dessous non plus

il faut faire le changement pour chaque couleur foncée

Pour avoir la liste des couleurs

essaie cette macro dnas une feuille vierge

Sub testCOLOR()
Dim i
For i = 1 To 56
Cells(i, 1).Interior.ColorIndex = i
Cells(i, 2) = i
Next
End Sub

 

[Staple1600]

Re : Casse tete pour moi !!

Re



j'avais un peu de temps devant moi

j'ai modifié comme indiqué dans mon message précédent.


A+ pour savoir si ca fonctionne comme tusouhaites

 

[gihome]

Re : Casse tete pour moi !!

Re



j'avais un peu de temps devant moi

j'ai modifié comme indiqué dans mon message précédent.


A+ pour savoir si ca fonctionne comme tusouhaites

Super Staple1600....

Merci ca faisait 2 heures que j'etais sur mon pc pour trouver la soluce ....!!

En fait j'ai ajouter la couleur noir pour les cases colores en blanc ... sinon les caracteres restaient en blanc..

En tous cas merci beaucoup sans vous j'y etais encore.....

Maintenant il ne me reste plus qu'a faire une version 288 fo et une 576 fo...
ca va donner un tableau geant...

Merci encore a GI GI pour ton aide😉

 

[Staple1600]

Re : Casse tete pour moi !!

Re


Je n'ai pas vu le code de pierreean (bonjour au passage)

J'ai modifié un chouia (mais j'ai l'intuition que je me trompe)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
n = Target.Value
liste = Array(3, 5, 4, 6, 29, 2, 9, 15, 53, 1, 8, 7)
If Target.Value > 11 Then n = Target.Value Mod 11
Target.Interior.ColorIndex = liste(n)
End Sub

Cela semble fonctionner