Discussion :

[riquet90]

Bonjour,

Voici 2 fonctions.
Je cherche des explications sur With sheets end With

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Sub Couleurs()
Dim recu As String, rouge As Integer, vert As Integer, bleu As Integer
 
 
With Sheets(1)
recu = .Range("C2").Text
 
rouge = Split(recu, " ")(1)
vert = Split(recu, " ")(2)
bleu = Split(recu, " ")(3)
 
.Shapes("Obj1").Fill.ForeColor.RGB = RGB(rouge, 0, 0)
.Shapes("Obj2").Fill.ForeColor.RGB = RGB(0, vert, 0)
.Shapes("Obj3").Fill.ForeColor.RGB = RGB(0, 0, bleu)
.Shapes("piece").Fill.ForeColor.RGB = RGB(rouge, vert, bleu)
 
.Range("B7") = "composante de Rouge"
.Range("B13") = "composante de Vert"
.Range("B19") = "composante de Bleu"
.Range("B26") = "couleur de la pièce"
End With
 
End Sub
Sub Reset()
 
With Sheets(1)
.Shapes("Obj1").Fill.ForeColor.RGB = RGB(255, 255, 255)
.Shapes("Obj2").Fill.ForeColor.RGB = RGB(255, 255, 255)
.Shapes("Obj3").Fill.ForeColor.RGB = RGB(255, 255, 255)
.Shapes("piece").Fill.ForeColor.RGB = RGB(255, 255, 255)
 
.Range("B7") = ""
.Range("B13") = ""
.Range("B19") = ""
.Range("B26") = ""
End With
 
End Sub

Merci d'avance.
CC

[OhMonBato]

Bonjour,

as tu fais l'effort d'appuyer sur la touche F1 pour avoir l'aide de VB ? Car on risque de répéter ici ce qui est dit dans l'aide à moins qu'il y ait un truc dans l'aide que tu ne comprennes pas ?