Macro Insertion ligne vide si A1<>A2 + copie A2

Résolu/Fermé

RIKAF - 2 mai 2015 à 02:31
RIKAF - 2 juin 2015 à 00:20

Bonjour,
J'essaye de trouver une macro qui me permettrai d'insérer une ligne vide si A1 est différent de A2 puis de copier, dans cette ligne vide, la valeur de A2.
J'ai cette macro pour l'instant qui insère comme je veux les lignes vides, mais je n'arrive pas à trouver pour la copie de la cellule du dessous.

Sub Separe()
Dim cel As Range, ins As Range
For Each cel In Range("A2", [A65536].End(xlUp))
If cel <> "" And cel.Offset(-1) <> "" And cel <> cel.Offset(-1) _
Then Set ins = Union(IIf(ins Is Nothing, cel, ins), cel)
Next
If Not ins Is Nothing Then ins.EntireRow.Insert
End Sub

Pouvez-vous m'aider?

Merci d'avance.

A voir également:

Macro Insertion ligne vide si A1<>A2 + copie A2
Copie cachée - Guide
Hors ligne instagram - Guide
Aller à la ligne excel - Guide
Vente en ligne particulier - Guide
Macro word - Guide

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
2 mai 2015 à 08:47

Bonjour,

Sub Separe()
Dim DerLigne As Long, Ligne As Long
Dim cel As Range, ins As Range
    DerLigne = Range("A" & Rows.Count).End(xlUp).Row
    For Ligne = DerLigne To 3 Step -1
        If Range("A" & Ligne).Value <> "" And _
        Range("A" & Ligne - 1).Value <> "" And _
        Range("A" & Ligne).Value <> Range("A" & Ligne - 1).Value Then
            Rows(Ligne).Insert
            Range("A" & Ligne + 1).Copy Range("A" & Ligne)
        End If
    Next
End Sub

A+

RIKAF
2 mai 2015 à 12:50

Parfait.
Merci beaucoup.

RIKAF
2 juin 2015 à 00:20

Je reviens vers toi. J'arrive pas à copier la cellule dans une autre cellule. Par exemple A2 en H2... Ça doit être tout con mais je bloque.

Discussions similaires

Comment faire le symbole coeur vide/coeur blanc

le frigo ne marche pas....

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

Statut « en ligne » alors que non

Discussions similaires

Newsletters