Inserer une ligne....

Bonjour Claudy
Voici ce que me dit mon enregistreuyr de macro....pour autant que j'aie bein
tout compris. -)
Sub insere_ligne()
Rows("17:17").Select
Selection.Insert Shift:=xlDown
Range("A16:F16").Select
Selection.AutoFill Destination:=Range("A16:F17"), Type:=xlFillDefault
Range("A16:F17").Select
Range("A6").Select
End Sub


--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le message
de news: 446b6886$0$13890$ba620e4c@news.skynet.be...

Bonsoir, par une macro, je voudrais pouvoir inserer une ligne à une date
précise.par exemple le 12/11/2006, entre le 1/11 et le 1/12
Et cela en décalant également les formules.
merci d'avance,

http://cjoint.com/?frupY1BBfS

Claudy

ok, merci pour l'approche, mais ce n'était qu'un exemple:
Le choix de la date se ferait via une inputbox d'où le problème étant
d'aller se situer au bon endroit dans la colonne date...
A+
Merci
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: u0vEFCeeGHA.3348@TK2MSFTNGP03.phx.gbl...

Bonjour Claudy
Voici ce que me dit mon enregistreuyr de macro....pour autant que j'aie
bein tout compris. -)
Sub insere_ligne()
Rows("17:17").Select
Selection.Insert Shift:=xlDown
Range("A16:F16").Select
Selection.AutoFill Destination:=Range("A16:F17"), Type:=xlFillDefault
Range("A16:F17").Select
Range("A6").Select
End Sub


--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le message
de news: 446b6886$0$13890$ba620e4c@news.skynet.be...

Bonsoir, par une macro, je voudrais pouvoir inserer une ligne à une date
précise.par exemple le 12/11/2006, entre le 1/11 et le 1/12
Et cela en décalant également les formules.
merci d'avance,

http://cjoint.com/?frupY1BBfS

Claudy

*Bonjour claudy*,
Ton fichier modifié : http://cjoint.com/?frvBCF8e0b

Le code associé :
Private Sub CommandButton1_Click()
madate = InputBox("Entrez une datesous la forme jj/mm/aaaa", "Saisie",
Date)
If IsDate(madate) Then
With Sheets("Feuil1")
For x = 6 To .Range("a" & Rows.Count).End(xlUp).Row
If CDate(madate) >= .Cells(x, 1) And CDate(madate) < Cells(x + 1,
1) Then
.Range(Cells(x + 1, 1), Cells(x + 1, 6)).Insert Shift:=xlDown
.Cells(x + 1, 1) = Format(madate, "dd/mm/yyyy")
Exit For
End If
Next
End With
End If
End Sub

Dis nous si ca te conviens ;-)

Bonsoir, par une macro, je voudrais pouvoir inserer une ligne à une date
précise.par exemple le 12/11/2006, entre le 1/11 et le 1/12
Et cela en décalant également les formules.
merci d'avance,

http://cjoint.com/?frupY1BBfS

Claudy

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Merci beaucoup...ça marche très bien
A§
Claudy
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.8d097d65a2651973.40692@free.fr.ns...

*Bonjour claudy*,
Ton fichier modifié : http://cjoint.com/?frvBCF8e0b

Le code associé :
Private Sub CommandButton1_Click()
madate = InputBox("Entrez une datesous la forme jj/mm/aaaa", "Saisie",
Date)
If IsDate(madate) Then
With Sheets("Feuil1")
For x = 6 To .Range("a" & Rows.Count).End(xlUp).Row
If CDate(madate) >= .Cells(x, 1) And CDate(madate) < Cells(x + 1, 1)
Then
.Range(Cells(x + 1, 1), Cells(x + 1, 6)).Insert Shift:=xlDown
.Cells(x + 1, 1) = Format(madate, "dd/mm/yyyy")
Exit For
End If
Next
End With
End If
End Sub

Dis nous si ca te conviens ;-)

Bonsoir, par une macro, je voudrais pouvoir inserer une ligne à une date
précise.par exemple le 12/11/2006, entre le 1/11 et le 1/12
Et cela en décalant également les formules.
merci d'avance,

http://cjoint.com/?frupY1BBfS

Claudy

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O