Trouver l'erreur!!!

B

baldron

XLDnaute Nouveau
Bonjours a tous, voila j'ai fait une macro, mais j'ai un souci:

Elle me fait un Range("A5:IA9999").ClearContents sur la feuille ("Rapport") alors que je lui ai rien demander.

Voila la macro, j'ai eu beau regarder j'ai pas trouvé pourquoi. Et la j'en ai mal aux yeux a force de scruter les lignes. Faites moi signe si vous trouvez l'erreur svp.

PHP: 
Sub voirmoi()

Sheets("Toddlers 1-2ª (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Toddlers3 -3ª e 5ª (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Course 1A - 2ª e 4ª (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Course 1B - 2ª e 4ª (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Course 2 - 3ª e 5ª (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Course 3 - 2ª e 4ª (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Course 4 - 3ª e 5ª (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Teens 1 - 5ª e 6ª (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Teens 3 - 3ª e 5ª (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Individuais Crianças (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Individuais Adultos (2)").Select
Range("A5:IA9999").ClearContents
Sheets("João de Deus 1- 4ª (2)").Select
Range("A5:IA9999").ClearContents
Sheets("João de Deus 2- 2ª (2)").Select
Range("A5:IA9999").ClearContents
Sheets("João de Deus 2 - 3ª (2)").Select
Range("A5:IA9999").ClearContents
Sheets("SASUC 2ª e 6ª (2)").Select
Range("A5:IA9999").ClearContents
Sheets("SASUC- 3ª (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Previdência Portug.- 3ª (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Previdência Portug. - 6ª (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Berço de Ouro- 3ª (2)").Select
Range("A5:IA9999").ClearContents
Sheets("CBESSF (2)").Select
Range("A5:IA9999").ClearContents
Sheets("CBESSF - 2ª e 4ª (2)").Select
Range("A5:IA9999").ClearContents
Sheets("CBESSF- 4ª e 5ª (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Torres Mondego - 3ª (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Capuchinho Vermelho - 3ª (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Mat. Bissaya Barreto - 4ª e (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Violino 1 (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Violino 2 (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Violino 3 (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Violino 4 (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Violino 5 (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Violino 6 (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Violino 7 (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Bola Amarela (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Abarca (2)").Select
Range("A5:IA9999").ClearContents
Sheets("Rapport").Select
Dim pl As Range
With Sheets("Toddlers 1-2ª")
Set pl = .Range("C4:IV" & .[B65000].End(xlUp).Row)
pl.Name = "base"
Set pl = .Range("B4:B" & .[B65000].End(xlUp).Row)
pl.Name = "dates"
Set pl = .Range(.Cells(3, 3), .Cells(3, .[IV3].End(xlToLeft).Column))
pl.Name = "noms"
End With
With Sheets("Rapport")
Set pl = .Range("E13")
pl.Name = "date1"
Set pl = .Range("Z1")
pl.Name = "nom1"
Set pl = .Range("F13")
pl.Name = "date2"
Set pl = .Range("AA1")
pl.Name = "nom2"
End With
x = Evaluate("Index(base,match(date1,dates,0),match(nom1,noms,0))").Address
y = Evaluate("Index(base,match(date2,dates,0),match(nom2,noms,0))").Address
Sheets("Toddlers 1-2ª").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Toddlers 1-2ª (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Toddlers3 -3ª e 5ª").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Toddlers3 -3ª e 5ª (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Course 1A - 2ª e 4ª").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Course 1A - 2ª e 4ª (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Course 1B - 2ª e 4ª").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Course 1B - 2ª e 4ª (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Course 2 - 3ª e 5ª").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Course 2 - 3ª e 5ª (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Course 3 - 2ª e 4ª").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Course 3 - 2ª e 4ª (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Course 4 - 3ª e 5ª").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Course 4 - 3ª e 5ª (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Teens 1 - 5ª e 6ª").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Teens 1 - 5ª e 6ª (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Teens 3 - 3ª e 5ª").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Teens 3 - 3ª e 5ª (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Individuais Crianças").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Individuais Crianças (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Individuais Adultos").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Individuais Adultos (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("João de Deus 1- 4ª").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("João de Deus 1- 4ª (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("João de Deus 2- 2ª").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("João de Deus 2- 2ª (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("João de Deus 2 - 3ª").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("João de Deus 2 - 3ª (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("SASUC 2ª e 6ª").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("SASUC 2ª e 6ª (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("SASUC- 3ª").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("SASUC- 3ª (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Previdência Portug.- 3ª").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Previdência Portug.- 3ª (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Previdência Portug. - 6ª").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Previdência Portug. - 6ª (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Berço de Ouro- 3ª").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Berço de Ouro- 3ª (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("CBESSF").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("CBESSF (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("CBESSF - 2ª e 4ª").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("CBESSF - 2ª e 4ª (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("CBESSF- 4ª e 5ª").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("CBESSF- 4ª e 5ª (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Torres Mondego - 3ª").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Torres Mondego - 3ª (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Capuchinho Vermelho - 3ª").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Capuchinho Vermelho - 3ª (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Mat. Bissaya Barreto - 4ª e 5ª").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Mat. Bissaya Barreto - 4ª e 5ª (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Violino 1").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Violino 1 (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Violino 2").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Violino 2 (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Violino 3").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Violino 3 (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Violino 4").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Violino 4 (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Violino 5").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Violino 5 (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Violino 6").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Violino 6 (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Violino 7").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Violino 7 (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Bola Amarela").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Bola Amarela (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Abarca").Select
Range(x & ":" & y).Select
Selection.Copy
Sheets("Abarca (2)").Select
Range("B5").Select
ActiveSheet.Paste
Sheets("Rapport").Select
Range("B2").Select

End Sub


Merci

PS: Si vous savez comment je peu simplifier cette macro frigo je suis preneur.
 
Dernière édition:
Trier par date Trier par votes
skoobi

skoobi

XLDnaute Barbatruc
Re : Trouver l'erreur!!!

Bonjour,

A première vu, pas de cellules vidées dans la feuille "Rapport".
Au fait, fais simplement une recherche sur le mot "Rapport" dans l'éditeur de macro ;).
Pour simplifier le code, il faut faire une boucle (euuhh je parles pas de tricot là ..... :D)sur les feuilles.
Il faut juste que tu précises la feuille de départ et la feuille d'arrivée si elle se suivent bien sûr.
Par exemple de la 2e feuille à la dernière ou toutes les 2 feuilles etc ....
 
Vote positif 0 Vote négatif

Discussions similaires

Usine à gaz
  • Résolu(e)
XL 2021 Ecrire dans une une autre feuille
Réponses
3
Affichages
313
Usine à gaz
Usine à gaz
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
247
Zonmé
Z
R
  • Question
XL 2021 Optimisation Code VBA
Réponses
10
Affichages
373
Dranreb
Dranreb
K
  • Question
XL 2019 Organiser le code VBA
Réponses
9
Affichages
563
Kevin38
K
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
1 K
AtTheOne
AtTheOne
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
586
MickaeL_D
M
V
  • Question
Microsoft 365 accélérer une boucle
Réponses
12
Affichages
541
vg026u
V
S
  • Question
XL 2019 Problème dans un code vba
Réponses
2
Affichages
423
snoopy07
S
Usine à gaz
  • Résolu(e)
XL 2021 Affecter la valeur "ok" en colonne "F" uniquement sur les lignes visibles
Réponses
6
Affichages
347
Usine à gaz
Usine à gaz
F
  • Résolu(e)
XL 2021 Créer Macro permettant d'indexer des nouveaux clients ? [Résolu]
4 5 6
Réponses
82
Affichages
2 K
fanou06
F

Membres actuellement en ligne

7 membres et 65 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 229
Messages
2 086 426
Membres
103 206
dernier inscrit
diambote