Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FxM
Bonsoir,
Pas sur d'avoir tout compris :
Sub test() with Worksheets("Feuil3") set z = .Columns("B") i1 = 2: i2 = 5 Set plage = .Range(i1 & ":" & i2).EntireRow W = Application.Intersect(z, plage) End Sub
@+ FxM
Bonsoir
Soit l'objet range : Set Z = Worksheets(Refsh).Columns(RefCol)
Soit le variant W. Je souhaite prélever un tableau W constituer de la ligne i1 à la ligne i2 de Z
W= fonction Range calculant le sous ensemble de Z selon i1 et i2
Comment écrire cette fonction sans passer par W=Worksheets(Refsh).Range(Cells(i1,RefCol),Cells(i2,RefCol)) mais par f(Z,i1,i2) ?
Merci A+
Bonsoir,
Pas sur d'avoir tout compris :
Sub test()
with Worksheets("Feuil3")
set z = .Columns("B")
i1 = 2: i2 = 5
Set plage = .Range(i1 & ":" & i2).EntireRow
W = Application.Intersect(z, plage)
End Sub
@+
FxM
Bonsoir
Soit l'objet range :
Set Z = Worksheets(Refsh).Columns(RefCol)
Soit le variant W.
Je souhaite prélever un tableau W constituer
de la ligne i1 à la ligne i2 de Z
W= fonction Range calculant le sous ensemble de Z selon
i1 et i2
Comment écrire cette fonction sans passer par
W=Worksheets(Refsh).Range(Cells(i1,RefCol),Cells(i2,RefCol))
mais par f(Z,i1,i2) ?
Sub test() with Worksheets("Feuil3") set z = .Columns("B") i1 = 2: i2 = 5 Set plage = .Range(i1 & ":" & i2).EntireRow W = Application.Intersect(z, plage) End Sub
@+ FxM
Bonsoir
Soit l'objet range : Set Z = Worksheets(Refsh).Columns(RefCol)
Soit le variant W. Je souhaite prélever un tableau W constituer de la ligne i1 à la ligne i2 de Z
W= fonction Range calculant le sous ensemble de Z selon i1 et i2
Comment écrire cette fonction sans passer par W=Worksheets(Refsh).Range(Cells(i1,RefCol),Cells(i2,RefCol)) mais par f(Z,i1,i2) ?
