effectuer un saut de ligne automatiquement [VBA] Résolu

Question

Bonjour à tous, 
Je vous serai très reconnaissante si vous pourriez m'aider à effectuer un saut de ligne dans mon fichier Excel chaque 288 lignes afin que je puisse  travailler merci infiniment.

Raymond PENTIER · Answer

Bonjour.

Je n'ai pas bien compris ce que tu veux faire :
Il s'agit de 288 retours à la ligne dans une même cellule ? ce serait assez énorme et incongru ; 
ou de 288 lignes de saisies de données ; dans ce cas, une fois saisie la dernière donnée de la ligne 288, tu fais Entrée 2 fois et tu te retrouves à la ligne 290 ! 

Si ton problème est de compter les lignes, tu insères une colonne avant la colonne A, tu saisis 1 pour la première ligne de ta série (par exemple en A3), dans la cellule suivante tu saisis la formule =A3+1 que tu recopies jusqu'à voir affiché le nombre 288.
Et tu recommences à partir de la cellule A290 ...
Tu peux aussi saisir, en cellule A3, =SI(A2="";1;SI(A2=288;"";A2+1)) et la recopier jusqu'à la dernière ligne de ton tableau ...

ccm81 · Answer

Bonjour

Et pour ajouter aux propositions de Raymond
Tu as un fichier avec beaucoup de lignes remplies, tu veux insérer automatiquement une ligne vide toutes les 288 lignes, là, il faut passer par une macro

Cdlmnt

Patrice33740 · Answer

Bonjour,

Et pour ajouter aux commentaires de Raymond et de ccm81 (bonjour à vous deux), laisser une ligne vide dans un tableau, c'est pas une bonne idée car ça crée une rupture dans les données et Excel ignore le reste du tableau.

Patrice33740 · Answer

Bonjour,

Bien que je pense que ce ne soit pas une bonne idée, voici une macro qui regroupe les données d'une feuille en blocs de 288 lignes (sans ligne vide) séparés par une ligne vide. 
Sub DécouperTableauEnBlocDe288Lignes()
Dim D As Range  'Début
Dim V As Range  'Vide
Dim T As Range  'Tableau

Application.ScreenUpdating = False
  'Début du tableau
  Set D = ActiveSheet.Cells(1, "A")
  Do
    'Tableau
    Set T = D.CurrentRegion
    If T.Rows.Count > 288 Then
      'Ajouter une ligne vide après la 288ème
      Set D = D.Offset(288)
      D.EntireRow.Insert
    Else
      'Ligne vide suivant le tableau
      Set V = D.End(xlDown).Offset(1)
      'Est-ce la fin des données de la feuille ...
      If ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row < V.Row Then
        '... Oui : terminer
        Exit Do
      Else
        '... Non : supprimer les lignes vides
        V.Resize(V.End(xlDown).Row - V.Row).EntireRow.Delete
    End If
  Loop
  Application.ScreenUpdating = True

End Sub
 

Cordialement
Patrice

kimalg · Answer

un grand MERCI à Patrice33740, votre code VBA marche bien, Merci infiniment pour votre précieuse aide!

yg_be · Answer

suggestion pour insérer une ligne blanche à chaque changement de date:
Option Explicit

Sub decouperparjour()
Dim ligne As Long
Dim jour As Date, cejour As Date
Dim valeur As Range

jour = Int(CDate(ActiveSheet.Cells(1, "A")))
ligne = 2
Do
    Set valeur = ActiveSheet.Cells(ligne, "A")
    If Not IsDate(valeur) Then
        Exit Do
    Else
        cejour = Int(CDate(valeur))
        If (cejour <> jour) Then
            jour = cejour
            ' ajouter une ligne vide avant
            valeur.EntireRow.Insert
            ligne = ligne + 1
        End If
    End If
    ligne = ligne + 1
Loop
End Sub

Effectuer un saut de ligne automatiquement [VBA]

6 réponses

Discussions similaires

Newsletters