Probleme de Range erreur 1004 !!! VB Excel

Résolu/Fermé

Excel
Vba

kamoul - 28 juil. 2010 à 10:24
kamoul - 28 juil. 2010 à 17:14

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

A voir également:

Erreur 1004 vba
VBA erreur 1004 ✓ - Forum VB / VBA
Erreur 0x80070643 - Guide
MACRO : Problème " Erreur d'exécution '1004' " ✓ - Forum Excel
Erreur d'éxecution 1004 - Forum Programmation
Erreur 1004 - Erreur définie par l'application ou par l'objet ✓ - Forum VB / VBA

5 réponses

Réponse 1 / 5

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
28 juil. 2010 à 14:06

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

Réponse 2 / 5

coconuts_n Messages postés 16 Date d'inscription vendredi 2 juillet 2010 Statut Membre Dernière intervention 12 novembre 2010 1
28 juil. 2010 à 10:44

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

kamoul
28 juil. 2010 à 15:20

Tout d'abord merci d'avoir répondu aussi vite,
Ton truc fonctionne parce que je l'ai appliqué à un autre cas de figure et ça a marché( dans le recopiage de la ligne d'en-tête). Un problème persiste : j'aimerai déselectionner ce que j'ai selectionné et qui doit être dans le presse papier j'imagine.

'Recopiage de la ligne d'en-tête
Worksheets("Parts").Select
Range("A1").EntireRow.Copy
Worksheets("ResultatTri").Select
Range("A1").EntireRow.Select
ActiveSheet.Paste
Worksheets("Parts").Select
Range("A1").EntireRow

'Recopiage des résultats dans la feuille de résultats
For i = 1 To FinBas

'problème à cette ligne
If Worksheets("Parts").Range(Cells(i, FinDroite + 2), Cells(i, FinDroite + 2)).Value = "Doublon" Then

Worksheets("Parts").Select
Range(Cells(i, 1), Cells(i, FinDroite)).Copy
Worksheets("ResultatTri").Select
Range(Cells(Destination, 1), Cells(Destination, FinDroite)).Select
ActiveSheet.Paste
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

Pour moi le problème doit venir de la selection et de la copie dans le presse papier de la ligne 1, il faudrait la déselectionner ou vider le presse papier mais je sais pas comment on fait
Merci d'avance

coconuts_n Messages postés 16 Date d'inscription vendredi 2 juillet 2010 Statut Membre Dernière intervention 12 novembre 2010 1
28 juil. 2010 à 16:10

Lermite a répondu ce que je pense

Discussions similaires

erreur 424 "objet requis" sous excel

VBA excel : résoudre problème de capacité.

Erreur d'exécution 13 Incompatibilité de type

Erreur d'execution 424 : Objet requis

Erreur d'exécution '13': Incompatibilité de Type

VBA excel: Erreur 424, objet requis

Discussions similaires

Newsletters