Sujet Précédent Sujet Suivant

Erreur 1004_zone sélectionnée inadéquate

Fermé
pseudo_polo - 13 sept. 2011 à 15:40
ccm81 Messages postés 10855 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 29 avril 2024 - 13 sept. 2011 à 16:39
Bonjour,

Je souhaite copier coller valeur une certaine zone dans toutes les feuilles de ma page jusqu'à REU!

et ça me donner "Erreur 1004"

je comprends pas pourquoi?
qui pourra résoudre?
++

Sub macro_finale()

Sheets(1).Activate

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets


If ws.Name <> "REU" Then
Range("C5:IV179").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


ActiveSheet.Next.Select



Else: ws.Name = "REU"

Range("C5:IV139").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End If

Next ws




End Sub

3 réponses

Réponse 1 / 3
chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 306
13 sept. 2011 à 15:44
Bonjour,

sur quelle ligne se situe l'erreur ? Quelle est la ligne surlignée lors du débogage ?

Cordialement.
0
pseudo_polo
13 sept. 2011 à 16:15
Bjr Chossette,

le pb se situe là =

Range("C5:IV179").Select
j'ai changé en Cells.Select mais c'est la même erreur qui apparait!!

A te relire!
0
Réponse 2 / 3
ccm81 Messages postés 10855 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 29 avril 2024 2 404
13 sept. 2011 à 16:34
bonjour

je pense qu'il te faut préciser les feuilles et pour la copie (au même endroit), ceci devrait suffire

worksheets("NomDeTaFeuilleOrigine").Range("C5:IV179").Copy ws.Range("C5")

bonne suite
0
Réponse 3 / 3
ccm81 Messages postés 10855 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 29 avril 2024 2 404
13 sept. 2011 à 16:39
re

et un exemple qui fonctionne 

Dim ws As Worksheet
For Each ws In Worksheets
  If ws.Name <> "Feuil1" Then
    Worksheets("Feuil1").Range("A15:C17").Copy ws.Range("A15")
  End If
Next ws


bonne suite
0

Discussions similaires

Instagram "Désolé, une erreur s'est produite"
bananamilk -
cedric.masdeb -

60 réponses
Erreur vidéo inconnue sur le Freebox Player
mouhaaV2.0 -
Perejoe59 -

60 réponses
Free erreur 38 : impossible d'envoyer des SMS
warnawak -
marcellou -

58 réponses
Erreur de lecture sur iptv smarters
Bogs -
bazfile -

1 réponse
Problème de décodeur TV Bouygues Telecom
Massi119 -
Turone37 -

188 réponses