inserer une ligne

dilack

XLDnaute Junior
salut à tous
j'aimerais une solution pour inserer une ligne suivant si une cellule est remplie par du texte.

merci d'avance pour vos réponses
 

ConsultantJP

XLDnaute Occasionnel
Re : inserer une ligne

Bonjour,

Peux tu donner plus de detail ?

En faite si A2 est rempli tu veux qu'une ligne s'insere en + ?

Il te faut un evenement change dans ce cas mais le probleme (mais il doit y avoir une solution) si tu modifie la cellule dans ce cas, une ligne s'inserera aussi.

Un bouton ça te convient pas ?
 

vbacrumble

XLDnaute Accro
Re : inserer une ligne

Bonjour


Essaye ceci (A METTRE dans la feuille pas dans un module)

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
If Not IsEmpty(Target) Then
Sheets(2).Range(Target.Address).Offset(2, 0).EntireRow.Insert
End If
End If
End Sub
 
Dernière édition:

Statistiques des forums

Discussions
312 166
Messages
2 085 894
Membres
103 021
dernier inscrit
Sergyl75