myrange = Worksheets("Inputs").Range(Cells(j, 14), Cells(j, 16))
With Worksheets("Inputs") myrange = .Range(.Cells(j, 14), .Cells(j, 16)) End With
Union(Cells(j, 14), Cells(j, 17), Cells(j, 19))
Range(Cells(j, 14).Address(False, False) & "," & Cells(j, 17).Address(False, False) & "," & Cells(j, 19).Address(False, False))
Union(Cells(j, 14), Cells(j, 17), Cells(j, 19))renvois un objet de type range donc la variable myrange droit être au minimum de type objet.
With Worksheets("Inputs") Set myrange = Union(.Cells(j, 14), .Cells(j, 17), .Cells(j, 19)) End With
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionWith Worksheets("Inputs") myrange = .Range(.Cells(j, 14).Address & "," & .Cells(j, 17).Address & "," & .Cells(j, 19).Address) End With