copie données onglet 1 onglet 2 dernière ligne Fermé

Question

Bonjour, 
j'ai un petit problème 
j'ai créé un useform qui permet d'ajouter des éléments à la fin d'un tableau la macro précise d'aller à la dernière ligne vide du tableau(1) et recopie les éléments saisis dans le useform. Cela fonctionne. 
J'aimerai copier cette dernière ligne dans un autre onglet qui contient aussi un tableau(2) dans la dernière ligne de ce tableau.et ainsi de suite sachant que le tableau(2)sera celui qui reçoit les infos mais que la macro créée pourra être sur plusieurs onglets 
j'espère avoir été clair 
merci de votre aide

yg_be · Answer

bonjour, as-tu une question?  ne peux-tu pas adapter ton code VBA pour faire ce que tu souhaites?

Pierre · Answer

Bonsoir
Justement je n’arrive pas à adapter le code VBA

pierre · Answer

voici le code que j'ai bricolé
'procedure ajoutcomposant dans groupe et tranfert dans previsions


Private Sub btnAjoutcompo_Click()
      
      Range("d16").Select
      Selection.End(xlDown).Select 'positionne derniere ligne non vide
      Selection.Offset(1, 0).Select  'on se decale d'une ligne vers le bas
      ActiveCell = cboetat.Value
      ActiveCell.Offset(0, 2).Value = txtNature
      ActiveCell.Offset(0, 1).Value = cboloc
      ActiveCell.Offset(0, 10).Value = txtPrixu
      ActiveCell.Offset(0, 5).Value = cboaction
      ActiveCell.Offset(0, 7).Value = txtVie
      voici les elements que je veux exporter sachant que operation,commune ne font pas parti du questionnaire useform

OPERATION, COMMUNE, ADRESSE,	COUV,	Services Généraux,	 Couverture ardoise,	316,50 €,	2048,
sachant que operation,commune ne font pas parti du questionnaire useform
et voila ce que j'attensds sur l'onglet "previsions"

operation,commune adresse COUV	Services Généraux	Couverture ardoise	316,50	2048


      Sheets("previsions").Select
      Range("d6").Select
      Selection.End(xlDown).Select 'positionne derniere ligne non vide
      'ActiveCell = cboetat.Value
      Selection.Offset(1, 0).Select  'on se decale d'une ligne vers le bas
      ActiveCell = cboetat.Value
     ' ActiveCell.Offset(0, 1).Value = cboetat
      ActiveCell.Offset(0, 2).Value = txtNature
      ActiveCell.Offset(0, 1).Value = cboloc
      ActiveCell.Offset(0, 3).Value = txtPrixu
      'ActiveCell.Offset(0, 8).Value = cboaction
      'ActiveCell.Offset(0, 7).Value = txtVie
      
      MsgBox "Le nouveau COMPOSANT a bien été ajouté à la base de données", vbOKOnly + vbInformation, "CONFIRMATION"
      
End Sub

Copie données onglet 1 onglet 2 dernière ligne

3 réponses

Discussions similaires