XL 2013 Décaler code dans une ligne

[pascalpetanque]

Bonjour, j'ai 2 modif à apporter à ce code. je souhaiterai commencer à la ligne 5 (en A5). Comment faire ? Et concernant la mise en forme je voudrait encadrer uniquement les cellules pleine de la colonne C à G sachant que le nombre en colonne A est modifiable Merci de votre aide

 

[Dranreb]

Bonjour
L'ensemble étant préalablement décalé vers le bas de 4 lignes, ces formules vous conviendraient-elles pour le nombre de lignes actuel ?
En C5, à propager sur 10 lignes :

=INDEX($A$5:$A$23;(LIGNE()-5)*2+1)

En F5, à propager sur 9 lignes :

=INDEX($A$5:$A$23;(LIGNE()-4)*2)

En G5, à propager sur 10 lignes :

=A5

Si c'est le cas il ne resterait qu'à rendre variables certains détails dans ça :

Feuil1.[C5:C14].FormulaR1C1 = "=INDEX(R5C1:R23C1,(ROW()-5)*2+1)"
Feuil1.[F5:F13].FormulaR1C1 = "=INDEX(R5C1:R23C1,(ROW()-4)*2)"
Feuil1.[G5:G14].FormulaR1C1 = "=RC1"

 

[pascalpetanque]

Désolé, ca fonctionne pas avec le code car le nombre en colonne A est amener a être variable

 

[Dranreb]

Oui j'entends bien mais le veux d'abord savoir si les formules vous plaisent.
La dernière me parait bizarre d'ailleurs, reproduisant juste la 1ère moitié …

 

[pascalpetanque]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tablo, i&
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
If FilterMode Then ShowAllData 'si la feuille est filtré
[C:E].ClearContents 'RAZ
With [A1].CurrentRegion.Resize(, 7)
tablo = .Formula
For i = 1 To Application.RoundUp(UBound(tablo) / 2, 0)
tablo(i, 3) = "=A" & 1 + 2 * (i - 1)

tablo(i, 6) = "=A" & 2 * i
tablo(i, 7) = "=A" & 1 + 1 * (i - 1)
Next
.Formula = tablo
End With
Application.EnableEvents = True 'réactive les évènements
End Sub

 

[Dranreb]

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim NbL As Long, AdrA As String
   NbL = Me.[A1000000].End(xlUp).Row
   AdrA = "R5C1:R" & NbL & "C1"
   NbL = NbL - 4
   Application.ScreenUpdating = False
   Application.EnableEvents = False 'désactive les évènements
   If FilterMode Then ShowAllData 'si la feuille est filtré
   [C:F].ClearContents 'RAZ
   Me.[C5].Resize((NbL + 1) \ 2).FormulaR1C1 = "=INDEX(" & AdrA & ",(ROW()-5)*2+1)"
   Me.[F5].Resize(NbL \ 2).FormulaR1C1 = "=INDEX(" & AdrA & ",(ROW()-4)*2)"
   Application.EnableEvents = True 'réactive les évènements
   End Sub