Discussion :

[sardaucar]

Bonjour à tous

Débutant sur VBA Excel, je cherche à extraire les valeurs des couleurs d'une plage de donnée et à les retranscrire dans une autre.
Pour le moment j'ai codé ça :

Code :

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

1
2
3
4
5
6
7
8
Sub distri_couleur()
 
Dim i
For i = 1 To 12
Worksheets(1).Range("C"& i ).Value = Worksheets(1).Range("B" & i).Interior.Color
Next i
 
End sub

Ca me parcours bien ma colonne jusqu'à 12 lignes et m'indique le code couleur, mais impossible de le faire pour une plage de données (admettons C1:G12). Si quelqu'un aurai un conseil pour m'aiguiller :/.

Merci par avance !

Sardaucar

[Thautheme]

Bonjour Sardaucar, bonjour le forum,

Essaie avec :

Code :

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

1
2
3
4
5
6
7
Sub distri_couleur()
Dim CEL As Range
 
For Each CEL in Worksheets(1).Range("C1:G12")
     CEL.Offset(0, 6) = CEL.Interior.Color
Next CEL
End Sub

[Philippe Tulliez]

Bonjour,
Tu crées une fonction personnalisée qui renvoie le code couleur d'une cellule et tu l'utilises comme une fonction classique que tu placerais dans une plage.
Exemple avec une fonction personnalisée qui calcule l'hypoténuse
Code de la procédure de la fonction personnalisée nommée Hypotenuse

Code :

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

1
2
3
Function Hypotenuse(Cote1, Cote2)
 Hypotenuse = Sqr((Cote1 ^ 2 + Cote2 ^ 2))
End Function

Procédure VBA qui écrit la fonction dans les cellules de la plage E2:E6

Code :

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

1
2
3
Sub Test()
 Range("E2:E6").Formula = "=Hypotenuse(A2,B2)"
End Sub

Fonction que tu peux bien entendu utiliser avec Excel

Code :

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

=Hypotenuse(A2;B2)

[sardaucar]

Merci pour vos soluces qui marchent impec !

[Philippe Tulliez]

Bonjour,
C'est avec plaisir.
Pour en savoir plus à lire Les fonctions personnelles dans Excel