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

debeguer une macros

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion oufkiryo
  • 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
Trier par date Trier par votes
Re : debeguer une macros

Bonjour oufkiryo,

Sagissant de lignes, tes variables doivent être déclarées en tant que Long
Code: 
Dim i As Long, j As Long

A+
 
Vote positif 0 Vote négatif
Re : debeguer une macros

do loop est une boucle qui continue aussi longtemps qu'une condition est vraie

donc il faut que dans le défilement du programme soit provoquer la fin de la boucle soit que la condition devienne false
 
Vote positif 0 Vote négatif
Re : debeguer une macros

Bonjour le fil, bonjour le forum,

Peut-être comme ça mais comme dans ton exemple il manque l'onglet Evolution T.congés j'ai pas pu tester...
Code: 
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, k As Integer
 
For i = 4 To Worksheets("charge").Cells(Application.Rows.Count, 1).End(xlUp).Row
    For j = 6 To Worksheets("MCBZ").Cells(Application.Rows.Count, 2).End(xlUp).Row
        For k = 6 To Worksheets("Evolution T.congés").Cells(6, Application.Columns.Count).End(xlToLeft).Column
            If Worksheets("Evolution T.congés").Cells(6, k).Value = "10" Then Exit For
            If ThisWorkbook.Worksheets("charge").Range("A" & i) = ThisWorkbook.Worksheets("MCBZ").Range("b" & j) Then
                If ThisWorkbook.Worksheets("MCBZ").Range("k" & j) = ThisWorkbook.Worksheets("charge").Cells(3, k) Then
                    ThisWorkbook.Worksheets("charge").Cells(3, k) = ThisWorkbook.Worksheets("charge").Cells(3, k) + _
                            ThisWorkbook.Worksheets("MCBZ").Range("c" & j)
                End If
            End If
       Next k
    Next j
Next i
End Sub
 
Vote positif 0 Vote négatif
Re : debeguer une macros

l'erreur est depacement de capacité
je pense que le problème est dans cette partie:

If ThisWorkbook.Worksheets("MCBZ").Range("k" & j) = ThisWorkbook.Worksheets("charge").Cells(3, k) Then
ThisWorkbook.Worksheets("charge").Cells(3, k) = ThisWorkbook.Worksheets("charge").Cells(3, k) + _
ThisWorkbook.Worksheets("MCBZ").Range("c" & j)
 
Vote positif 0 Vote négatif
Re : debeguer une macros

Bonjour le fil, bonjour le forum,

J'avais pas rafraîchi. Si k s'arrête à 52 ça donnerait ça (à tester) :
Code: 
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, k As Integer
 
For i = 4 To Worksheets("charge").Cells(Application.Rows.Count, 1).End(xlUp).Row
    For j = 6 To Worksheets("MCBZ").Cells(Application.Rows.Count, 2).End(xlUp).Row
        For k = 6 To 52
            If Worksheets("Evolution T.congés").Cells(6, k).Value = "10" Then Exit For
            If ThisWorkbook.Worksheets("charge").Range("A" & i) = ThisWorkbook.Worksheets("MCBZ").Range("b" & j) Then
                If ThisWorkbook.Worksheets("MCBZ").Range("k" & j) = ThisWorkbook.Worksheets("charge").Cells(3, k) Then
                    ThisWorkbook.Worksheets("charge").Cells(3, k) = ThisWorkbook.Worksheets("charge").Cells(3, k) + _
                            ThisWorkbook.Worksheets("MCBZ").Range("c" & j)
                End If
            End If
       Next k
    Next j
Next i
End Sub
 
Vote positif 0 Vote négatif
Re : debeguer une macros

Bonjour a tous

@ oufkiryo

Et si tu nous disais ce que cette macro est censé faire !!!
Peut-etre pourrions trouver une macro qui ne bug point

Edit : Arf a la bourre moi !!
Il semble que vous , vous avez compris
 
Vote positif 0 Vote négatif
Re : debeguer une macros

ok pierrejean
je veux que cette macro prend les valeurs de la collone c de la feuille MCBZ et les mettre dans la feuille charge, en prenant compte le numero de la semaine.

merci
 
Vote positif 0 Vote négatif
Re : debeguer une macros

Bonjour le fil, bonjour le forum,

Ben oui ça plante évidemment... Remplace Evolution T.congés par charge et ça ira mieux...
Code: 
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, k As Integer
 
For i = 4 To Worksheets("charge").Cells(Application.Rows.Count, 1).End(xlUp).Row
    For j = 6 To Worksheets("MCBZ").Cells(Application.Rows.Count, 2).End(xlUp).Row
        For k = 6 To 52
            If Worksheets("charge").Cells(6, k).Value = "10" Then Exit For
            If ThisWorkbook.Worksheets("charge").Range("A" & i) = ThisWorkbook.Worksheets("MCBZ").Range("b" & j) Then
                If ThisWorkbook.Worksheets("MCBZ").Range("k" & j) = ThisWorkbook.Worksheets("charge").Cells(3, k) Then
                    ThisWorkbook.Worksheets("charge").Cells(3, k) = ThisWorkbook.Worksheets("charge").Cells(3, k) + _
                            ThisWorkbook.Worksheets("MCBZ").Range("c" & j)
                End If
            End If
       Next k
    Next j
Next i
End Sub
Mais, comme PierrJean, je n'ai pas compris où tu voulais en venir...
Peux-tu nous faire un nouvel exemple avec avant et après la macro ?
 
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

A
  • Question Question
Microsoft 365 Formule Excel avec conditions "ET"
Réponses
7
Affichages
373
Armand11
A
K
  • Question Question
XL 2019 demande d'aide pour formuler une expression
Réponses
4
Affichages
196
Konan Bernard
K
R
  • Question Question
Microsoft 365 Paramètres des macros
2
Réponses
15
Affichages
636
wDog66
W
R
  • Question Question
XL 2016 récupérer une image depuis un SharePoint et la coller dans une cellule
Réponses
4
Affichages
168
halecs93
J
  • Question Question
Microsoft 365 archivage excel
Réponses
12
Affichages
279
sylvanu
P
  • Question Question
Microsoft 365 problème CHDIR
2 3 4
Réponses
59
Affichages
2 K
phil75016
P
J
  • Question Question
XL 2016 Supprimer ligne
Réponses
2
Affichages
107
J- Paul
J
N
  • Question Question
Microsoft 365 modifier un evenement du calendrier outlook via vba(excel)
Réponses
4
Affichages
201
mromain
  • Question Question
XL 2016 compilation macro on/off
Réponses
7
Affichages
179
job75
  • Résolu(e)
XL 2021 Code vba pour filtres automatiques sans le nom de l'onglet
Réponses
4
Affichages
203
sylvanu
  • Question Question
XL 2016 Macros verrouillées
Réponses
8
Affichages
317
zozo
D
  • Résolu(e)
Microsoft 365 Excel 365 et Macros
Réponses
3
Affichages
473
dacunha
D
  • Question Question
XL 2019 Problème d'exécution de commande
Réponses
11
Affichages
364
vgendron
C
  • Résolu(e)
XL 2021 Recherche et affichage d'une valeur dans une colonne
Réponses
13
Affichages
276
Constantin
C
N
Nico Gre
Réponses
2
Affichages
94
Nico Gre
N
  • Résolu(e)
XL 2016 Macros Généralités
Réponses
4
Affichages
246
sylvanu
L
  • Question Question
XL 2016 liste
Réponses
10
Affichages
388
chris
J
  • Question Question
Microsoft 365 Excel 365 Problème VBA
Réponses
7
Affichages
267
job75
J
  • Question Question
XL 2016 formule pour departager 3 joueurs
Réponses
4
Affichages
218
TooFatBoy
P
  • Résolu(e)
XL 2021 Formule avec SI ET et si possible plusieurs ET
Réponses
4
Affichages
308
PR.
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…