chico-n | Bonjour,
Cela fait plusieurs heures que je cherche à résoudre mon problème mais je ne trouve pas, même après plusieurs recherches sur ce forum.
Je m'explique.
Je voudrais effectuer la recherche d'une référence, que j'aurais rentré par InputBox, dans une base de donnée.
Copier la ligne où se trouve cette réference et la coller sur une autre feuille.
Jusque la j'y arrive, mais j'aurais aimé afficher un message d'erreur par MsgBox si la recherche ne trouve rien, et la ça bloque.
Ci dessous, mon code :
Code :
- Private Sub CommandButton3_Click()
- Réf = InputBox("Rentrez la réference de la pièce : ", "Recherche par Réference Interne", "5........." )
- Sheets("Feuil4" ).Activate
- If Range("A3" ) <> "" Then
- Ligne = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 1
- Else
- Ligne = 1
- End If
- For i = 3 To Ligne
- If Cells(i, 1) = Réf Then
- Rows(i).Select
- Selection.Copy
-
- Sheets("Feuil3" ).Activate
- Rows("3" ).Select
- Selection.PasteSpecial
- If Environ("UserName" ) = "A" Then
- Accueil_Createur.Show
- 'ouvrir la page créateur
- ElseIf Environ("username" ) = "B" Then
- Accueil_Outillage.Show
- message_alerte
- 'ouvrir la page outillage
- ElseIf Environ("username" ) = "C" Then
- Accueil_BE.Show
- 'ouvrir la page be
- ElseIf Environ("username" ) = "D" Then
- Accueil_Prod.Show
- 'ouvrir la page prod
- End If
- End If
- Next
- Sheets("Feuil3" ).Activate
- If Range("A3" ) = "" Then
- MsgBox "Réference non valide"
- End If
- End Sub
|
Merci d'avance |
