Insertion de lignes
e
Bonjour
J'ai un fichier Excel dans lequel je voudrais insérer automatiquement x ligne dans la colonne C en fonction de la valeur dans la cellule
Par exemple si la ligne C7 contient le chiffre 2 insérer 1 ligne, 2 lignes si c'est le chiffre 3... Jusqu'au chiffre 7
Cordialement
Bonsoir erythro, le forum,
Comment veux-tu insérer les lignes ? En rentrant la valeur dans la cellule ?
Un exemple....écris un chiffre dans la plage C1:C20.....
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C1:C20")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Target.Value < 2 Or Target.Value > 7 Or Target.Value <> Int(Target.Value) Then MsgBox "Choisir un entier entre 1 et 7": Exit Sub
With Target
.EntireRow.Resize(rowsize:=Target.Value - 1).Insert Shift:=xlDown 'lignes au dessus
End With
End If
End SubCordialement,