Macro pour ajouter des lignes

[Pricer]

Bonjour tout le monde,
mon problème est le suivant: j'ai une serie de données d'une année.
les données sont représentées à raisons de 5 données par semaine du lundi jusqu'au vendredi).
ce que je cherche à voir, c'est une sorte de macro qui va inserer samaedi et dimanche pour compléter chaque semaine.
les conventions prises sont les suivantes: les valeurs (ratios) de samedi et dimanche sont celles du dernier vendredi les précédant.
merci d'avance pour toute suggestion ou aide.

Pricer,
A+

 

[Nikom]

Bonjour Pricer, le forum

Personellement, je fairais un deuxieme tableau sur une autre feuille avec les dates de toute l'année.
pour les jours de la semaines, rien de plus facile: il sufit de faire une copie incémentée.

il nous reste les ratio:
là, je ferais appel à la fonction recherche en fonction de la date.
tu peu ajouter une fonction si pour les samedi et dimanche et le tour est joué.

cordialement
Nikom

 

[Mytå]

Salut Pricer, Nikom et le forum

Essaye cette macro elle devrait régler ton problème

Option Explicit
Sub Insertion()
Dim Der_ligne As Integer
Dim I As Integer
Der_ligne = Range("A65535").End(xlUp).Row
For I = Der_ligne To 2 Step -1
If Application.WorksheetFunction.Weekday(Range("A" & I), 2) = 5 _
And Application.WorksheetFunction.Weekday(Range("A" & I + 1), 2) < 6 Then
With Range("A" & I + 1)
.EntireRow.Insert
.EntireRow.Insert
End With
Range("A" & I).AutoFill Destination:=Range("A" & I & ":A" & I + 2), Type:=xlFillDefault
Range("B" & I).AutoFill Destination:=Range("B" & I & ":B" & I + 2), Type:=xlFillDefault
Range("C" & I).Copy
Range("C" & I & ":C" & I + 2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
Next I
End Sub

Mytå

 

[Pricer]

merci bcp les ami,
ta macro Mytå marché à la perfection.
merci encore une fois et à bientôt sur le forum!
Pricer

 

[Nikom]

Bonsoir Pricer, Myta et le forum.

finalement, je persiste dans mon idée de départ et la concrétise (cf: piece jointe)
il n'y a même pas besoin de la fonction "si" pour les samedi et dimanche

une bonne fonction recherche avec des $ là où il faut et le tour est joué


félicitation à myta qui s'est plus creusé le crane que moi


bonne soirée, à bientot

 

[Pricer]

bonjour Nikom, le forum,
malheureusement, je ne peux pas télécharger la PJ directement à partir du forum. Veux tu bien (toi ou un autre visiteur du forum qui peut la télécharger) me l'envoyer directement sur mon adresse: pricer@stade.fr.
merci d'avance et bonne journée.
@+ Pricer

 

[Nikom]

bonjour pricer, le forum

je t'envoi ca tout de suite


a+
nikom

 

[Pricer]

une idée simple et élégante!
merci beaucoup,
bonne journée et a+
Pricer