Discussion :

[bakaouf]

Bonjour,
je cherche à insérer une cellules si la valeur d´une cellule est égale `une autre cellule

je sais qu´il est peut etre possible de trouver ca dans l´aide VBA mais le pb est que je suis en Autriche et que mon PC est en Allemand et je ne comprend pas cette langue.

Donc si une ame charitable veut bien me donner cette instruction

Merci

[delphine35]

J'espere que cela va pouvoir t'aider
:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
With Worksheets("Feuil1")
 
    If .Cells(1, 3).Value = .Cells(2, 3).Value Then   'si C1 = C2
        .Range("C2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove   ' xlDown vers le bas , xlUp vers le haut
    End If
 
End With

----
Ce soir je suis en vacances