Supprimer la première ligne, quand insertion nouvelle ligne???

[olibelle0101]

Bien le bonjours à tous.
Depuis peu je me passionne sur çe forum pour tous çes conseils.
Mais après de longue recherche, je me trouve embété.
Je voudrai savoir si c'est possible de:
Sur un tableau B3:R10003
J'aimerais supprimer la première ligne B3:R3,
quand j'insere une nouvelle ligne en B:10004.
Surtout que le tableau reprenne son ordre, B1004 repasse B1003.
J'espère d'avoir été compris car je suis débutant sur excel.
Je vous remerçie d'avance de votre aide.
Cordialement.

 

[Evelynetfrancois]

Re : Supprimer la première ligne, quand insertion nouvelle ligne???

Bonsoir olibelle0101
Si j ai bien compris
dans ta macro qui insere la derniere ligne tu ajoutes
Rows("3:3").Select
Selection.Delete Shift:=xlUp
bonne soirée E et F

 

[kjin]

Re : Supprimer la première ligne, quand insertion nouvelle ligne???

Bonsoir
A tester, supprime la ligne 3 si une valeur est entrée sur la ligne 10004 (ou 1004 ?!) et donc décalage d'une ligne vers le haut
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cel In Range("10004:10004")
If cel.Value <> "" Then Range("3:3").Delete
Next
End Sub

A+
kjin

 

[olibelle0101]

Re : Supprimer la première ligne, quand insertion nouvelle ligne???

Bonsoir
A tester, supprime la ligne 3 si une valeur est entrée sur la ligne 10004 (ou 1004 ?!) et donc décalage d'une ligne vers le haut
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cel In Range("10004:10004")
If cel.Value <> "" Then Range("3:3").Delete
Next
End Sub

A+
kjin

Bonjour
Il me dit compilation ambigu sur
Private Sub Worksheet_Change(ByVal Target As Range)
quand j'insere un nom sur ligne 1004.
Merçi.
A+

 

[olibelle0101]

Re : Supprimer la première ligne, quand insertion nouvelle ligne???

Bonjour
Il me dit compilation ambigu sur
Private Sub Worksheet_Change(ByVal Target As Range)
quand j'insere un nom sur ligne 1004.
Merçi.
A+

 

[kjin]

Re : Supprimer la première ligne, quand insertion nouvelle ligne???

Re,
C'est parce que tu as écrits ça

...quand j'insere une nouvelle ligne en B:10004.
Surtout que le tableau reprenne son ordre, B1004 repasse B1003...

Que j'ai répondu ça

Bonsoir
A tester, supprime la ligne 3 si une valeur est entrée sur la ligne 10004 (ou 1004 ?!) et donc décalage d'une ligne vers le haut

Et donc à priori, s'il s'agit de la ligne 1004, il suffit de coller la macro dans le module de la feuille en la modifiant ainsi:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel as range
For Each cel In Range("1004:1004")
If cel.Value <> "" Then Range("3:3").Delete
Next
End Sub

A+
kjin

 

[olibelle0101]

Re : Supprimer la première ligne, quand insertion nouvelle ligne???

Salut.
Je voulais te dire merçi.
Tout marche comme tu l'avait dit.
A+.
Cordialement.