Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Erreur Code

matqhse

XLDnaute Nouveau
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

XLDnaute Barbatruc
Re : Erreur Code

salut

à mon avis
Code:
col="C"
avec
Code:
If .Cells(Lig, Col).Value <> "" Then

ca ne va pas aller..
cells a besoin de deux entier
donc ca.. ca ira mieux
Code:
Col=3
If .Cells(Lig, Col).Value <> "" Then
 

matqhse

XLDnaute Nouveau
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

XLDnaute Nouveau
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.
 

matqhse

XLDnaute Nouveau
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.
 

Discussions similaires

Réponses
12
Affichages
289
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…