Discussion :

[ghazalinadou]

Bonjour,

Etant débutant sous vba, j'ai pour mission d'améliorer un code vba cependant lors de sa relecture certaines lignes furent plus compliquées à comprendre, je me tourne donc ici dans l'espoir que vous puissiez apporter une réponse à mon problème.

- Que signifie les '.' en début de ligne? Que permettent-ils d'accomplir?
- Qu'est ce que ce "StartShade" ? Au début je pensais que c'était le nom d'une variable mais après quelques recherches, ce n'était visiblement pas le cas.
- On remarque un type de variable "ByVal" or je n'ai pas cerné sa particularité, qu'elle est-elle d'après vous?

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Public Function TableVertRange(Ra As Range, Optional R As Integer = 240, Optional G As Integer = 240, Optional B As Integer = 240, Optional StartShade As Integer = 1, Optional VertBord As Boolean = True) As Integer
    StartShade = (StartShade + 1) Mod 2 'si on fait deux tableaux à la suite, la couleur de départ de celui ci est l'inverse de la couleur de fin du précédent
    With Ra
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
        With .Borders(xlEdgeTop)
        End With
        With .Borders(xlEdgeBottom)
        End With
        With .Borders(xlEdgeLeft)
            If VertBord Then
                .LineStyle = xlContinuous
                .color = RGB(255, 255, 255)
                .TintAndShade = 0
                .weight = xlMedium
            Else
                .LineStyle = xlNone
            End If
        End With
        With .Borders(xlEdgeRight)
            If VertBord Then
                .LineStyle = xlContinuous
                .color = RGB(255, 255, 255)
                .TintAndShade = 0
                .weight = xlMedium
            Else
                .LineStyle = xlNone
            End If
        End With
        With .Borders(xlInsideVertical)
            If VertBord Then
                .LineStyle = xlContinuous
                .color = RGB(255, 255, 255)
                .TintAndShade = 0
                .weight = xlMedium
            Else
                .LineStyle = xlNone
            End If
        End With
        .Borders(xlInsideHorizontal).LineStyle = xlNone
 
        'For Ro = .Row To .Row + .Rows.Count - 1
        For Ro = 1 To .Rows.Count
            Dim alpha As Double
            'alpha = 1 - ((Ro - .Row + StartShade) Mod 2) * 0.05
            alpha = 1 - ((Ro - 1 + StartShade) Mod 2) * 0.05
            'Call ColorRange(Range(Cells(Ro, c1.Column), Cells(Ro, c2.Column)), RGB(R * alpha, G * alpha, B * alpha))
            'Call ColorRange(.Worksheet.Range(Cells(Ro, .Column), Cells(Ro, .Column + .Columns.Count - 1)), RGB(R * alpha, G * alpha, B * alpha))
            Call ColorRange(.Rows(Ro), RGB(R * alpha, G * alpha, B * alpha))
        Next Ro
        TableVertRange = (.Rows.Count - 1 + StartShade) Mod 2
    End With
End Function

Merci d'avance pour vos réponses,

[Philippe Tulliez]

Bonjour,

je suis en train de repondre un programme déjà fait pour ajouter des autres fonctions et amélioré, dans le code je trouve cette fonction

?????

[unparia]

Bonjour
Commence par faire du ménage
Je vois par exemple deux blocs With présents sans aucune instruction

EDIT : ouvre déjà ton aide interne VBA à la rubrique Utilisation d'instructions With

et tu auras dans la foulée réponse à une de tes questions.

[RyuAutodidacte]

bonjour,

une autre de tes réponses se trouve dans la Faq, il suffit d'une petite recherche :
IV. La différence entre ByRef et ByVal

[Menhir]

- Que signifie les '.' en début de ligne? Que permettent-ils d'accomplir?

https://msdn.microsoft.com/fr-fr/lib.../gg264723.aspx

- Qu'est ce que ce "StartShade" ? Au début je pensais que c'était le nom d'une variable mais après quelques recherches, ce n'était visiblement pas le cas.

Il s'agit de l'un des paramètres (optionel) de cette fonction personnalisée.
Regarde le contenu de la ligne précédente de ta macro.

- On remarque un type de variable "ByVal" or je n'ai pas cerné sa particularité, qu'elle est-elle d'après vous?

https://msdn.microsoft.com/fr-fr/lib.../gg264233.aspx
Dans la partie "l’argument arglist".