Problème de code
Bonsoir,
J'ai un problème de code :
Dim Plage As Range
Dim Cel As Range
Set Plage = DefPlage(Worksheets("Compilation de Commande"), 4, 1)
i = 3
With Worksheets("Liste_des_Produits_sur_plats")
.Range("A3:H3").Value = Array("Date", "Heure", "N° de commande", "Client", "Commande en retard", "Articles", "Quantité", "Indication")
For Each Cel In Plage
If InStr(Cel.Value, "-Pt") <> 0 Then
i = i + 1
.Cells(i, 1).Value = Plage(Cel.Row - 3, 1).Value
.Cells(i, 2).Value = Plage(Cel.Row - 3, 1).Offset(, 1).Value
.Cells(i, 3).Value = Plage(Cel.Row - 3, 1).Offset(, 2).Value
.Cells(i, 4).Value = Plage(Cel.Row - 3, 1).Offset(, 3).Value
.Cells(i, 5).Value = Plage(Cel.Row - 3, 1).Offset(, 4).Value
.Cells(i, 6).Value = Plage(Cel.Row - 3, 1).Offset(, 5).Value
.Cells(i, 7).Value = Plage(Cel.Row - 3, 1).Offset(, 6).Value
.Cells(i, 8).Value = Plage(Cel.Row - 3, 1).Offset(, 7).Value
End If
Next Cel
Worksheets("Compilation de Commande").Select
End With
Application.ScreenUpdating = True
Pouvez-vous me dire ce qui ne va pas ?
En vous remerciant
Bonjour,
merci d'utiliser les balises code (icone </>) pour le rendre plus facilement lisible.
Et si tu commençais par dire quel est ton problème ?
Erreur ? Ne fait pas ce que tu veux ? Que veux-tu ?
eric
Bonjour,
J'ai réussi à trouver mon problème.
C'était un problème de mise en forme de cellule.
Désolé pour le dérangement ...
Storm28
Bah mon problème n'a pas résolu ...
Si vous voulez mon fichier, c'est en mp car je n'arrive pas
Salut Storm,
une belle soupe, ça...
Plage(Cel.Row - 3, 1).Offset(, 1).ValueTu dois calculer ton OFFSET directement depuis Cel, par exemple :
Cel.Offset(-3, 1).ValueSinon... envoie ton fichier avec explications claires et complètes et... pas de MDP ou protections, stp !
A+