tableau vide entre 2 lignes

[sachin]

Bonjour,
J'ai un petit problème dont je n'arrive pas trouver la solution. J'ai un fichier excel contenant 200 lignes remplies d'informations. J'aimerais créer une ligne vide (cellules vides) entre 2 lignes consécutifs. Sachant qu'une ligne va de A1 jusqu'à A11. Je voudrais utiliser une macro. Pouvez me dire comment je puisse m'y prendre. Merci d'avance.

Cordialement

 

[piga25]

Re : tableau vide entre 2 lignes

Bonjour,

Pa sur d'avoir tout compris

J'aimerais créer une ligne vide (cellules vides) entre 2 lignes consécutifs. Sachant qu'une ligne va de A1 jusqu'à A11.

Là c'est plus une colonne qu'une ligne.

Voir si cela repond à la question :

Option Explicit
'code de Pierrot93 du 09/08/2010
Sub test()
Dim i As Long
Application.ScreenUpdating = False
For i = Range("A65536").End(xlUp).Row To 2 Step -1
Rows(i & ":" & i).Insert
Next i
Application.ScreenUpdating = True
End Sub

 

[sachin]

Re : tableau vide entre 2 lignes

Merci vraiment pour votre aide. Je préfère que ça marche seulement une fois. Je ne veux pas qu'il se décale une deuxième fois lorsque je rexécute la fonction.

 

[sachin]

Re : tableau vide entre 2 lignes

Lorsque j'exécute la macro plusieurs fois, il crée à chaque fois une cellule vide. J'aimerais que cela crée seulement une cellule vide entre deux lignes. Si je rexécute la fonction cela ne doit pas ajouter une nouvelle ligne. Merci d'avance

 

[Efgé]

Re : tableau vide entre 2 lignes

Bonsoir sachin, piga25 🙂
Sans exemple.....

Sub test()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Feuil1") 'Nom de feuille a adapter
    For i = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        If .Cells(i, 1) <> "" And .Cells(i - 1, 1) <> "" Then .Rows(i).Insert
    Next i
End With
Application.ScreenUpdating = True
End Sub

Cordialement

 

[sachin]

Re : tableau vide entre 2 lignes

Merci beaucoup pour votre aide.

Cordialement.