Supprimer une ligne selon un numéro de variable

Bonjour à vous,

Après plusieurs essais infructueux je me retourne vers vous car je n'y arrive pas.

Je souhaiterais supprimer une même ligne sur plusieurs pages d'après un numéro saisi dans une cellule (J10).

Par exemple si je saisis le nombre 12 dans la cellule J10, après avoir appuyé sur le bouton j'aimerais que ça supprime la ligne 12 sur les feuilles.

Voici la macro:

Sub sup()

'

' sup Macro

'

'

Dim nu As Integer

nu = Sheets("Inventaire").Range("J10").Value

Rows("nu:nu").Select

Selection.Delete Shift:=xlUp

Sheets("Commande").Select

Rows("nu:nu").Select

Selection.Delete Shift:=xlUp

Sheets("Approvisionnement").Select

Rows("nu:nu").Select

Selection.Delete Shift:=xlUp

Sheets("Inventaire").Select

Range("J10").Select

End Sub

J'ai l'impression que ça bloque sur la deuxième ligne qui consiste à donner la valeur de la cellule J10.

Un petit coup de main ne serait pas de refus

Bonjour,

ta variable un est un chiffre

donc:

nu = Sheets("Inventaire").Range("J10").Value

Rows(nu).Select

Ca fonctionne pas, quand j'enregistre la macro de suppression de la ligne 12, ça écrit bien

Rows("12:12").Select

Selection.Delete Shift:=xlUp

Hello,

Tu peux essayer de donner un nom à ta cellule concernée ?

Tu cliques dessus et en haut à gauche t'as marqué son nom, genre A1. Tu remplaces ça par ligne_var par exemple.

Ensuite dans ton code tu mets

Rows(ligne_var & ":" & ligne_var).Select

Bon courage

Cela ne fonctionne malheureusement pas non plus