Recherche et transfert vers un autre onglet

Bonjour,

Je vous joins un fichier pour mieux comprendre mon besoin.

Je souhaiterais avoir une aide pour un code VBA afin que lorsque je clic sur le bouton "transfert" une boite de dialogue apparaîsse (jusque la pas de souci) ensuite je saisie un numéro de devis présent dans l'onglet "SAV" et je clic sur le bouton "transfert dans l'offret" et dans l'onglet "Bilan" en case "A1" on affiche le numéro de devis et à partir de la ligne 3 dans la colonne "A" on affiche la "Pièces de rechange" correspondant au devis et en colonne "B" le "Prix unitaire" correspondant au devis.

Si il y a plusieurs lignes de devis il se place dessous la ligne3.

Si l'on refait un transfert pour un autre devis on efface ou écrase la saisie dans l'onglet "Bilan"

Merci de votre aide.

Bonjour

A tester

Merci

Tu as mis une protection si il y a zero

    If Application.CountIf(.Columns("A"), Me.TextBox1) = 0  Then
      MsgBox "Numéro de devis inconnu"

Mais si il y a rien dans la textebox1 il copie tout j'ai essayé ce code

If Application.CountIf(.Columns("A"), Me.TextBox1) = 0 Or "" Then

      MsgBox "Numéro de devis inconnu"

Mais ça marche pas

Bonjour

Modifies ta macro

Private Sub CommandButton1_Click()
Dim NbLg As Long

 If Trim(Me.TextBox1) = "" Then Exit Sub
  With Sheets("SAV")

Tout me semble ok merci

une dernière question qui ouvrira peut-être un autre sujet, à partir de l'onglet "Bilan" peut-on ouvrir un document Word et mettre les données du bilan dans ce document Word.

Bonjour

ser-fab a écrit :

à partir de l'onglet "Bilan" peut-on ouvrir un document Word et mettre les données du bilan dans ce document Word.

Surement mais je ne pourrais pas t'aider sur ce sujet