Insertion des lignes entre chaque changement de noms

Fermé

choukerb - 21 janv. 2016 à 10:52
choukerb - 22 janv. 2016 à 08:05

Bonjour
j'ai un tableau de plusieurs lignes de A1:D1000 et les colonnes A1:A1000 contiennent des différents noms.
j'aimerai bien insérer des lignes entre chaque changement de nom.

cordialement

A voir également:

Insertion des lignes entre chaque changement de noms
Site de vente en ligne gratuit entre particulier - Guide
Piratage facebook changer mot de passe - Guide
Les noms des animaux - Télécharger - Études & Formations
Insertion liste déroulante excel - Guide
Changement d'écriture - Guide

2 réponses

Réponse 1 / 2

via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703
21 janv. 2016 à 11:20

Bonjour

Essaie :

Sub insertion()
For n = 1000 To 2 Step -1
    Rows(n & ":" & n).Select
        If Range("A" & n) <> "" And Range("A" & n) <> Range("A" & n - 1) Then
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        End If
    Next
End Sub

Cdlmnt
Via

Réponse 2 / 2

choukerb
22 janv. 2016 à 08:05

merci mr via55

votre aide (macro) est très efficace . c'est ça ce que je cherche

cordialement.

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site

Nom d’adresse

Comment trouver un numéro à partir du nom et prénom

Discussions similaires

Newsletters