VBA-excel Copier-Coller après InputBox

VBA-excel Copier-Coller après InputBox - VB/VBA/VBS - Programmation

Marsh Posté le 29-11-2016 à 11:24:32    

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 :
  1. Private Sub CommandButton3_Click()
  2. Réf = InputBox("Rentrez la réference de la pièce : ", "Recherche par Réference Interne", "5........." )
  4. Sheets("Feuil4" ).Activate
  6. If Range("A3" ) <> "" Then
  7. Ligne = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 1
  8. Else
  9. Ligne = 1
  10. End If
  12. For i = 3 To Ligne
  15. If Cells(i, 1) = Réf Then
  16. Rows(i).Select
  17. Selection.Copy
  19.  
  21. Sheets("Feuil3" ).Activate
  22. Rows("3" ).Select
  23. Selection.PasteSpecial
  27.         If Environ("UserName" ) = "A" Then
  28.         Accueil_Createur.Show
  29.         'ouvrir la page créateur
  30.         ElseIf Environ("username" ) = "B" Then
  31.         Accueil_Outillage.Show
  32.         message_alerte
  33.         'ouvrir la page outillage
  34.         ElseIf Environ("username" ) = "C" Then
  35.         Accueil_BE.Show
  36.         'ouvrir la page be
  37.         ElseIf Environ("username" ) = "D" Then
  38.         Accueil_Prod.Show
  39.         'ouvrir la page prod
  40.         End If
  43. End If
  47. Next
  48. Sheets("Feuil3" ).Activate
  49. If Range("A3" ) = "" Then
  50. MsgBox "Réference non valide"
  51. End If
  52. End Sub


 
Merci d'avance

Reply

Marsh Posté le 29-11-2016 à 11:24:32   

Reply

Marsh Posté le 29-11-2016 à 11:45:32    

 
            Bonjour,
 
            c'est tout bête : il suffit de suivre l'exemple dans l'aide VBA interne de cette méthode  Find  !
            (Affectation du résultat à un objet puis test / contrôle de cet objet …)
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed