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........." )
  3. Sheets("Feuil4" ).Activate
  4. If Range("A3" ) <> "" Then
  5. Ligne = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 1
  6. Else
  7. Ligne = 1
  8. End If
  9. For i = 3 To Ligne
  10. If Cells(i, 1) = Réf Then
  11. Rows(i).Select
  12. Selection.Copy
  13.  
  14. Sheets("Feuil3" ).Activate
  15. Rows("3" ).Select
  16. Selection.PasteSpecial
  17.         If Environ("UserName" ) = "A" Then
  18.         Accueil_Createur.Show
  19.         'ouvrir la page créateur
  20.         ElseIf Environ("username" ) = "B" Then
  21.         Accueil_Outillage.Show
  22.         message_alerte
  23.         'ouvrir la page outillage
  24.         ElseIf Environ("username" ) = "C" Then
  25.         Accueil_BE.Show
  26.         'ouvrir la page be
  27.         ElseIf Environ("username" ) = "D" Then
  28.         Accueil_Prod.Show
  29.         'ouvrir la page prod
  30.         End If
  31. End If
  32. Next
  33. Sheets("Feuil3" ).Activate
  34. If Range("A3" ) = "" Then
  35. MsgBox "Réference non valide"
  36. End If
  37. 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