Ereur 1004 sur macro recopie
Bonjour,
Concerne Excel 2003
Je me sers depuis longtemps de la macro qui suit (l'un d'entre-vous me l'avait faite pour en simplifier une plus ancienne et alambiquée, mais sur celle-ci je ne traduis pas tout...) et cette fois-ci j'ai une erreur qui m'empêche de l'exécuter.
L 'erreur 1004 me dit :
"cette opération requiert que les cellules fusionnées soient de taille identiques"
et me surligne ce qui est en jaune.
Problème :
Les plages des 2 fichiers concernés par la recopie n'ont pas de cellule fusionnée.
Est-ce un problème connu d'excel ?
Que dois-je chercher pour résoudre le problème ?
Texte Macro concernée :
Sub Recopie()
Dim J As Long
Dim Indice As Integer
Dim Oldcel As Range
Application.ScreenUpdating = False
Set Oldcel = ActiveCell
For J = 11 To 35 Step 4
Indice = Indice + 1
If Range("B" & J) <> "" Then
Sheets(Indice).Range("B27:D30").Copy
Range("D" & J).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Else
Exit Sub
End If
Next J
Application.CutCopyMode = False
Oldcel.Select
End Sub
Merci à ceux qui pourront m'aider.
Bien cordialement.
Bonjour Nyre,
As-tu essayé de coller sur la même taille de plage que ta copie?
Sub Recopie()
Dim J As Long
Dim Indice As Integer
Dim Oldcel As Range
Application.ScreenUpdating = False
Set Oldcel = ActiveCell
For J = 11 To 35 Step 4
Indice = Indice + 1
If Range("B" & J) <> "" Then
Sheets(Indice).Range("B27:D30").Copy
Range("D" & J & ":F" & J+3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Else
Exit Sub
End If
Next J
Application.CutCopyMode = False
Oldcel.Select
End SubÇa vaudrait le coup quand même de sélectionner tes colonnes D à F pour voir si elles ne contiennent pas de cellules fusionnées.
Bonjour funkyfoendy,
Merci de me donner un coup de main !
Comme je l'ai indiqué, certains passages de la macro ne sont pas clairs pour moi.
Avec ton code le message d'erreur est légèrement différent mais il indique toujours que les zones à copier et celles à coller sont de tailles différentes.
La copie dans le fichier de destination ne doit se faire que jusqu'à la ligne 19 comprise. Et la cellule D21 est fusionnée. Pourrait-il y avoir un rapport avec cette précision ?
Bonjour,
Le meilleur moyen de ne pas tourner en rond, c'est de présenter le fichier qui va avec la macro.
Un peu d'accord avec Raja, c'est compliqué sans fichier exemple.