Problème de selection de cellules en VBA

[Jean-Baptiste]

Bonjour à tous,
J'ai un problème avec ma macro.
Elle ne me copie pas la selection que je lui indique.
Voici une partie de ma macro :

'Selectionne le 1er lot
If Range("I45").Value = "" Then Call Macro1
ligne = Range("I45")
ligne2 = Range("I46")
Range("A28:" & ligne, ("ai28" & ligne2)).Select
Selection.Copy
Range("J48").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets("1er lot").Select

La cellule I45 correspond à =SI(G28="";"";"H"&27+NB($G$28:$G$37))
La cellule I46 correspond à =SI(G28="";"";"ai"&27+NB($G$28:$G$37))

Merci pour vos réponses
JB

 

[galopin01]

Bonsoir,
Je ne comprends pas bien ce que tu as voulu faire
mais ça n'est pas très logique :

ligne = Range("I45") ??? value ? Row ?
ligne2 = Range("I46") ??? value ? Row ?

...et cette ligne n'a pas de sens
Range("A28:" & ligne, ("ai28" & ligne2)).Select

La syntaxe d'une sélection multiple est
Range("A13,A1517").Select (par exemple)

Si c'est ce que tu as voulu faire tu devrais avoir quelque chose du genre
Range("A28:" & var1 & ", ai28:" & var2)).Select

A+