Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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:

dilack

XLDnaute Junior
Re : inserer une ligne

vbacrumble
ca ne marche pas ou je m'y prend comme une m****.
en tout cas:
si cellule b16 de la feuille "DONNÉES_BASES" alors on insere une ligne après a24 sur feuille "ARTICLE_49
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…