Suppression d'une ligne par son numéro - pour DIOP

[vgendron]

Hello DIOP

C'est ici que ca se passe

donc, la question était:

dans une cellule A1 de la feuill1, je mets un numéro de ligne à supprimer
supprimer la dite ligne dans la feuille 2
le tout en VBA

sub sup()
numligne=sheets("Feuil1").range("A1")
sheets("Feuil2").rows(numligne).delete
end sub

 

[DIOP]

ci joint le fichier de mon travail

 

[DIOP]

j ai adapteé les codes sur mon fichier mais sa blog sur la ligne sheets("Feuil2").rows(numligne).delete

 

[vgendron]

Tu as adapté quoi exactement??

dans ton fichier: où mets tu le numéro de la ligne à supprimer?
cette ligne doit etre supprimée sur quelle feuille?

 

[vgendron]

avec ce code?

Sub Supprime_ligne_produit()
     Dim i As Long
     Dim DebTablo, LigneToSup As Integer
     With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
     DebTablo = 97
     LigneToSup = Sheets("PARAMETRAGE STRUCTURE").Range("C6")
     Sheets("PARAMETRAGE PRODUIT").Rows(DebTablo + LigneToSup).Delete
     
     With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
'Dim rep
' rep = InputBox("Ligne à supprimer")
'If IsNumeric(rep) Then Range("A" & rep).EntireRow.Delete
End Sub

 

[DIOP]

avec ce code?

Sub Supprime_ligne_produit()
     Dim i As Long
     Dim DebTablo, LigneToSup As Integer
     With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
     DebTablo = 97
     LigneToSup = Sheets("PARAMETRAGE STRUCTURE").Range("C6")
     Sheets("PARAMETRAGE PRODUIT").Rows(DebTablo + LigneToSup).Delete
    
     With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
'Dim rep
' rep = InputBox("Ligne à supprimer")
'If IsNumeric(rep) Then Range("A" & rep).EntireRow.Delete
End Sub

super merci vgendron le code marche parfaitement Merci 1000 fois j ai passé deux semaines à chercher