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.

1 réponse

Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
529
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+
1
Parfait.
Merci beaucoup.
0
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.
0