Macro Insertion ligne vide si A1A2 + copie A2 Résolu/Fermé

Question

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.

Gyrus · Answer

Bonjour, Sub Separe()Dim DerLigne As Long, Ligne As LongDim 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 NextEnd Sub A+

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

1 réponse

Discussions similaires