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.

 

[oufkiryo]

Re : debeguer une macros

voila ci-joint dans la feuille charge le resultat que je veux avoir

merci bcp

 

[oufkiryo]

Re : debeguer une macros

Merci Robert je me suis inspirer de ton code pour creer un qui me va tres bien.

merci tous le monde pour votre aide

 

[pierrejean]

Re : debeguer une macros

Re

Vois si cela te convient
Detail: Essaie en rajoutant les semaines 10 .....

 

[Robert]

Re : debeguer une macros

Bonjour le fil, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim r As Range 'déclare la variable r (Recherche)
Dim col As Integer 'déclare la variable col (COLonne)
 
Set pl = Sheets("charge").Range("A4:A" & Sheets("charge").Cells(Application.Rows.Count, 1).End(xlUp).Row) 'définit la plage pl (A4:A... dernière cellule éditée)
For Each cel In pl 'boucle sur toutes les cellules éditées cel de la plage pl
    Set r = Sheets("MCBZ").Columns(2).Find(cel.Value, , xlValues, xlWhole) 'définit la recherche (recherche la cellule cel dans la colonne B de l'onglet "MCBZ")
    If Not r Is Nothing Then 'condition : si il existe au moins une occurrence trouvée
        col = r.Offset(0, 9).Value + 5 'définit la colonne col (numéro de semaine + 5)
        Sheets("charge").Cells(cel.Row, col).Value = r.Offset(0, 1).Value 'récupère le stock et le place dans la semaine adéquate
    End If 'fin de la condition
Next cel 'prochaine cellule cel de la boucle
End Sub