Macro Insertion ligne vide si A1<>A2 + copie A2
Résolu
RIKAF
-
RIKAF -
RIKAF -
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.
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
-
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+
