Saut de ligne automatique Excel
Shero
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,
Pourriez vous s'il vous plait m'aider sur ce cas, merci d'avance
J'ai sur une feuille Excel une liste de donnée ( à saisir) que je veux par la suite recapituler ligne par ligne sur une autre feuille, mon problème c'est que comment puis-je sauter d'une ligne à l'autre et transférer automatiquement après saisi et validation les données dans la première feuille que je sert uniquement comme imprimée et interface de saisie.
Merci beaucoup.
Pourriez vous s'il vous plait m'aider sur ce cas, merci d'avance
J'ai sur une feuille Excel une liste de donnée ( à saisir) que je veux par la suite recapituler ligne par ligne sur une autre feuille, mon problème c'est que comment puis-je sauter d'une ligne à l'autre et transférer automatiquement après saisi et validation les données dans la première feuille que je sert uniquement comme imprimée et interface de saisie.
Merci beaucoup.
5 réponses
-
-
Merci beaucoup,
Le fait est que la feuille 1 est une sorte de fiche pour remplir des données comme nom, prénoms, âge, ... et à imprimer par la suite, les données changent pour chaque personne. et ces données sera récapitulé ligne par ligne avec entête nom, prénoms, âge, ... dans une 2e feuille. le problème pour moi est comment renvoyer automatiquement ces données ligne par ligne dans la 2è feuille pour avoir une récap des fiches saisi pour chaque personne.
Merci beaucoup à vous.- Faire un classeur exemple avec des données bidons et le mettre sur ce site; Ensuite venir coller le lien ainsi obtenu ici:
https://www.cjoint.com/
-
-
-
Merci infiniment.
S'il vous plait, est-il possible de programmer le bouton enregistrer en même temps d'accéder à l'impression de la fiche.
Encore merci.-
allez dans le module 1 et changer par ceci:
Option Explicit Sub enregistrer() Dim rep As Integer, Dl As Long With Sheets("RECAP") Dl = .Range("A" & Rows.Count).End(xlUp).Row + 1 rep = MsgBox("Voulez-vous vraiment enregistrer ?", vbYesNo, "Enregistrement") If rep = vbYes Then .Range("A" & Dl).Value = Sheets("SAISIE").Range("B2").Value 'fiche .Range("B" & Dl).Value = Sheets("SAISIE").Range("B4").Value 'date .Range("C" & Dl).Value = Sheets("SAISIE").Range("B6").Value 'matricule .Range("D" & Dl).Value = Sheets("SAISIE").Range("B7").Value 'nom .Range("E" & Dl).Value = Sheets("SAISIE").Range("B8").Value 'prénom .Range("F" & Dl).Value = Sheets("SAISIE").Range("B9").Value 'age .Range("G" & Dl).Value = Sheets("SAISIE").Range("B10").Value 'sexe End If End With ActiveWindow.SelectedSheets.PrintPreview 'aperçu avant impression End Sub
@+ Le Pivert- Bonjour,
associer ce code à un bouton se trouvant sur la feuille à enregistrer en PDF:
Option Explicit Sub savepdf() Dim intChoice As Integer Dim strPath As String 'make the file dialog visible to the user intChoice = Application.FileDialog(msoFileDialogSaveAs).Show 'determine what choice the user made If intChoice <> 0 Then 'get the file path selected by the user strPath = Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1) 'displays the result in a message box 'Call MsgBox(strPath, vbInformation, "Save Path") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ strPath, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End If End Sub
Voilà
@+ Le Pivert
-
-
Bonjour,
Je m'exprime un peu mal en Français, mais j'espère que vous pouvez me comprendre et m'aider.
J'ai un fichier exel avec des données de toutes les infos des salaries et j'ai fait dans feuil2 la fiche individuelle salarié, j'aimerai apporter les infos de la feuil1 de ma de données de chaque salarie pour que je puisse ensuite imprimer les fiche de chaque personnes. Je suis perdu et je n'y arrive pas.
Pouvez vous m'aider svp.
Merci.
Mila-
Bonjour,
voir cette discussion
https://forums.commentcamarche.net/forum/affich-37063220-svp-comment-fusionner-un-fiche-individuelle-d-inscription-d-eleve-avec-une-liste#26
@+ Le Pivert
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Rebonjour, Merci pour votre réponse, j'ai du mal a comprendre discussion :(...Je vais continue a chercher la solution.
Bien à vous.
Mila
