Bonjour,je viens vers vous car j'ai besoin de votre aide. J'ai essayer d'adapter un code de Drul consistant à tester si une cellule est vide et à copier la ligne si elle ne l'est pas pour la coller dans un endroit. Mais en utilisant ce code (les modification ont sûrement entrainer le problème) je n'arrive pas à sélectionner l'endroit ou je colle mes lignes. D'ailleurs j'ai remarque que sans la ligner commencant par Set Target le code fonctionnait de la même manière. Si quelqu'un peut m'aider je suis preneur. Je vous remercie d'avance, voici le code en question.
Sub Rectangle7_Cliquer()
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Dim Target As Range
Dim testbuffer As Variant
Dim j As Long
Col = "C" ' colonne de la donnée non vide à tester
NumLig = 0
Set Target = ActiveSheet.Cells(2, 1)
With ActiveSheet ' feuille source
NbrLig = .Cells(65536, Col).End(xlUp).Row
ReDim testbuffer(NbrLig, 200)
For Lig = 4 To NbrLig
If .Cells(Lig, Col).Value <> "" Then
For j = 1 To 200
testbuffer(NumLig, j - 1) = .Cells(Lig, j).Value
Next
NumLig = NumLig + 1
End If
Next
ActiveSheet.Range("z50:m" & NumLig + 1).Value = testbuffer
End With
End Sub
Sub Rectangle7_Cliquer()
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Dim Target As Range
Dim testbuffer As Variant
Dim j As Long
Col = "C" ' colonne de la donnée non vide à tester
NumLig = 0
Set Target = ActiveSheet.Cells(2, 1)
With ActiveSheet ' feuille source
NbrLig = .Cells(65536, Col).End(xlUp).Row
ReDim testbuffer(NbrLig, 200)
For Lig = 4 To NbrLig
If .Cells(Lig, Col).Value <> "" Then
For j = 1 To 200
testbuffer(NumLig, j - 1) = .Cells(Lig, j).Value
Next
NumLig = NumLig + 1
End If
Next
ActiveSheet.Range("z50:m" & NumLig + 1).Value = testbuffer
End With
End Sub