Bonjour,
Je viens vous demander votre aide sur une macro que j'ai faite mais que je n'arrive pas à deboguer.
Lors du lancement de la macro :
For Each c In Range('A1:A5')
i = 1
Meslignes = ''
MonCritere = c.Value
page_active.Select
NombreLignes = 40
While i < NombreLignes + 1
If Cells(38 + i, 2) = MonCritere Then
Meslignes = Meslignes & 38 + i & ':' & 38 + i & ','
End If
i = i + 1
Wend
Meslignes2 = Left(Meslignes, Len(Meslignes) - 1)
page_active.Select
Range(Meslignes2).Copy
VBA me sort une erreur 1004 disant
' La méthode Range de l'objet global a echoué'
J'ai fait tout ce que je pouvais mais rine n'y fait.
Merci d'avance de votre aide
Je viens vous demander votre aide sur une macro que j'ai faite mais que je n'arrive pas à deboguer.
Lors du lancement de la macro :
For Each c In Range('A1:A5')
i = 1
Meslignes = ''
MonCritere = c.Value
page_active.Select
NombreLignes = 40
While i < NombreLignes + 1
If Cells(38 + i, 2) = MonCritere Then
Meslignes = Meslignes & 38 + i & ':' & 38 + i & ','
End If
i = i + 1
Wend
Meslignes2 = Left(Meslignes, Len(Meslignes) - 1)
page_active.Select
Range(Meslignes2).Copy
VBA me sort une erreur 1004 disant
' La méthode Range de l'objet global a echoué'
J'ai fait tout ce que je pouvais mais rine n'y fait.
Merci d'avance de votre aide