Insérer ligne quand Lig <>lig+1 vb

Résolu/Fermé

pgillou Messages postés 49 Date d'inscription lundi 23 août 2010 Statut Membre Dernière intervention 14 octobre 2010 - 19 sept. 2010 à 15:27
pgillou Messages postés 49 Date d'inscription lundi 23 août 2010 Statut Membre Dernière intervention 14 octobre 2010 - 20 sept. 2010 à 12:40

Bonjour à tous,

Nouveau petit problème je cherche à parcourir une colonne est à insérer une ligne entre deux cellule n'ayant pas la même valeur:

Voici mon code mais qui ne fonctionne pas correctement

Sub Inserligne()

Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long

Sheets("Feuil1").Activate 'feuille de destination
NumLig = 0
Col = "B" ' colonne feuille source à parcourir
NumLig = 0
With Sheets("Feuil1") ' feuille source
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, Col).Value <> .Cells(Lig + 1, Col).Value Then

NumLig = NumLig + 1
Cells(Lig, Col).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

End If
Next
End With
End Sub

Merci de votre aide!

A voir également:

Insérer ligne quand Lig <>lig+1 vb
Insérer signature word - Guide
Insérer liste déroulante excel - Guide
Aller à la ligne excel - Guide
Insérer une vidéo dans powerpoint - Guide
Vente en ligne particulier - Guide

4 réponses

Réponse 1 / 4

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
19 sept. 2010 à 16:30

Bonjour,
J'ai pas bien compris là...
Tu parle d'insérer une ligne..., d'une autre feuille,... et tu insére des cellules ??
Un peu plus clair Svp
A+

Réponse 2 / 4

pgillou Messages postés 49 Date d'inscription lundi 23 août 2010 Statut Membre Dernière intervention 14 octobre 2010 1
19 sept. 2010 à 19:53

Bonsoir Lermitte222,

Je formule a autrement j'ai énormement de lignes sur mon tableau et je souhaiterais insérer des lignes vierges entre les lignes donc les cellules de la colonne c n'ont pas la même valeur.

Exemple:

Colonne A Colonne B Colonne C

test info comment
test info comment
Test info marche web

Résultat:
test info comment
test info comment

Test info marche web

Merci de ton aide!

Réponse 3 / 4

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 19/09/2010 à 23:21

Sub InsertionLigne() 
Dim Lig As Long 
    For Lig = Range("B65536").End(xlUp).Row To 2 Step -1 
        If Cells(Lig, "B") = Cells(Lig - 1, "B") Then 
            Rows(Lig + 1).Insert 
            Lig = Lig - 1 
        End If 
    Next Lig 
End Sub

A mettre dans le module de "Feuil1"
Tu dis
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

Réponse 4 / 4

pgillou Messages postés 49 Date d'inscription lundi 23 août 2010 Statut Membre Dernière intervention 14 octobre 2010 1
20 sept. 2010 à 12:40

Je te remercie c'est pile poil ce qui me fallait!

Bonne après midi

Discussions similaires

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

Ça veut dire quoi "adresse ligne 1" sur les formulaires ?

Discussions similaires

Newsletters