Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au 7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au 7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au 7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au 7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au 7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au 7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer des
lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées
à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au
7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment
puis-je faire comprendre au PC qu'il doit m'insérer des lignes pour
compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer des
lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées
à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au
7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment
puis-je faire comprendre au PC qu'il doit m'insérer des lignes pour
compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer des
lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées
à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au
7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment
puis-je faire comprendre au PC qu'il doit m'insérer des lignes pour
compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
on teste, on teste
merci et à touta pour le résultat.
jacques
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : lfmqsj$ive$
Je n'avais pas vu ceci "> J'aimerais que les dates aillent du 1/1 au 31/12 ....."
Ceci pour l'année en cours complète
'----------------
Sub jj()
Application.ScreenUpdating = False
Dim i As Long, j As Long
With Sheets("feuil1")
.Cells(2, 2).EntireRow.Insert
.Cells(2, 2) = DateSerial(Year(Date), 1, 1)
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) = DateSerial(Year(Date), 12, 31)
For i = .Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
For j = 1 To .Cells(i, 2) - .Cells(i - 1, 2) - 1
.Cells(i, 2).EntireRow.Insert
.Cells(i, 2) = .Cells(i + 1, 2) - 1
Next
Next
End With
Application.ScreenUpdating = True
End Sub
'-----------------
--
Salutations
JJ
"Jacquouille" a écrit dans le message de news: lfmhri$q2k$Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au 7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
on teste, on teste
merci et à touta pour le résultat.
jacques
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : lfmqsj$ive$1@speranza.aioe.org...
Je n'avais pas vu ceci "> J'aimerais que les dates aillent du 1/1 au 31/12 ....."
Ceci pour l'année en cours complète
'----------------
Sub jj()
Application.ScreenUpdating = False
Dim i As Long, j As Long
With Sheets("feuil1")
.Cells(2, 2).EntireRow.Insert
.Cells(2, 2) = DateSerial(Year(Date), 1, 1)
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) = DateSerial(Year(Date), 12, 31)
For i = .Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
For j = 1 To .Cells(i, 2) - .Cells(i - 1, 2) - 1
.Cells(i, 2).EntireRow.Insert
.Cells(i, 2) = .Cells(i + 1, 2) - 1
Next
Next
End With
Application.ScreenUpdating = True
End Sub
'-----------------
--
Salutations
JJ
"Jacquouille" <j.thiernesse@skynet.be> a écrit dans le message de news: lfmhri$q2k$1@speranza.aioe.org...
Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au 7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
on teste, on teste
merci et à touta pour le résultat.
jacques
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : lfmqsj$ive$
Je n'avais pas vu ceci "> J'aimerais que les dates aillent du 1/1 au 31/12 ....."
Ceci pour l'année en cours complète
'----------------
Sub jj()
Application.ScreenUpdating = False
Dim i As Long, j As Long
With Sheets("feuil1")
.Cells(2, 2).EntireRow.Insert
.Cells(2, 2) = DateSerial(Year(Date), 1, 1)
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) = DateSerial(Year(Date), 12, 31)
For i = .Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
For j = 1 To .Cells(i, 2) - .Cells(i - 1, 2) - 1
.Cells(i, 2).EntireRow.Insert
.Cells(i, 2) = .Cells(i + 1, 2) - 1
Next
Next
End With
Application.ScreenUpdating = True
End Sub
'-----------------
--
Salutations
JJ
"Jacquouille" a écrit dans le message de news: lfmhri$q2k$Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au 7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
on teste, on teste
merci et à touta pour le résultat.
jacques
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
lfmqsj$ive$
Je n'avais pas vu ceci "> J'aimerais que les dates aillent du 1/1 au 31/12
....."
Ceci pour l'année en cours complète
'----------------
Sub jj()
Application.ScreenUpdating = False
Dim i As Long, j As Long
With Sheets("feuil1")
.Cells(2, 2).EntireRow.Insert
.Cells(2, 2) = DateSerial(Year(Date), 1, 1)
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) =
DateSerial(Year(Date), 12, 31)
For i = .Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
For j = 1 To .Cells(i, 2) - .Cells(i - 1, 2) - 1
.Cells(i, 2).EntireRow.Insert
.Cells(i, 2) = .Cells(i + 1, 2) - 1
Next
Next
End With
Application.ScreenUpdating = True
End Sub
'-----------------
--
Salutations
JJ
"Jacquouille" a écrit dans le message de news:
lfmhri$q2k$Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer
des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées
à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au
7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment
puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast!
Antivirus est active.
http://www.avast.com
on teste, on teste
merci et à touta pour le résultat.
jacques
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
lfmqsj$ive$1@speranza.aioe.org...
Je n'avais pas vu ceci "> J'aimerais que les dates aillent du 1/1 au 31/12
....."
Ceci pour l'année en cours complète
'----------------
Sub jj()
Application.ScreenUpdating = False
Dim i As Long, j As Long
With Sheets("feuil1")
.Cells(2, 2).EntireRow.Insert
.Cells(2, 2) = DateSerial(Year(Date), 1, 1)
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) =
DateSerial(Year(Date), 12, 31)
For i = .Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
For j = 1 To .Cells(i, 2) - .Cells(i - 1, 2) - 1
.Cells(i, 2).EntireRow.Insert
.Cells(i, 2) = .Cells(i + 1, 2) - 1
Next
Next
End With
Application.ScreenUpdating = True
End Sub
'-----------------
--
Salutations
JJ
"Jacquouille" <j.thiernesse@skynet.be> a écrit dans le message de news:
lfmhri$q2k$1@speranza.aioe.org...
Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer
des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées
à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au
7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment
puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast!
Antivirus est active.
http://www.avast.com
on teste, on teste
merci et à touta pour le résultat.
jacques
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
lfmqsj$ive$
Je n'avais pas vu ceci "> J'aimerais que les dates aillent du 1/1 au 31/12
....."
Ceci pour l'année en cours complète
'----------------
Sub jj()
Application.ScreenUpdating = False
Dim i As Long, j As Long
With Sheets("feuil1")
.Cells(2, 2).EntireRow.Insert
.Cells(2, 2) = DateSerial(Year(Date), 1, 1)
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) =
DateSerial(Year(Date), 12, 31)
For i = .Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
For j = 1 To .Cells(i, 2) - .Cells(i - 1, 2) - 1
.Cells(i, 2).EntireRow.Insert
.Cells(i, 2) = .Cells(i + 1, 2) - 1
Next
Next
End With
Application.ScreenUpdating = True
End Sub
'-----------------
--
Salutations
JJ
"Jacquouille" a écrit dans le message de news:
lfmhri$q2k$Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer
des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées
à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au
7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment
puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast!
Antivirus est active.
http://www.avast.com
on teste, on teste
merci et à touta pour le résultat.
jacques
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
lfmqsj$ive$
Je n'avais pas vu ceci "> J'aimerais que les dates aillent du 1/1 au 31/12
....."
Ceci pour l'année en cours complète
'----------------
Sub jj()
Application.ScreenUpdating = False
Dim i As Long, j As Long
With Sheets("feuil1")
.Cells(2, 2).EntireRow.Insert
.Cells(2, 2) = DateSerial(Year(Date), 1, 1)
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) =
DateSerial(Year(Date), 12, 31)
For i = .Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
For j = 1 To .Cells(i, 2) - .Cells(i - 1, 2) - 1
.Cells(i, 2).EntireRow.Insert
.Cells(i, 2) = .Cells(i + 1, 2) - 1
Next
Next
End With
Application.ScreenUpdating = True
End Sub
'-----------------
--
Salutations
JJ
"Jacquouille" a écrit dans le message de news:
lfmhri$q2k$Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer
des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées
à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au
7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment
puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast!
Antivirus est active.
http://www.avast.com
on teste, on teste
merci et à touta pour le résultat.
jacques
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
lfmqsj$ive$1@speranza.aioe.org...
Je n'avais pas vu ceci "> J'aimerais que les dates aillent du 1/1 au 31/12
....."
Ceci pour l'année en cours complète
'----------------
Sub jj()
Application.ScreenUpdating = False
Dim i As Long, j As Long
With Sheets("feuil1")
.Cells(2, 2).EntireRow.Insert
.Cells(2, 2) = DateSerial(Year(Date), 1, 1)
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) =
DateSerial(Year(Date), 12, 31)
For i = .Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
For j = 1 To .Cells(i, 2) - .Cells(i - 1, 2) - 1
.Cells(i, 2).EntireRow.Insert
.Cells(i, 2) = .Cells(i + 1, 2) - 1
Next
Next
End With
Application.ScreenUpdating = True
End Sub
'-----------------
--
Salutations
JJ
"Jacquouille" <j.thiernesse@skynet.be> a écrit dans le message de news:
lfmhri$q2k$1@speranza.aioe.org...
Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer
des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées
à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au
7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment
puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast!
Antivirus est active.
http://www.avast.com
on teste, on teste
merci et à touta pour le résultat.
jacques
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
lfmqsj$ive$
Je n'avais pas vu ceci "> J'aimerais que les dates aillent du 1/1 au 31/12
....."
Ceci pour l'année en cours complète
'----------------
Sub jj()
Application.ScreenUpdating = False
Dim i As Long, j As Long
With Sheets("feuil1")
.Cells(2, 2).EntireRow.Insert
.Cells(2, 2) = DateSerial(Year(Date), 1, 1)
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) =
DateSerial(Year(Date), 12, 31)
For i = .Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
For j = 1 To .Cells(i, 2) - .Cells(i - 1, 2) - 1
.Cells(i, 2).EntireRow.Insert
.Cells(i, 2) = .Cells(i + 1, 2) - 1
Next
Next
End With
Application.ScreenUpdating = True
End Sub
'-----------------
--
Salutations
JJ
"Jacquouille" a écrit dans le message de news:
lfmhri$q2k$Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer
des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées
à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au
7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment
puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast!
Antivirus est active.
http://www.avast.com
on teste, on teste
merci et à touta pour le résultat.
jacques
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
lfmqsj$ive$
Je n'avais pas vu ceci "> J'aimerais que les dates aillent du 1/1 au 31/12
....."
Ceci pour l'année en cours complète
'----------------
Sub jj()
Application.ScreenUpdating = False
Dim i As Long, j As Long
With Sheets("feuil1")
.Cells(2, 2).EntireRow.Insert
.Cells(2, 2) = DateSerial(Year(Date), 1, 1)
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) =
DateSerial(Year(Date), 12, 31)
For i = .Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
For j = 1 To .Cells(i, 2) - .Cells(i - 1, 2) - 1
.Cells(i, 2).EntireRow.Insert
.Cells(i, 2) = .Cells(i + 1, 2) - 1
Next
Next
End With
Application.ScreenUpdating = True
End Sub
'-----------------
--
Salutations
JJ
"Jacquouille" a écrit dans le message de news:
lfmhri$q2k$Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer
des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées
à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au
7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment
puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast!
Antivirus est active.
http://www.avast.com
on teste, on teste
merci et à touta pour le résultat.
jacques
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
lfmqsj$ive$1@speranza.aioe.org...
Je n'avais pas vu ceci "> J'aimerais que les dates aillent du 1/1 au 31/12
....."
Ceci pour l'année en cours complète
'----------------
Sub jj()
Application.ScreenUpdating = False
Dim i As Long, j As Long
With Sheets("feuil1")
.Cells(2, 2).EntireRow.Insert
.Cells(2, 2) = DateSerial(Year(Date), 1, 1)
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) =
DateSerial(Year(Date), 12, 31)
For i = .Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
For j = 1 To .Cells(i, 2) - .Cells(i - 1, 2) - 1
.Cells(i, 2).EntireRow.Insert
.Cells(i, 2) = .Cells(i + 1, 2) - 1
Next
Next
End With
Application.ScreenUpdating = True
End Sub
'-----------------
--
Salutations
JJ
"Jacquouille" <j.thiernesse@skynet.be> a écrit dans le message de news:
lfmhri$q2k$1@speranza.aioe.org...
Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer
des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées
à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au
7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment
puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast!
Antivirus est active.
http://www.avast.com
on teste, on teste
merci et à touta pour le résultat.
jacques
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
lfmqsj$ive$
Je n'avais pas vu ceci "> J'aimerais que les dates aillent du 1/1 au 31/12
....."
Ceci pour l'année en cours complète
'----------------
Sub jj()
Application.ScreenUpdating = False
Dim i As Long, j As Long
With Sheets("feuil1")
.Cells(2, 2).EntireRow.Insert
.Cells(2, 2) = DateSerial(Year(Date), 1, 1)
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) =
DateSerial(Year(Date), 12, 31)
For i = .Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
For j = 1 To .Cells(i, 2) - .Cells(i - 1, 2) - 1
.Cells(i, 2).EntireRow.Insert
.Cells(i, 2) = .Cells(i + 1, 2) - 1
Next
Next
End With
Application.ScreenUpdating = True
End Sub
'-----------------
--
Salutations
JJ
"Jacquouille" a écrit dans le message de news:
lfmhri$q2k$Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer
des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées
à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au
7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment
puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast!
Antivirus est active.
http://www.avast.com
Re
Je viens de corriger le formatage en ajoutant la même ligne que la tienne, adaptée à la colonneB
.Range("a2:a" & .Cells(Rows.Count, 1).End(xlUp).Row).NumberFormat = "dddd"
.Range("b2:b" & .Cells(Rows.Count, 1).End(xlUp).Row).NumberFormat = "dd-mmm"
Pour le reste, cela me convient parfaitement de réveillonner deux fois ...
Je te remercie beaucoup.
Passe une bonne fin de journée
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : lfmt91$p4e$
Re..
Je pense que ce classeur remplit toutes les conditions.(en plus de celle que mes "Oeils" ont ignorés)
http://cjoint.com/?DClmWeE6Alo
--
Salutations
J'
"Jacquouille" a écrit dans le message de news: lfmspa$o0u$on teste, on teste
merci et à touta pour le résultat.
jacques
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : lfmqsj$ive$
Je n'avais pas vu ceci "> J'aimerais que les dates aillent du 1/1 au 31/12 ....."
Ceci pour l'année en cours complète
'----------------
Sub jj()
Application.ScreenUpdating = False
Dim i As Long, j As Long
With Sheets("feuil1")
.Cells(2, 2).EntireRow.Insert
.Cells(2, 2) = DateSerial(Year(Date), 1, 1)
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) = DateSerial(Year(Date), 12, 31)
For i = .Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
For j = 1 To .Cells(i, 2) - .Cells(i - 1, 2) - 1
.Cells(i, 2).EntireRow.Insert
.Cells(i, 2) = .Cells(i + 1, 2) - 1
Next
Next
End With
Application.ScreenUpdating = True
End Sub
'-----------------
--
Salutations
JJ
"Jacquouille" a écrit dans le message de news: lfmhri$q2k$Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au 7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
Re
Je viens de corriger le formatage en ajoutant la même ligne que la tienne, adaptée à la colonneB
.Range("a2:a" & .Cells(Rows.Count, 1).End(xlUp).Row).NumberFormat = "dddd"
.Range("b2:b" & .Cells(Rows.Count, 1).End(xlUp).Row).NumberFormat = "dd-mmm"
Pour le reste, cela me convient parfaitement de réveillonner deux fois ...
Je te remercie beaucoup.
Passe une bonne fin de journée
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : lfmt91$p4e$1@speranza.aioe.org...
Re..
Je pense que ce classeur remplit toutes les conditions.(en plus de celle que mes "Oeils" ont ignorés)
http://cjoint.com/?DClmWeE6Alo
--
Salutations
J'
"Jacquouille" <j.thiernesse@skynet.be> a écrit dans le message de news: lfmspa$o0u$1@speranza.aioe.org...
on teste, on teste
merci et à touta pour le résultat.
jacques
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : lfmqsj$ive$1@speranza.aioe.org...
Je n'avais pas vu ceci "> J'aimerais que les dates aillent du 1/1 au 31/12 ....."
Ceci pour l'année en cours complète
'----------------
Sub jj()
Application.ScreenUpdating = False
Dim i As Long, j As Long
With Sheets("feuil1")
.Cells(2, 2).EntireRow.Insert
.Cells(2, 2) = DateSerial(Year(Date), 1, 1)
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) = DateSerial(Year(Date), 12, 31)
For i = .Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
For j = 1 To .Cells(i, 2) - .Cells(i - 1, 2) - 1
.Cells(i, 2).EntireRow.Insert
.Cells(i, 2) = .Cells(i + 1, 2) - 1
Next
Next
End With
Application.ScreenUpdating = True
End Sub
'-----------------
--
Salutations
JJ
"Jacquouille" <j.thiernesse@skynet.be> a écrit dans le message de news: lfmhri$q2k$1@speranza.aioe.org...
Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au 7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
Re
Je viens de corriger le formatage en ajoutant la même ligne que la tienne, adaptée à la colonneB
.Range("a2:a" & .Cells(Rows.Count, 1).End(xlUp).Row).NumberFormat = "dddd"
.Range("b2:b" & .Cells(Rows.Count, 1).End(xlUp).Row).NumberFormat = "dd-mmm"
Pour le reste, cela me convient parfaitement de réveillonner deux fois ...
Je te remercie beaucoup.
Passe une bonne fin de journée
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : lfmt91$p4e$
Re..
Je pense que ce classeur remplit toutes les conditions.(en plus de celle que mes "Oeils" ont ignorés)
http://cjoint.com/?DClmWeE6Alo
--
Salutations
J'
"Jacquouille" a écrit dans le message de news: lfmspa$o0u$on teste, on teste
merci et à touta pour le résultat.
jacques
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : lfmqsj$ive$
Je n'avais pas vu ceci "> J'aimerais que les dates aillent du 1/1 au 31/12 ....."
Ceci pour l'année en cours complète
'----------------
Sub jj()
Application.ScreenUpdating = False
Dim i As Long, j As Long
With Sheets("feuil1")
.Cells(2, 2).EntireRow.Insert
.Cells(2, 2) = DateSerial(Year(Date), 1, 1)
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) = DateSerial(Year(Date), 12, 31)
For i = .Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
For j = 1 To .Cells(i, 2) - .Cells(i - 1, 2) - 1
.Cells(i, 2).EntireRow.Insert
.Cells(i, 2) = .Cells(i + 1, 2) - 1
Next
Next
End With
Application.ScreenUpdating = True
End Sub
'-----------------
--
Salutations
JJ
"Jacquouille" a écrit dans le message de news: lfmhri$q2k$Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au 7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
Re
Je viens de corriger le formatage en ajoutant la même ligne que la tienne, adaptée à la colonneB
.Range("a2:a" & .Cells(Rows.Count, 1).End(xlUp).Row).NumberFormat = "dddd"
.Range("b2:b" & .Cells(Rows.Count, 1).End(xlUp).Row).NumberFormat = "dd-mmm"
Pour le reste, cela me convient parfaitement de réveillonner deux fois ...
Je te remercie beaucoup.
Passe une bonne fin de journée
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : lfmt91$p4e$
Re..
Je pense que ce classeur remplit toutes les conditions.(en plus de celle que mes "Oeils" ont ignorés)
http://cjoint.com/?DClmWeE6Alo
--
Salutations
J'
"Jacquouille" a écrit dans le message de news: lfmspa$o0u$on teste, on teste
merci et à touta pour le résultat.
jacques
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : lfmqsj$ive$
Je n'avais pas vu ceci "> J'aimerais que les dates aillent du 1/1 au 31/12 ....."
Ceci pour l'année en cours complète
'----------------
Sub jj()
Application.ScreenUpdating = False
Dim i As Long, j As Long
With Sheets("feuil1")
.Cells(2, 2).EntireRow.Insert
.Cells(2, 2) = DateSerial(Year(Date), 1, 1)
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) = DateSerial(Year(Date), 12, 31)
For i = .Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
For j = 1 To .Cells(i, 2) - .Cells(i - 1, 2) - 1
.Cells(i, 2).EntireRow.Insert
.Cells(i, 2) = .Cells(i + 1, 2) - 1
Next
Next
End With
Application.ScreenUpdating = True
End Sub
'-----------------
--
Salutations
JJ
"Jacquouille" a écrit dans le message de news: lfmhri$q2k$Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au 7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
Re
Je viens de corriger le formatage en ajoutant la même ligne que la tienne, adaptée à la colonneB
.Range("a2:a" & .Cells(Rows.Count, 1).End(xlUp).Row).NumberFormat = "dddd"
.Range("b2:b" & .Cells(Rows.Count, 1).End(xlUp).Row).NumberFormat = "dd-mmm"
Pour le reste, cela me convient parfaitement de réveillonner deux fois ...
Je te remercie beaucoup.
Passe une bonne fin de journée
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : lfmt91$p4e$1@speranza.aioe.org...
Re..
Je pense que ce classeur remplit toutes les conditions.(en plus de celle que mes "Oeils" ont ignorés)
http://cjoint.com/?DClmWeE6Alo
--
Salutations
J'
"Jacquouille" <j.thiernesse@skynet.be> a écrit dans le message de news: lfmspa$o0u$1@speranza.aioe.org...
on teste, on teste
merci et à touta pour le résultat.
jacques
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : lfmqsj$ive$1@speranza.aioe.org...
Je n'avais pas vu ceci "> J'aimerais que les dates aillent du 1/1 au 31/12 ....."
Ceci pour l'année en cours complète
'----------------
Sub jj()
Application.ScreenUpdating = False
Dim i As Long, j As Long
With Sheets("feuil1")
.Cells(2, 2).EntireRow.Insert
.Cells(2, 2) = DateSerial(Year(Date), 1, 1)
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) = DateSerial(Year(Date), 12, 31)
For i = .Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
For j = 1 To .Cells(i, 2) - .Cells(i - 1, 2) - 1
.Cells(i, 2).EntireRow.Insert
.Cells(i, 2) = .Cells(i + 1, 2) - 1
Next
Next
End With
Application.ScreenUpdating = True
End Sub
'-----------------
--
Salutations
JJ
"Jacquouille" <j.thiernesse@skynet.be> a écrit dans le message de news: lfmhri$q2k$1@speranza.aioe.org...
Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au 7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
Re
Je viens de corriger le formatage en ajoutant la même ligne que la tienne, adaptée à la colonneB
.Range("a2:a" & .Cells(Rows.Count, 1).End(xlUp).Row).NumberFormat = "dddd"
.Range("b2:b" & .Cells(Rows.Count, 1).End(xlUp).Row).NumberFormat = "dd-mmm"
Pour le reste, cela me convient parfaitement de réveillonner deux fois ...
Je te remercie beaucoup.
Passe une bonne fin de journée
Jacques.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : lfmt91$p4e$
Re..
Je pense que ce classeur remplit toutes les conditions.(en plus de celle que mes "Oeils" ont ignorés)
http://cjoint.com/?DClmWeE6Alo
--
Salutations
J'
"Jacquouille" a écrit dans le message de news: lfmspa$o0u$on teste, on teste
merci et à touta pour le résultat.
jacques
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion : lfmqsj$ive$
Je n'avais pas vu ceci "> J'aimerais que les dates aillent du 1/1 au 31/12 ....."
Ceci pour l'année en cours complète
'----------------
Sub jj()
Application.ScreenUpdating = False
Dim i As Long, j As Long
With Sheets("feuil1")
.Cells(2, 2).EntireRow.Insert
.Cells(2, 2) = DateSerial(Year(Date), 1, 1)
.Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) = DateSerial(Year(Date), 12, 31)
For i = .Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
For j = 1 To .Cells(i, 2) - .Cells(i - 1, 2) - 1
.Cells(i, 2).EntireRow.Insert
.Cells(i, 2) = .Cells(i + 1, 2) - 1
Next
Next
End With
Application.ScreenUpdating = True
End Sub
'-----------------
--
Salutations
JJ
"Jacquouille" a écrit dans le message de news: lfmhri$q2k$Bonjour,
J'ai commencé un agenda, mais il se fait trop petit et je dois insérer des lignes à tout bout de champs.
En A2 (formatée en jjjj), j'ai = B2 (date). C, D et autres sont destinées à des données.
Les dates en B ne se suivent pas. Il y a des trous (je passe du 4/3 au 7/3, par exemple.
Question:
Sans faire "insérer ligne" 50 fois à des emplacements différents, comment puis-je faire comprendre au PC
qu'il doit m'insérer des lignes pour compléter la liste des dates?
dimanche 20 avr
samedi 26 avr
dimanche 27 avr
dimanche 11 mai
dimanche 18 mai
mardi 20 mai
dimanche 25 mai
J'aimerais que les dates aillent du 1/1 au 31/12 .....
Grand merci et bonne journée
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast!
Antivirus est active.
http://www.avast.com
