debeguer une macros

[oufkiryo]

Bonjour tous le monde,

j'ai un probléme avec cette macros j'arrive pas a la debeguer, si quelqu'un peut m'aider.

merci.

 

[gilbert_RGI]

Re : debeguer une macros

Bonjour

k doit s'arrêter à quelle valeur ? 😎

 

[oufkiryo]

Re : debeguer une macros

K doit s'arreter à 52.

merci

Bonjour

k doit s'arrêter à quelle valeur ? 😎

 

[gilbert_RGI]

Re : debeguer une macros

hé oui et comment ???

 

[oufkiryo]

Re : debeguer une macros

c la ou j'ai besoin de l'aide.

merci.

 

[Compte Supprimé 979]

Re : debeguer une macros

Bonjour oufkiryo,

Sagissant de lignes, tes variables doivent être déclarées en tant que Long

Dim i As Long, j As Long

A+

 

[gilbert_RGI]

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

 

[Robert]

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...

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

 

[oufkiryo]

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)

 

[Victor21]

Re : debeguer une macros

Bonjour, oufkiryo, le fil.

... Sagissant de lignes, tes variables doivent être déclarées en tant que Long

Dim i As Long, j As Long

...

Idem pour K, sauf si tu ne prévois pas de dépasser 32767 lignes !
🙂

 

[Robert]

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) :

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

 

[pierrejean]

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

 

[oufkiryo]

Re : debeguer une macros

Robert le code que tu ma donner ne fonctionne pas, une petite modif "Evolution T.congés" nexiste pas c la feuille "charge".

voila le nouveau programme bien fait encore désolé.
merci.

 

[oufkiryo]

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

 

[Robert]

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...

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 ?