Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

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à ..... )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
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL 2021 Ecrire dans une une autre feuille
Réponses
3
Affichages
338
Usine à gaz
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
297
Zonmé
Z
R
  • Question
XL 2021 Optimisation Code VBA
Réponses
10
Affichages
413
Dranreb
K
  • Question
XL 2019 Organiser le code VBA
Réponses
9
Affichages
599
Kevin38
K
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
602
MickaeL_D
M
V
  • Question
Microsoft 365 accélérer une boucle
Réponses
12
Affichages
575
vg026u
V
S
  • Question
XL 2019 Problème dans un code vba
Réponses
2
Affichages
448
snoopy07
S
  • Résolu(e)
XL 2021 Affecter la valeur "ok" en colonne "F" uniquement sur les lignes visibles
Réponses
6
Affichages
374
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
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…