Probleme de Range erreur 1004 !!! VB Excel Résolu/Fermé

Question

Bonjour, 
J'ai un code qui bloque, maisje ne sais pas pourquoi 
C'est juste une recopie d'une plage vers une autre



'Déclaration des variable
Destination = 2
FinBas = Worksheets("Parts").Range("A65536").End(xlUp).Row

'Recopiage des résultats dans la feuille de résultats
For i = 1 To FinBas
If Worksheets("Parts").Range(Cells(i, FinDroite + 2), Cells(i, FinDroite + 2)).Value = "Doublon" Then
Worksheets("ResultatTri").Range(Cells(Destination, 1), Cells(Destination, FinDroite)) = Worksheets("Parts").Range(Cells(i, 1), Cells(i, FinDroite))
    If Worksheets("Parts").Range("AH" & i).Value = Worksheets("Parts").Range("AH" & i + 1).Value Then
    Destination = Destination + 1
    Else
    Destination = Destination + 2
    End If
End If

Next i


Je comprend pas parce que la propriété range fonctionne avec des lettres dedans
Je remercie par avance quiconque m'aide

Cordialement Kamoul
Configuration: Windows XP / Internet Explorer 6.0

michel_m · Accepted Answer

Bonjour,

ton souci vient de la feuille active: comme tu en utilises 2...

maquette "vite fait":
Sub nnnn()
Destination = 2
Findroite = 4
i = 1
With Sheets(1)
     tablo = .Range(.Cells(Destination, 1), .Cells(Destination, Findroite)).Value
End With
With Sheets(2)
    .Range(.Cells(i, 1), .Cells(i, Findroite)) = tablo
End With
End Sub

comme tu boucles sur n lignes

écris cette ligne en début de macro
Application.ScreenUpdating = False
qui fige le défilement de l'écran et te fait gagner un temps

Enfin, les select-selection, copy-paste sont à éviter au maximum dans une procédure: ocupation mémoire, temps de procédure très longue

coconuts_n · Answer

Bonjour,

Je pense ton erreur arrive à la ligne :

Worksheets("ResultatTri").Range(Cells(Destination, 1), Cells(Destination, FinDroite)) = Worksheets("Parts").Range(Cells(i, 1), Cells(i, FinDroite)) ?

Pour exécuter une copie, remplace cette ligne par

Worksheets("ResultatTri").Select
Range(Cells(i, 1), Cells(i, FinDroite)).Copy
Worksheets("Parts").Select
Range(Cells(Destination, 1), Cells(Destination, FinDroite)).Select
ActiveSheet.Paste

Tiens moi au courant

lermite222 · Answer

Bonjour, Bonjour Michel,
FinDroite n'est pas initialiser et est donc à zéro, d'où l'erreur.
A+

michel_m · Answer

tiens, j'ai encore perdu mon temps à indiquer un truc qui marche....

mais Vive les trucs poussifs !!! quel site ce CCM :nul

l'Hermite ces réflexions ne sont pas pour toi !!!  :-)
j'avais fait la maquette en recopiant la ligne problème et en donnant seulement une valeur à findroit, i... : tu as une 1004....

kamoul · Answer

Merci à tous pour cette aide, ça marche maintenant, je met le code associé à ce qui marche, ça en aidera surement d'autre: 


'Recopiage de la ligne d'en-tête
With Sheets("Parts")
    entete = .Range(.Cells(1, 1), .Cells(1, FinDroite)).Value
End With
With Sheets("ResultatTri")
    .Range(.Cells(1, 1), .Cells(1, FinDroite)).Value = entete
End With

'Recopiage des résultats dans la feuille de résultats
For i = 2 To FinBas
With Sheets("Parts")
    ConditionDoublon = .Range(.Cells(i, FinDroite + 2), .Cells(i, FinDroite + 2)).Value
End With
If ConditionDoublon = "Doublon" Then
With Sheets("Parts")
    plage = .Range(.Cells(i, 1), .Cells(i, FinDroite)).Value
End With
With Sheets("ResultatTri")
    .Range(.Cells(Destination, 1), .Cells(Destination, FinDroite)).Value = plage
End With
With Sheets("Parts")
    ConditionEspaceLigneI = .Cells(i, 34).Value
End With
With Sheets("Parts")
    ConditionEspaceLigneIplus1 = .Cells(i + 1, 34).Value
End With
    If ConditionEspaceLigneI = ConditionEspaceLigneIplus1 Then
    Destination = Destination + 1
    Else
    Destination = Destination + 2
    End If
End If

Next i


Cordialement
Kamoul

Probleme de Range erreur 1004 !!! VB Excel

5 réponses

Discussions similaires