JORDAN
XLDnaute Impliqué
Bonjour le Forum,
J'ai encore un pb avec le code ci-dessous.
Jacques87 m'avait dépanné mais ça bug encore au niveau de la ligne Sheets(NomFeuille).Cells(L, 1).Select
l'erreur retournée est la suivante : La méthode Select de la classe Range a échoué.
Ls valeurs NomFeuille et L sont pourtant bonnes.
Si quelqu'un avait une petite idée !!!
Merci
J'ai encore un pb avec le code ci-dessous.
Jacques87 m'avait dépanné mais ça bug encore au niveau de la ligne Sheets(NomFeuille).Cells(L, 1).Select
l'erreur retournée est la suivante : La méthode Select de la classe Range a échoué.
Ls valeurs NomFeuille et L sont pourtant bonnes.
Si quelqu'un avait une petite idée !!!
Merci
Code:
Dim i As Byte
Dim L As Integer
Application.Goto Sheets('RESULTAT').Range('A1')
For i = 1 To Range('C65536').End(xlUp).Row
If Cells(i, 3).Value = NomFeuille Then
Range('A' & i & ':B' & i & ',D' & i).Select
Selection.Copy
Application.Goto Sheets(NomFeuille).Range('A9')
If Sheets(NomFeuille).Cells(10, 1).Value = '' Then
Sheets(NomFeuille).Cells(10, 1).Select
ActiveSheet.Paste
Sheets('RESULTAT').Select
Else
For L = 10 To 49
If Sheets(NomFeuille).Cells(L, 1).Value = '' Then
[color=#0000FF]Sheets(NomFeuille).Cells(L, 1).Select[/color]
ActiveSheet.Paste
Sheets('RESULTAT').Select
End If
Next L
End If
End If
Next i