Discussion :

[alexc88]

Salut à tous,

Bon j'ai besoin d'une petite aide ..
Voilà j'ai un fichier avec en colonne A B et C mon RGB (possibilité de le mettre en une colonne)
et en colonne D, j'ai la couleur qui doit s'afficher ..
J'ai la fonction pour ma première ligne :

Code :

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

1
2
3
4
5
6
7
Sub color_cell()
 
With Worksheets("Feuil1")
.Range("D4").Interior.Color = RGB(.Range("A4").Value, .Range("B4").Value, .Range("C4").Value)
End With
 
End Sub

Mais problème, je n'arrive pas l'appliquer pour mes X lignes suivantes .. je dois faire une boucle je présume mais je n'arrive pas à appliquer ..

Quelqu'un pourrait il allumer la lumière .. ou me filer un casque de vision nocturne ?

Question subsidiaire : La fonction permet elle de gérer toutes les combinaisons de couleurs possibles et imaginables ?

Merci beaucoup FOFO !

[Menhir]

Mais problème, je n'arrive pas l'appliquer pour mes X lignes suivantes .. je dois faire une boucle je présume mais je n'arrive pas à appliquer ..

Tous les secrets des boucles : http://silkyroad.developpez.com/vba/boucles/

Mais comme cette aide t'a déjà été fournie il y a plusieurs mois sans réponse de ta part, je suppose que ce message sera inutile.

Question subsidiaire : La fonction permet elle de gérer toutes les combinaisons de couleurs possibles et imaginables ?

Dans la limite des 16 millions disponibles.

[sogedic]

Moi, j'aime bien les questions simples

Code :

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

1
2
3
4
5
6
7
8
9
 
    Dim nbLg As Long, i As Long
    With Worksheets("Feuil1")
        nbLg = .Cells(4, "A").End(xlDown).Row
        For i = 4 To nbLg
            .Range("D" & i).Interior.Color = _
                RGB(.Range("A" & i).Value, .Range("B" & i).Value, .Range("C" & i).Value)
        Next i
    End With

[alexc88]

Et merci SOGEDIC !!
Ca fonctionne parfaitement dans une private sub, pourrais tu éventuellement me faire une explication pas à pas ?
Que je comprenne la démarche, l'utilité des critères ..
je vais surement pouvoir raccrocher tes explications avec les "cours" que j'essaye d'ingurgiter.

Merci encore
A+

[sogedic]

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
 
'Declaration des variables : entier long pour compter des lignes (integer : entier court pour compter un nombre de colonne)
Dim nbLg As Long, i As Long
 
'Avec la feuille
With Worksheets("Feuil1")
 
      ' Compter le nombre de lignes : on se place en A4 = range("A4")=cells(4,1)=cells(4,"A')
      'on descend jusqu'à la dernier cellule adjacente non vide = CTRL.MAJ+fleche ver le bas
      'on récupère la ligne (row)
 
      'range("A1") = de la feuille active
      '.range("A1") de la feuille dans laquelle se trouve le with
      nbLg = .Cells(4, "A").End(xlDown).Row
 
 
      For i = 4 To nbLg
          .Range("D" & i).Interior.Color = _
                RGB(.Range("A" & i).Value, .Range("B" & i).Value, .Range("C" & i).Value)
       Next i
End With