Discussion :

[Betileo]

Bonjour, je suis nouveau sur le forum et je souhaiterais vraiment avoir votre aide.
J’ai un tableau d’environ 300 lignes. J’ai trouvé une macro me permettant de générer une ligne vide sur deux dans ce tableau. Jusque-là ca marche. Je souhaite maintenant remplir les lignes vides avec une formule prenant en compte une ligne sur deux.
Je mets en pièce jointe une partie du tableau pour être un peu plus claire.

Par exemple (selon le tableau en pièce jointe), pour remplir la case B3, j’applique cette formule : =si(C2=B2;B2 ;C2) . Par la suite, je souhaite appliquer cette formule à tout le tableau à raison d’une ligne sur 2.
Merci de vos réponses.

[EricDgn]

Bonjour,

Une solution: recopier systématiquement la ligne qui se trouve 2 au-dessus.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub copie2()
   '--- copie la ligne qui se trouve 2 lignes au dessus
   Dim kR As Long
   kR = 5                           '--- commence à la ligne 5
   While Cells(kR - 1, 1) <> ""     '--- tant qu'il y a une valeur en colonne 1 dans la ligne précédente
      Rows(kR - 2).Copy
      Cells(kR, 1).Select
      ActiveSheet.Paste
      kR = kR + 2
   Wend
End Sub

Cependant, en général, les présentations en 1 ligne sur 2 ne sont pas efficaces. Cela devient très rapidement compliqué à gérer.
Voir si une "Mise en forme conditionnelle" ne serait pas plus indiquée.

Bonne continuation

[Menhir]

Par exemple (selon le tableau en pièce jointe), pour remplir la case B3, j’applique cette formule : =si(C2=B2;B2 ;C2) . Par la suite, je souhaite appliquer cette formule à tout le tableau à raison d’une ligne sur 2.

J'espère que la formule que tu indiques est fictive parce que, telle qu'elle est, elle me semble totalement inutile.

Pour faire ce que tu souhaites, pas besoin de VBA.
Mets la formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(MOD(LIGNE();2)=1;"";SI(C2=B2;B2;C2))

A recopier vers le bas autant que nécessaire.