1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| 'Repérage de la dernière cellule
'LastCell = .Range("A65536").End(xlUp).Address
'LastCell = .Cells(Rows.Count, "A").End(xlUp).Address '/////////////
'Définition de la plage
'Set PlageATraiter = .Range("A1:" & CStr(LastCell))
Set PlageATraiter = .Range("A1", .Cells(Rows.Count, "A").End(xlUp)) '/////////////
For Each Cellule In PlageATraiter
'Extraction de la famille
If Trim(ExtractElement(Cellule, ":", 1)) = "Famille de formules" Or Trim(ExtractElement(Cellule, ":", 1)) = "Set of formulas" Then
VarFamille = Left(ExtractElement(Cellule, ":", 2), Len(ExtractElement(Cellule, ":", 2)) - 1)
'////// 'End If
ElseIf Trim(ExtractElement(Cellule, ":", 1)) = "Formule manuelle" Or Trim(ExtractElement(Cellule, ":", 1)) = "Manual formula" Then |
Partager