Insertion de ligne sous condition

Fermé

Sebastien - 18 janv. 2016 à 18:06
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 18 janv. 2016 à 23:21

Bonjour,

Je vous remercie d'abord pour votre aide.

Je voudrai insérer une ligne automatiquement en fonction du nombre de ligne que j'ai dans mon tableau.

Si par exemple j'ai 10 lignes dans mon tableau, je voudrai une macro qui insère une ligne automatique en dessous de la ligne 1, 2, 3 etc... En gros, ligne 1, ligne vide, ligne 3, ligne vide ligne 4, ligne vide et ainsi de suite.

A voir également:

Insertion de ligne sous condition
Site de vente en ligne particulier - Guide
Partage de photos en ligne - Guide
Hors ligne instagram - Guide
Aller à la ligne excel - Guide
Excel cellule couleur si condition texte - Guide

1 réponse

Réponse 1 / 1

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
18 janv. 2016 à 23:21

Bonjour,

Cette procédure devrait faire ce que tu veux :

Option Explicit
Public Sub insère_ligne()
Dim lig As Long
With ActiveSheet
    For lig = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        .Rows(lig).Insert
    Next lig
End With
End Sub

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

Statut « en ligne » alors que non

Ligne occupée : pourquoi mon téléphone sonne occupé ?

Discussions similaires

Newsletters