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

bug macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Sang1
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

Sang1

Guest
Bonjour,

Je viens de faire une macro pour effectuer le traitement de données, mais il y a un bug et je trouve pas d'ou il vient.
J'ai quand meme une petite idée sur la question, je pense que le bug est du au fait que lorsque je fait mon tableau dynamique, je dois selectionner toute ma liste de données et celle ci peut etre plus ou moins longue, suisvant le nombre de datas.

Merci d avance
 

Pièces jointes

Trier par date Trier par votes
Re : bug macro

Bonjour,

Essayez avec votre code modifié

Code: 
Sub traitement()

Range("B2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[1]C[-1]-RC[-1]"
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B23")
Range("B2:B23").Select
Columns("B:B").Select
Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM"
Columns("C:C").Select
Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM"
Selection.ColumnWidth = 13.43
Range("C2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*RC[1]"
Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C23")
Range("C2:C23").Select
Range("A1:D23").Select

    '--- Modification ---
Sheets("sheet2").Activate
Sheets("sheet2").Cells.Delete
      '### [Book4]    ??? ###
'"Sheet1!R1C1:R23C4").CreatePivotTable TableDestination:="[Book4]Sheet2!R1C1"
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    "Sheet1!R1C1:R23C4").CreatePivotTable TableDestination:="Sheet2!R1C1" _
    , TableName:="PivotTable11", DefaultVersion:=xlPivotTableVersion10
    '---------------------
    
    
With ActiveSheet.PivotTables("PivotTable11").PivotFields("temps")
    .Orientation = xlRowField
    .Position = 1
End With
ActiveSheet.PivotTables("PivotTable11").AddDataField ActiveSheet.PivotTables( _
    "PivotTable11").PivotFields("x"), "Count of x", xlCount
Range("A1").Select
ActiveSheet.PivotTables("PivotTable11").PivotFields("Count of x").Function = _
    xlSum
Range("A2").Select
Selection.Group Start:=True, End:=True, By:=1, Periods:=Array(False, _
    False, False, True, False, False, False)
Range("B3:B5").Select
Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM"
Range("E11").Select
End Sub

Cordialement.

PMO
Patrick Morange
 
Vote positif 0 Vote négatif
Re : bug macro

Merci pour ta réponse, sa m aide.
Mais en faite je souhaite que ma macro traite toute la série de donnée, peu importe le nombre de datas. Pour l instant elle traite un nombre constant de ligne et je souhaite quelle s adapte automatiquement.

Merci d'avance.
 
Vote positif 0 Vote négatif
Re : bug macro

une solution pour faire vite

'placer l'instruction suivante au début de ta macro
Set srcSH = ActiveSheet

'utiliser l'instruction ci-dessous pour la création du tableau
' elle suppose qu'il n'y ait aucune autre cellule adjacente à ton tableau source que tu ne veuilles pas intégrer
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=srcSH.[A1].CurrentRegion).CreatePivotTable TableDestination:="Sheet2!R1C1" _
, TableName:="PivotTable11", DefaultVersion:=xlPivotTableVersion10



bye
 
Vote positif 0 Vote négatif
Re : bug macro

Je n'y arrive toujours pas, j'ai fait tout ce que lon m a demandé et sa marche toujours pas.
En faite, je cherche a remplacer toute les instructions du code suivant qui vont jusqu' a la ligne 23 en instructions qui vont jusqu'a la derniere ligne comportant un chiffre.
Par quoi faut il que je remplace mes valeurs "B23" ; "C23" ......


Range("B2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[1]C[-1]-RC[-1]"
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B23")
Range("B2:B23").Select
Columns("B:B").Select
Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM"
Columns("C:C").Select
Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM"
Selection.ColumnWidth = 13.43
Range("C2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*RC[1]"
Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C23")
Range("C2:C23").Select
Range("A1😀23").Select


Merci d avance
 
Vote positif 0 Vote négatif
Re : bug macro

Selection.AutoFill Destination:=Range("B2:B" & (Cells(ActiveSheet.Rows.count, 1).End(xlUp).Row )

'ou bien en décrémentant d'une ligne la plage de destination, car ta formule retourne #### sinon
Selection.AutoFill Destination:=Range("B2:B" & (Cells(ActiveSheet.Rows.count, 1).End(xlUp).Row -1)
 
Vote positif 0 Vote négatif
Re : bug macro


Merci pour ton aide stephane, c'est sympa.
Maintenant j'ai un bug qui me fait planter la macro, je comprned pas pourquoi.
Je me demandais si il n y avait pas une erreur dans le code fourni. Ce ne serait pas :
Selection.AutoFill Destination:=Range("B2:B" & (Cells(ActiveSheet.Rows.count, 1).End(xlDown.Row -1)???

Merci d avance
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : bug macro

En gros je cherche a savoir pas quoi je peu remplacer :

Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B23")
Range("B2:B23").Select

Afin que la macro sélectionne toutes les lignes ayant des valeurs au lieu d'aller jusqu'a la ligne 23.

Merci d avance
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

D
  • Résolu(e)
XL 2021 Selection listview et Envoie Emails automatique
Réponses
4
Affichages
458
delsart59
D
  • Résolu(e)
XL 2019 Bug d'une macro qui malgré tout fait son job
Réponses
11
Affichages
676
TooFatBoy
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
548
xavieralvaro
X
  • Question Question
Microsoft 365 Bug liste de validation sur fichier de menu/Repas
2
Réponses
17
Affichages
978
ChTi160
  • Question Question
XL 2021 Références "Relatives" Graphique
Réponses
2
Affichages
279
vgendron
C
  • Question Question
Microsoft 365 Fichier Excel devenu lent
2
Réponses
16
Affichages
2 K
crocrocro
C
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
1 K
Nounours4173
N
A
  • Résolu(e)
XL 2016 Passer d'une MFC à une macro pour supprimer le bazar dans les règles.
2 3
Réponses
42
Affichages
3 K
TooFatBoy
D
  • Question Question
Microsoft 365 Code VBA pour date DD/MM/YYYY
Réponses
6
Affichages
655
Staple1600
  • Question Question
Microsoft 365 "concatener" certaines colonnes d'onglets
2
Réponses
15
Affichages
1 K
Phil69970
  • Question Question
XL 2021 FINDXTREME: Je compte sur vos avis sur ce projet … Par avance MERCI
Réponses
10
Affichages
402
p'tit vieux
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
714
micie1509
C
  • Résolu(e)
XL 2016 humains VS chatGPT
Réponses
9
Affichages
917
AtTheOne
S
  • Question Question
Microsoft 365 Bug Me.Controls dans mon Userform
Réponses
4
Affichages
632
Jacky67
M
  • Résolu(e)
XL 2021 Problème de version sur macro Excel 2010 - 2021
Réponses
12
Affichages
772
mamarus1
M
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
828
p56
O
  • Question Question
Autres Optimisation macro numérotation ligne
Réponses
11
Affichages
482
crocrocro
C
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
1 K
laurent950
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
1 K
desto
D
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…