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

olibelle0101 · 19 Mars 2008

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 · 19 Mars 2008

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 · 19 Mars 2008

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 · 20 Mars 2008

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

kjin à dit:
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 · 20 Mars 2008

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 · 20 Mars 2008

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

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

olibelle0101 à dit:
...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

kjin à dit:
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 · 20 Mars 2008

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.

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

olibelle0101

XLDnaute Occasionnel

Evelynetfrancois

XLDnaute Impliqué

kjin

XLDnaute Barbatruc

olibelle0101

XLDnaute Occasionnel

olibelle0101

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

olibelle0101

XLDnaute Occasionnel

Discussions similaires