Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Décaler code dans une ligne

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

pascalpetanque

XLDnaute Nouveau
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
 

Pièces jointes

Trier par date Trier par votes
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 :
Code: 
=INDEX($A$5:$A$23;(LIGNE()-5)*2+1)
En F5, à propager sur 9 lignes :
Code: 
=INDEX($A$5:$A$23;(LIGNE()-4)*2)
En G5, à propager sur 10 lignes :
Code: 
=A5
Si c'est le cas il ne resterait qu'à rendre variables certains détails dans ça :
VB: 
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"
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
VB: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Question Question
Microsoft 365 Ecrire un texte dans une cellule sous condition et changer couleur ligne
Réponses
4
Affichages
127
Rikko14
R
E
  • Question Question
Microsoft 365 Règle de surbrillance d'une cellule qui dépasse une valeur selon l'intitulé d'une colonne.
Réponses
2
Affichages
205
Emeline20
E
G
  • Question Question
XL 2019 Somme de cellules non vides sur une période
Réponses
3
Affichages
241
job75
M
  • Résolu(e)
XL 2021 VBA Ajouter ligne tableau + autres cellules hors tableau
Réponses
3
Affichages
170
sylvanu
P
  • Résolu(e)
XL 2019 Cocher les cases pour répondre.
Réponses
11
Affichages
282
Paulle
P
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
137
Cousinhub
D
  • Résolu(e)
Microsoft 365 chercher une cellule de couleur rouge dans une colonne
Réponses
4
Affichages
314
sylvanu
P
  • Question Question
XL 2021 inscrire le nombre d'une cellule dans une liste dans une colonne
Réponses
6
Affichages
313
OKBI
O
  • Question Question
Microsoft 365 ajouter une formule dans une ligne de code
Réponses
5
Affichages
230
Dranreb
  • Résolu(e)
Microsoft 365 Modifier un code copie donnée chaque feuil séparément
Réponses
11
Affichages
311
ExcelDow
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
344
Pierreavecunp
P
A
  • Résolu(e)
XL 2019 Optimisation code VBA (Icônes flottantes)
Réponses
14
Affichages
473
Amilo
A
E
  • Question Question
XL 2016 Formule MFC
Réponses
7
Affichages
176
excelnoober
E
N
  • Résolu(e)
XL 2021 liste déroulante en cascade
Réponses
11
Affichages
476
natadom
N
C
  • Question Question
Microsoft 365 Déplacer une ligne sous condition
Réponses
5
Affichages
265
CB7
C
N
  • Question Question
Microsoft 365 appliquer la formule en changeant de ligne et de colonne
Réponses
2
Affichages
187
ndranghettino
N
  • Question Question
Microsoft 365 Effacer (et non supprimer) une ligne suivant texte.
Réponses
6
Affichages
299
DAVID-44-
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
554
sylvanu
W
  • Question Question
Autres Inserer automatiquement une ligne avec même mise en forme après avoir valider mes données
Réponses
11
Affichages
367
walki
W
M
  • Résolu(e)
XL 2021 Verrouillage de cellules après exécution d'une macro
2
Réponses
23
Affichages
862
MATLEA
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…