Bonjour,
je te remercie pour la lecture de mon pb en vba
Voilà, en fait jai fait la macro ci dessus dans le classeur "Copie temp2"
Sub calcul()
Dim NbrLig3 As Long
cel1 = Application.Intersect(Range("B1:B100"), Range("A4:P4"))
cel2 = Application.Intersect(Range("B1:B100"), Range("A6:P6"))
cel3 = Application.Intersect(Range("B1:B100"), Range("A7:P7"))
cel4 = Application.Intersect(Range("B1:B100"), Range("A9:P9"))
NbrLig3 = Sheets("Copie temp2").Cells(65536, 1).End(xlUp).Row
Rows(NbrLig3).Select
ActiveWorkbook.Names.Add Name:="lig", RefersToR1C1:="='Copie temp2'! R&NbrLig3"
Set isect1 = Application.Intersect(Range("B1:B100"), Range("lig"))
End Sub
elle me renvoi une erreur à la ligne
Set isect1 = Application.Intersect(Range("B1:B100"), Range("lig"))
comme quoi la méthode range ne marche pas
en fait je pense que cela est dû à ma variable lig
en fait lig est le nom d'une ligne grace à la ligne suivante
ActiveWorkbook.Names.Add Name:="lig", RefersToR1C1:="='Copie temp2'! R&NbrLig3"
Merci et à bientot!
bonne journée
