[Problème] écrire dans une autre feuille que celle active

Bonjour,

je fais appel aujourd'hui à vos lumières car je tombe sur une colle (pour moi). Je développe un logiciel pour mon entreprise qui me permet de réaliser des devis et ensuite de les transformer en facture. J'en suis à la phase de démarrage ou j'enregistre le contenu de mes textbox ou les valeurs de mes checkbox dans un tableau sur une feuille de style.

Alors mon workbook se compose comme ceci :

1) Page "Application", ou je peux entrer dans mes différents Userform

2) Page "Devis" ou j'enregistre tout les devis que j'établis

3) Page "Facture" ou j'enregistre chaque facture que je crée

Moi ce qui me pose problème c'est donc que je lance mon application via la page 1. Et que lorsque je rempli mon userform il enregistre non pas dans "Devis" comme il devrait le faire mais dans la page "Application" et je ne comprend pas pourquoi.

Private Sub CommandButton2_Click()
'------------------------------------------------------------------
' SAUVEGARDE
Application.ScreenUpdating = False

   no_ligne = Sheets("Devis").Range("B65536").End(xlUp).Row + 1

   'CLIENT SITUATION
   '------------------------------------------------------
   Cells(no_ligne, 6) = TextBox18.Value 'montant du devis
   Cells(no_ligne, 3) = TextBox21.Value 'client
   Cells(no_ligne, 4) = TextBox22.Value 'tel
   'Cells(no_ligne, 2) = ??? 'Date du devis
   Cells(no_ligne, 10) = TextBox24.Value 'Adresse chantier

   Cells(no_ligne, 11) = TextBox31.Value 'Montant accompte

   If OptionButton9 = True Then 'Condition montant de l'accompte
      Cells(no_ligne, 12) = "Cash"
    ElseIf OptionButton10 = True Then
      Cells(no_ligne, 12) = "Virement"
    ElseIf OptionButton11 = True Then
      Cells(no_ligne, 12) = "BCC"
    ElseIf OptionButton12 = True Then
      Cells(no_ligne, 12) = "Financement"
    Else
       MsgBox ("Veuillez Choisir une option svp")
    End If
    '----

    If OptionButton13 = True Then 'Condition paiement solde
      Cells(no_ligne, 13) = "Financement"
    ElseIf OptionButton14 = True Then
      Cells(no_ligne, 13) = "Cash"
    ElseIf OptionButton15 = True Then
      Cells(no_ligne, 13) = "Virement"
    ElseIf OptionButton16 = True Then
      Cells(no_ligne, 13) = "BCC"
    Else
       MsgBox ("Veuillez Choisir une option svp")
    End If
    '---

    If CheckBox14 = True Then
       Cells(no_ligne, 14) = "Oui" 'Accessible en semi
       Else
       Cells(no_ligne, 14) = "Non"
       End If
    If CheckBox15 = True Then
       Cells(no_ligne, 15) = "oui" 'Camion grue obligatoire
       Else
       Cells(no_ligne, 15) = "Non"
       End If
    If CheckBox16 = True Then
       Cells(no_ligne, 16) = "Oui" 'Parking à proximité
       Else
       Cells(no_ligne, 16) = "Non"
       End If
    If CheckBox17 = True Then
       Cells(no_ligne, 17) = "Oui" 'Sortie eau extérieur
       Else
       Cells(no_ligne, 17) = "Non"
       End If
    If CheckBox18 = True Then
       Cells(no_ligne, 18) = "Oui" 'Sortie élec extérieur
       Else
       Cells(no_ligne, 18) = "Non"
       End If

    Unload Me

End Sub

Merci d'avance

Bonjour

en faisant ceci

 Cells(no_ligne, 6) = TextBox18.Value 'montant du devis

tu écris par défaut sur la feuille active...

si tu veux ecrire sur une autre feuille tu dois ecrire

 sheets("autrefeuille").Cells(no_ligne, 6) = TextBox18.Value 'montant du devis

mais puisque tu as bcp de chose à écrire dans ta feuille je te propose de faire un

with sheets("autrefeuille")

  'CLIENT SITUATION
   '------------------------------------------------------
 'il faut mettre un point avant cells
.Cells(no_ligne, 6) = TextBox18.Value 'montant du devis
 .Cells(no_ligne, 3) = TextBox21.Value 'client
  .Cells(no_ligne, 4) = TextBox22.Value 'tel
...
...

end with

fred

Super ca marche,

merci a toi !

De rien

Fred