Erreur Code

[matqhse]

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

 

[vgendron]

Re : Erreur Code

salut

à mon avis

col="C"

avec

If .Cells(Lig, Col).Value <> "" Then

ca ne va pas aller..
cells a besoin de deux entier
donc ca.. ca ira mieux

Col=3
If .Cells(Lig, Col).Value <> "" Then

 

[matqhse]

Re : Erreur Code

lorsque je modifie "C" par 3, le code me renvoie une erreur 1004 sur la ligne

NbrLig = .Cells(65536, Col).End(xlUp).Row

Sais tu d'où sa peut venir? merci de ta réactivité en tout cas

 

[matqhse]

Re : Erreur Code

autant pour moi je viens de redéfinir ma variable en LONG et le code ne me renvoie plus d'erreur mais les lignes s'affichent toujours en m26 alors que je le voudrais à un autre endroit.

 

[vgendron]

Re : Erreur Code

Col est déclaré comme une chaine..
il faut le déclarer comme un entier

dim Col as long

 

[vgendron]

Re : Erreur Code

pour la zone de destination; c'est sans doute ta derniière ligne qui pose problème
ActiveSheet.Range("z50:m" & NumLig + 1).Value = testbuffer

 

[matqhse]

Re : Erreur Code

Effectivement je viens de modifier ce M et cela marche j'ai passé une heure à chercher alors que c'était tout bête (je pensais pourtant déjà avoir essayé la modif) merci en tout cas d'avoir pris un peu de votre temps pour m'aider.