L
le kid
Guest
bonjour tout le monde ,
J'ai un petit soucis :
j'ai un fichier excel qui reprend les ref produi (A) quantité (B) ensuite j'ai les jours de la semaine avec suivant les produite des nombre différents
A partir de cela je voudrais réaliser une application qui me permettent d'avoir en colonne(C) donc le 1er jour , le jour choisi a partir d'une combobox et ainsi décaler toutes les données en supprimant les jours avt le jour choisi dans la combobox
Pour l'instant j'ai si je choisi la date de mardi :
If Sheets("feuil1").Range("a2").Offset(0, i) <> "Mardi" Then
Selection.Delete Shift:=xlToLeft
End If
Next
Sheets("feuil1").Range("c1").Value = "Mardi"
Sheets("feuil1").Range("f1").Value = "Mercredi"
Sheets("feuil1").Range("i1").Value = "Jeudi"
Sheets("feuil1").Range("l1").Value = "Vendredi"
Sheets("feuil1").Range("o1").Value = "Lundi"
Sheets("feuil1").Range("r1").Value = "Mardi"
Sheets("feuil1").Range("u1").Value = "Mercredi"
Sheets("feuil1").Range("x1").Value = "Jeudi"
Sheets("feuil1").Range("aa1").Value = "Vendredi"
Sheets("feuil1").Range("ad1").Value = "Lundi"
Range("C1:AD1").Select
Range("AD1").Activate
mais seul le jour correspond les nombre ne correspondent plus
QQn peut il m'aider ??
Merci d'avance
J'ai un petit soucis :
j'ai un fichier excel qui reprend les ref produi (A) quantité (B) ensuite j'ai les jours de la semaine avec suivant les produite des nombre différents
A partir de cela je voudrais réaliser une application qui me permettent d'avoir en colonne(C) donc le 1er jour , le jour choisi a partir d'une combobox et ainsi décaler toutes les données en supprimant les jours avt le jour choisi dans la combobox
Pour l'instant j'ai si je choisi la date de mardi :
If Sheets("feuil1").Range("a2").Offset(0, i) <> "Mardi" Then
Selection.Delete Shift:=xlToLeft
End If
Next
Sheets("feuil1").Range("c1").Value = "Mardi"
Sheets("feuil1").Range("f1").Value = "Mercredi"
Sheets("feuil1").Range("i1").Value = "Jeudi"
Sheets("feuil1").Range("l1").Value = "Vendredi"
Sheets("feuil1").Range("o1").Value = "Lundi"
Sheets("feuil1").Range("r1").Value = "Mardi"
Sheets("feuil1").Range("u1").Value = "Mercredi"
Sheets("feuil1").Range("x1").Value = "Jeudi"
Sheets("feuil1").Range("aa1").Value = "Vendredi"
Sheets("feuil1").Range("ad1").Value = "Lundi"
Range("C1:AD1").Select
Range("AD1").Activate
mais seul le jour correspond les nombre ne correspondent plus
QQn peut il m'aider ??
Merci d'avance