enregistrer dans 2 feuilles differentes[resolu]

[surplus]

je refais le post y avait des erreurs

 

[vgendron]

Re : enregistrer dans 2 feuilles differentes

Bonjour,

ci joint le code à remplacer dans le tien

Private Sub Cmd_Enreg_Pret_Vehic_Click()
    If Me.Nom = "" Then Exit Sub
  flg_enr_ret = True
   Application.ScreenUpdating = False
  With Sheets("BD")
  '--- Positionnement dans la base
    If maposiP = -1 Then    'Nouvelle ligne
      ligne = Sheets("BD").[A65000].End(xlUp).Row + 1
    Else    'Meme ligne pour modif eventuelle
      ligne = maposi
    End If
    '--- Transfert Formulaire dans Clients
    .Cells(ligne, 9) = Vehicule.Column(0, Vehicule.ListIndex)
    .Cells(ligne, 19) = Format(Me.KM_Dep.Value, "00")
    
  End With
   With Sheets("Vehic")
    'If maposiP = -1 Then    'Nouvelle ligne
      'ligne = Sheets("Vehic").Vehicule.Column(6, Vehicule.ListIndex)
   ' Else    'Meme ligne pour modif eventuelle
     ' ligne = maposi
    'End If
  '--- Positionnement dans la base
    KM_Dep.Value = Vehicule.Column(5, Vehicule.ListIndex)
    
   End With
   
   Sheets("Imprim").Range("N22") = KM_Dep.Value
   Sheets("Imprim").Range("N25") = KM_Dep.Value
   Application.ScreenUpdating = True
  flg_enr_ret = True
  
  maposi = -1
   Unload Me
 UserForm.Show
  
End Sub

j'ai juste rajouté les deux lignes suivantes:
Sheets("Imprim").Range("N22") = KM_Dep.Value
Sheets("Imprim").Range("N25") = KM_Dep.Value

quelques remarques:
1) es tu sur de vraiment vouloir mettre l'info de kilométrage en N22 ? ne serait ce pas plutot le numéro d'immatriculation?
2) quel intéret de remettre le kilométrage dans la feuille véhic au meme endroit où le formulaire est allé cherché l'info a priori..
3) l'information "Nom" n'est pas utilisée - Enregistrée?

 

[surplus]

Re : enregistrer dans 2 feuilles differentes

xxxxxxxxxxxxxxx

 

[vgendron]

Re : enregistrer dans 2 feuilles differentes[resolu]

Super ...