Copie données onglet 1 onglet 2 dernière ligne
pierre
-
Pierre -
Pierre -
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
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
A voir également:
- Copie données onglet 1 onglet 2 dernière ligne
- Raccourci rouvrir onglet fermé - Guide
- Supercopier 2 - Télécharger - Gestion de fichiers
- Copie cachée - Guide
- Supprimer dernière page word - Guide
- Partager photos en ligne - Guide
3 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour, as-tu une question? ne peux-tu pas adapter ton code VBA pour faire ce que tu souhaites?
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
'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
deux chose:
1) quand tu partages du code, merci d'utiliser la coloration syntaxique
2) ton code est un peu brouillon, mais tu ne nous expliques pas ses défauts.
1) quand tu partages du code, merci d'utiliser la coloration syntaxique
2) ton code est un peu brouillon, mais tu ne nous expliques pas ses défauts.