Help pour debogage

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion sasori14
  • 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

sasori14

Guest
Bonsoir,

Je ne m'en sors pas. Ce code tourne sur le PC ou il a été réalisé mais bug lorsqu'il est ouvert sur autres PC quelque soit la version d'Excel employée...

Une idée ? (je deviens fou !!!)🙁


Sub Ventilation()
On Error GoTo Err_Treatment
'---------------------------------------------------------------
'---------------------------------------------------------------
'- DECLARATIONS VARIABLES -
'---------------------------------------------------------------
'---------------------------------------------------------------
Dim XLS As Application 'Declaration Excel
Dim WB As Workbook 'Declaration du fichier Excel
Dim WSR As Worksheet 'Declaration de l'onglet Recap
Dim WSS As Worksheet 'Declaration de l'onglet Sortie
Dim WST As Worksheet 'Declaration de l'onglet Tables
Dim RR As Long 'Declaration de l'index de ligne courante de l'onglet Recap
Dim RS As Long 'Declaration de l'index de ligne courante de l'onglet Sortie
Dim RT As Long 'Declaration de l'index de ligne courante de l'onglet Table
Dim CT As Long 'Declaration de l'index de colone courante de l'onglet Table

'---------------------------------------------------------------
'---------------------------------------------------------------
'- INITIALISATION VARIABLES -
'---------------------------------------------------------------
'---------------------------------------------------------------

Set XLS = ActiveWorkbook.Application
Set WB = ActiveWorkbook
Set WSR = WB.Worksheets("récap")
Set WSS = WB.Worksheets("fichier de sortie")
Set WST = WB.Worksheets("tables")
RR = 2
RS = 2
XLS.Calculation = xlCalculationManual
'---------------------------------------------------------------
'---------------------------------------------------------------
'- TRAITEMENT -
'---------------------------------------------------------------
'---------------------------------------------------------------

While WSR.Cells(RR, 1).Value <> "" 'On boucle sur les ligne de la colone A. Le Traitment
' lorsque qu'une cellule vide est identifiée

RT = WST.Range("T" & WSR.Cells(RR, 2).Value).Row
CT = WST.Range("T" & WSR.Cells(RR, 2).Value).Column + 1

While WST.Cells(RT + 3, CT).Value <> ""

WSS.Cells(RS + WST.Cells(RT + 3, CT).Value - 1, 1).Value = WSR.Cells(RR, 1).Value
If WST.Cells(RT + 3, CT).Value = 1 Then
WSS.Cells(RS, 7).Value = WSR.Cells(RR, 11).Value

Else
WSS.Cells(RS + WST.Cells(RT + 3, CT).Value - 1, 7).Formula = "=R[-1]C[1]"
End If
WSS.Cells(RS + WST.Cells(RT + 3, CT).Value - 1, 8).Formula = "=RC[-1]+" & WSR.Cells(RR, 13).Value * WST.Cells(RT + 2, CT).Value

WSS.Cells(RS + WST.Cells(RT + 3, CT).Value - 1, 5).Value = WSR.Cells(RR, 7).Value * WST.Cells(RT + 1, CT).Value
WSS.Cells(RS + WST.Cells(RT + 3, CT).Value - 1, 3).Value = WST.Cells(RT, CT).Value
CT = CT + 1

Wend
RS = RS + CT - WST.Range("T" & WSR.Cells(RR, 2).Value).Column - 1

ERR_TOPO:

RR = RR + 1


Wend

Err_Treatment:
Select Case Err.Number
Case 1004
WSR.Cells(RR, 2).Interior.ColorIndex = 3
GoTo ERR_TOPO
Case Else

End Select
XLS.Calculate
XLS.Calculation = xlCalculationAutomatic

End Sub
 
Trier par date Trier par votes
Re : Help pour debogage

bonsoir,

peut être :

faux ?
Set WB = ActiveWorkbook

le classeur actif l'instruction est la suivante pour le classeur dont la macro s'exécute = ThisWorkbook

Vrai
Set WSR = ThisWorkbook.Worksheets("récap")
Set WSS = ThisWorkbook.Worksheets("fichier de sortie")
Set WST = ThisWorkbook.Worksheets("tables")

laurent
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Help pour debogage

Le début serais cela :

Sub Ventilation()
On Error GoTo Err_Treatment
'---------------------------------------------------------------
'---------------------------------------------------------------
'- DECLARATIONS VARIABLES -
'---------------------------------------------------------------
'---------------------------------------------------------------
'''''''''''''''Dim XLS As Application 'Declaration Excel
'''''''''''''''Dim WB As Workbook 'Declaration du fichier Excel
Dim WSR As Worksheet 'Declaration de l'onglet Recap
Dim WSS As Worksheet 'Declaration de l'onglet Sortie
Dim WST As Worksheet 'Declaration de l'onglet Tables
Dim RR As Long 'Declaration de l'index de ligne courante de l'onglet Recap
Dim RS As Long 'Declaration de l'index de ligne courante de l'onglet Sortie
Dim RT As Long 'Declaration de l'index de ligne courante de l'onglet Table
Dim CT As Long 'Declaration de l'index de colone courante de l'onglet Table

'---------------------------------------------------------------
'---------------------------------------------------------------
'- INITIALISATION VARIABLES -
'---------------------------------------------------------------
'---------------------------------------------------------------

'''''''''''''''''''Set XLS = ActiveWorkbook.Application
'''''''''''''''''''Set WB = ActiveWorkbook
Set WSR = ThisWorkbook.Worksheets("récap")
Set WSS = ThisWorkbook.Worksheets("fichier de sortie")
Set WST = ThisWorkbook.Worksheets("tables")
RR = 2
RS = 2
XLS.Calculation = xlCalculationManual
'---------------------------------------------------------------
'---------------------------------------------------------------
'- TRAITEMENT -
'---------------------------------------------------------------
'---------------------------------------------------------------

While WSR.Cells(RR, 1).Value <> "" 'On boucle sur les ligne de la colone A. Le Traitment
' lorsque qu'une cellule vide est identifiée


' Ici c'est faut car WST = une feuille ("récap") et WSR une autre feuille ("tables")
' C'est incompatible.
' RT = -- faux = WST.Range----- et ("T" & --- faux = WSR.Cells ----- (RR, 2).Value).Row
' ou la feuille WST ou WSR

RT = WST.Range("T" & WSR.Cells(RR, 2).Value).Row
CT = WST.Range("T" & WSR.Cells(RR, 2).Value).Column + 1

' Pour la suite je connais pas le fonctionnement de la macro
' RT = quel celulle ?
' CT = quel cellule ?

' ------------------------------ Fin de mon annalyse ici -----------------------------------

While WST.Cells(RT + 3, CT).Value <> ""

WSS.Cells(RS + WST.Cells(RT + 3, CT).Value - 1, 1).Value = WSR.Cells(RR, 1).Value
If WST.Cells(RT + 3, CT).Value = 1 Then
WSS.Cells(RS, 7).Value = WSR.Cells(RR, 11).Value

Else
WSS.Cells(RS + WST.Cells(RT + 3, CT).Value - 1, 7).Formula = "=R[-1]C[1]"
End If
WSS.Cells(RS + WST.Cells(RT + 3, CT).Value - 1, 8).Formula = "=RC[-1]+" & WSR.Cells(RR, 13).Value * WST.Cells(RT + 2, CT).Value

WSS.Cells(RS + WST.Cells(RT + 3, CT).Value - 1, 5).Value = WSR.Cells(RR, 7).Value * WST.Cells(RT + 1, CT).Value
WSS.Cells(RS + WST.Cells(RT + 3, CT).Value - 1, 3).Value = WST.Cells(RT, CT).Value
CT = CT + 1

Wend
RS = RS + CT - WST.Range("T" & WSR.Cells(RR, 2).Value).Column - 1

ERR_TOPO:

RR = RR + 1


Wend

Err_Treatment:
Select Case Err.Number
Case 1004
WSR.Cells(RR, 2).Interior.ColorIndex = 3
GoTo ERR_TOPO
Case Else

End Select
XLS.Calculate
XLS.Calculation = xlCalculationAutomatic

End Sub

Laurent
 
Vote positif 0 Vote négatif
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

N
  • Question Question
XL 2010 fichier généré par IA ne fonctionne pas ( RESOLU )
2
Réponses
16
Affichages
893
n_turf
N
cathodique
  • Question Question
XL 2010 classer clé dico dans un ordre prédéfini
2
Réponses
25
Affichages
2 K
job75
job75
F
  • Question Question
XL 2019 erreur 1004
Réponses
8
Affichages
715
florian50470
F
patricktoulon
  • Résolu(e)
XL 2013 customui copymemory qui fait encore des siennes
Réponses
8
Affichages
439
Rheeem
R
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
648
JJ69
J
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
922
Mody200
M
X
  • Résolu(e)
XL 2016 Problème lors de recherche croisée.
Réponses
4
Affichages
556
Xender
X
F
  • Question Question
Microsoft 365 Associer lancement macro à une CheckBox
Réponses
7
Affichages
1 K
Fab117
F
P
  • Question Question
XL 2016 Données non rapatriées via CopyFromRecordset
Réponses
9
Affichages
1 K
Polobe36
P
N
  • Question Question
XL 2021 BESOIN D'aide macro
Réponses
7
Affichages
1 K
Gégé-45550
Gégé-45550
M
  • Question Question
Microsoft 365 VBA - Extraire tous les emails d'une cellule et les coller dans une autre feuille
Réponses
4
Affichages
975
mimich_88
M
R
  • Question Question
Microsoft 365 VBA - rechercher une ligne en fonction de 2 critères sur 2 colonnes différentes
Réponses
9
Affichages
2 K
sylvanu
sylvanu
A
  • Question Question
XL 2010 Date dans fichier pour impression pdf
Réponses
2
Affichages
1 K
Aldonanou
A
B
  • Question Question
Microsoft 365 VBA Compter 2 lignes après la fin d'un tableau dont on a le nom
Réponses
2
Affichages
1 K
bluesky12000
B
S
  • Résolu(e)
Microsoft 365 Boucle sur des données filtrées
Réponses
5
Affichages
978
cp4
cp4
X
  • Question Question
XL 2019 Extraire données d'un classeur vers un autre en réorganisant et renommant les colonnes
Réponses
10
Affichages
2 K
XLSM75
X
P
  • Question Question
Microsoft 365 Copie de données d'une feuille vers une autre et retour à la ligne
Réponses
6
Affichages
2 K
Pat13127
P
S
  • Question Question
XL 2019 Syntax VBA pour fichier tracking de processus
Réponses
2
Affichages
748
sgangbadjo
S
S
  • Question Question
XL 2019 modifications macro svp
Réponses
3
Affichages
1 K
Bernard_XLD
Bernard_XLD
W
  • Question Question
XL 2019 VBA msgbox IF ELSE et END IF
Réponses
0
Affichages
1 K
watt3211
W
Retour