incompréhension de macro

Version imprimable

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:

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

19/03/2008, 22h40
Antoun
Le . au début fait référence à ce qu'il y a dans le With.

Donc :
Code:

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:

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

Code:

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:

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

Citation:

For Each CelTest In Plage

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

Code:

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

20/03/2008, 18h46
bibvba

merci beaucoup c'est déja plus lisible

A bientôt