mirmoleboss
Messages postés303Date d'inscriptionmercredi 11 octobre 2006StatutMembreDernière intervention29 juillet 2011 13 déc. 2006 à 20:23
oui que veux tu enfete remplacer toutes les valeurs 1??
ajouter quelquechose a 1??
exprime clairement silteplait ce qui nous permettera que lon comprenne mieu et que toi tu es une reponse plus vite
cs_jeandomi
Messages postés2Date d'inscriptionmercredi 13 décembre 2006StatutMembreDernière intervention14 décembre 2006 14 déc. 2006 à 22:07
bonjour
Merci Charles Racaud
en fait je parcours la colonne A, dès que je trouve la valeur 1 je voudrais insérer une ligne juste au dessus de cette ligne. Afin de pouvoir effectuer les operations des 7 lignes précédentes. Le fichier est un calendrier, la colonne B affiche les jours.
la colonne A affichage 1 si rencontre mercredi en colonne B. L'insertion d'une ligne au dessus de chaque mercredi me permets d'effectuer les diverses opérations de la semaine. Le probleme vient du fait que le calendrier est variable, calcul à partir d'une année X, et celui -ci doit démarrer au premier janvier.
Merci à tous, je débute au niveau des macros.
Heu, je fait que la fonction que tu veut le reste j'y comprend rien (ou plutot ca m'embrouille trop)
Const RowStart As Integer = 10
Const RowLenght As Integer = 5
Dim i As Integer
For i = RowStart + RowLenght To RowStart + 1 Step -1
If ActiveSheet.Cells(i - 1, 1).Value = 1 Then _
ActiveSheet.Rows(i).Insert
Next i,