Discussion :

[bibvba]

Bonjour, je suis en train de me former sur VBA actuellement (en autodidacte pas facile)

J'ai recu il y a quelque temps ce morceau de macro:

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
 
 
'CREATION DES ONGLETS
    Dim CelTest As Range
    Dim SheetTest As Worksheet
    With Worksheets(1)
        For Each CelTest In .Range(.Cells(Rows.Count, "G").End(xlUp), .Range("G1"))
            If CelTest.Value <> "" Then
                For Each SheetTest In Worksheets
                    If SheetTest.Name = CelTest.Value Then
                    .Rows(CelTest.Row).Copy Sheets(CelTest.Value).Cells(Rows.Count, "G").End(xlUp).Offset(1, -6)
        GoTo apres
                    End If
                Next
                Sheets.Add after:=Sheets(Sheets.Count)
                Sheets(Sheets.Count).Name = CelTest.Value
                .Rows(CelTest.Row).Copy Sheets(CelTest.Value).Cells(Rows.Count, "G").End(xlUp).Offset(1, -6)
apres:
            End If
        Next
    End With

Ceci fonctionne très bien, par contre je ne comprend pas pourquoi il y a un "." avant Range dans "For Each CelTest In .Range(.Cells(Rows.Count, "G").End(xlUp), .Range"

pouvez-vous m'aider merci

[Antoun]

Le . au début fait référence à ce qu'il y a dans le With.

Donc :

Code :

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

1
2
3
4
With Worksheets(1)
  For Each CelTest In .Range(.Cells(Rows.Count, "G").End(xlUp), .Range("G1"))
  ...
End With

est l'équivalent de

Code :

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

For Each CelTest In Worksheets(1).Range(Worksheets(1).Cells(Rows.Count, "G").End(xlUp), Worksheets(1).Range("G1"))

[ouskel'n'or]

Code :

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

    Dim CelTest As Range

déclare CelTest en tant que range (ici une cellule)
Celtest devient un objet qui évite de répéter Cells(NoLigne, NoCol)
De la même manière, on aurait pu écrire

Code :

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

1
2
3
4
5
6
7
8
9
Dim FL1 As Worksheet
Dim Plage As Range
Dim CelTest As Range
Dim SheetTest As Worksheet
    Set FL1 = Worksheets(1)
    With FL1
        Set Plage = .Range(.Cells(.Rows.Count, 7).End(xlUp), .Range("G1"))
        For Each CelTest In Plage
            If CelTest <> "" Then

etc. Ici on utilise l'objet FL1 (la feuille) pour désigner l'objet plage (la plage de cellules) et enfin CelTest (une cellule de la plage que l'on parcourt)
Tu peux remarquer que Plage, instancié "with" FL1, dispense d'avoir à utiliser le point dans la ligne

For Each CelTest In Plage

Placé avant "With FL1", il eut fallu écrire

Code :

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

Set Plage = FL1.Range(FL1.Cells(FL1.Rows.Count, 7).End(xlUp), FL1.Range("G1"))

Cette manière de programmer condence le code et facilite une relecture
Bonne soirée

[bibvba]

merci beaucoup c'est déja plus lisible

A bientôt