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

tableau vide entre 2 lignes

  • Initiateur de la discussion Initiateur de la discussion sachin
  • Date de début Date de début

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

sachin

Guest
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
 
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
 
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.
 
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
 
Re : tableau vide entre 2 lignes

Bonsoir sachin, piga25 🙂
Sans exemple.....
VB:
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
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…