Insertion de lignes à conditions

Gorfael à dit:

Re...
La même, sans tri et en ne tenant compte que du changement de la colonne A

Code:

Sub test_A()
Dim X As Long
For X = Range("A65536").End(xlUp).Row To 2 Step -1
    If Range("A" & X) <> Range("A" & X - 1) Then
        Rows(X).Select
        Selection.Insert Shift:=xlDown
    End If
Next X
End Sub

À de très rare exeption prés, une formule n'agit que sur la cellule qui la contient, si tu veux une action sur une cellule autre, il faut passer par les macros

A+

NOTA tu recherches des formules pour te sécuriser, mais si tu es capable de faire des formules, tu es capable de faire du VBA. Et en plus, tu as tout un forum pour t'aider, avec des personnes des 4 coins du monde, alors, faut en profiter

Cliquez pour agrandir...

maninette1234 à dit:

J'ai essayé de mettre le code dans une macro (un module) mais g pas du le coller comme il fallait car ca marche pas peux tu me dire exactement ou je dois coller ca?

Cliquez pour agrandir...

JCGL à dit:

Bonsoir le Forum,

Un petit essai.... à base d'un Plan et du code de Gorfael

Cliquez pour agrandir...

JCGL à dit:

Bonsoirà Tous, Maninette,

J'ai quelquefois ce problème dans la MFC : Doublement ou Insertion des "

Par exemple : ="$C2="""" pour =$C2=""

Si c'est le cas enlève les " en trop.

Si ce n'est pas le cas : joints ton fichier

Bonne soirée

Cliquez pour agrandir...