Discussion :

[Viper7]

Bonjour,

Je souhaite faire en sorte qu'en cliquant sur un bouton "supprimer référence" on puisse entrer le numéro de a la référence et que la ligne complète de la référence à supprimer disparaisse, si possible sans faire de trou dans le tableau !
Je pensais à un Userform, voici ce que j'ai deja commencé :

- Dans le module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'saisie d'une référence à supprimer
Sub suppressionreference()
    Load userform_reference_a_supprimer
    userform_reference_a_supprimer.textbox_numero_reference2.Value = ""
    userform_reference_a_supprimer.Show
End Sub
 
'supprimer une ligne
Sub supprimerligne()
    Sheets("Données").Activate
    suppressionreference
    ActiveCell.EntireRow.Select
    Selection.Delete
    Range("A1").Select
End Sub

- Dans l'Userform (boutons ok et annuler)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub commandbutton_annuler_Click()
    Unload userform_reference_a_supprimer
    Sheets("Accueil").Activate
    Range("A1").Select
End Sub
 
Private Sub commandbutton_ok_Click()
    With userform_reference_a_supprimer
        Numéro_de_référence2 = .textbox_numero_reference2.Value
    End With
    Unload userform_reference_a_supprimer
    supprimerligne
End Sub

J'ai un peu du mal , ce serait sympa si quelqun d'expérimenté pouvais m'aider un peu. D'avance merci

[linda15975]

quel est le problème? Y at-il un message d'erreur?

[Viper7]

En fait je pense avoir la structure générale de l'userform, mais je n'arrive pas à faire en sorte que le numéro renseigné dans l'userform par l'utilisateur soit recherché dans mon tableau puis que la ligne soit effacée... J'espère etre clair dans mes explications, c'est pas simple a formuler ! Merci en tout cas

[Blunet]

Un coup d'oeil ici

[Commodore]

il faut rechercher la valeur dans les cellules et supprimer la ligne correspondante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
while (cells(x,y).value <> valeur)
  if cells(x,y).value = valeur then
    rows(x).delete
  end if
  x=x+1 (ou y=y+1)
wend

inspire toi de ce genre de code pour cibler/supprimer...

il est possible que tu doives rajouter des Worksheets("...").cells(......

Enfin, d'apres ce que j'ai compris, cette solution me parait adaptée...