Renvoi à la ligne

bonjour à tous,

j'ai un classeur avec deux feuilles.

Une première feuille pour saisir des données

A1= la date du jour

B1= un lieu

C1= un objectif

D1= un réalisé

une deuxième feuille pour mettre ces données en ligne.

A1=la date ; A2= un lieu; A3=un objet; A4=un réalisé

Jaimerai m'aider d'une petite macro mais ça j'y arrive.

Ce que je n'arrive pas à faire c'est de revenir à la ligne pour saisir une nouvelle série de données tous en conservant toutes les précédentes.

Ainsi je voudrai me faire sur la feuille deux comme une mini base de données pour pouvoir l'exploiter.

merci d'avance

Ce à quoi j'arrive c'est avec une petite macro basculer la série de données de la feuille 1 à la feuille deux.

Bonjour,

Pas sûr de savoir t'aider (d'autres y arriveront) mais,

Point 6 des points à respecter: Pensez à joindre un fichier pour faciliter la compréhension du problème et augmenter les chances de vous faire aider (taille limite : 300ko, n'hésitez pas à compresser vos fichiers).

Ca aide à aider Un exemple de même présentation court et anonymisé suffit

Bonsoir tout le monde,

effectivement un fichier c'est mieux je confirme.

Un essai avec ce que j'ai compris.

Cordialement.

voila je fichier joint, ce sera plus clair.

La feuille 1 est la source des données que je saisi, la feuille 2 est la feuille où j'enregistre les données de la feuille.

Bonjour,

Voir si cela te conviens.

Cordialement.

Merci c'est exactement ça !

Mille merci

Une petite question qui me chatouille,

Quel est la partie de la macro qui permet de revenir à la ligne et donc de pouvoir faire des saisies successives sur les lignes qui suivent?

Bonjour,

avec le code commenté :

Sub archiver()
Application.ScreenUpdating = False
With Sheets(2)
    drligne = .Range("a" & Rows.Count).End(xlUp).Row 'pour connaitre la dernière ligne remplie sur la feuille 2
    Range("b1:b4").Copy 'copie des donnees de b1 à b4 de la feuille 1
    .Select 'selectionne la feuille 2
    .Range("a" & drligne + 1).Select 'selectionne la cellule de la colonne a qui est vide puisque a& drligne(numero de la derligne utilisée ) + 1
    Selection.PasteSpecial Paste:=xlPasteAll, Transpose:=True 'colle les valeurs en transposition
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Cordialement

Merci c'est bien plus clair ainsi.

Du coup une autre question me vient à l'idée... Les commentaires sont rajoutés pas toi ou bien il y a une fonction qui permet d'avoir ces commentaires pour chaque macro.

Je pense que si cela était possible ça me ferait avancer et je comprendrais plus aisément mes macros et leur construction.

Merci beaucoup

Salut michelpezon,

les commentaires sont inscrit par bigdaddy154 en inscrivant l'apostrophe avant le commentaire

cordialement

Non à toi d'ajouter les commentaires pour cela met un ' avant ton commentaire.

Cordialement.

Ok, donc il faut déjà avoir une belle expérience pour comprendre le code...

Va falloir que j'investisse dans des bouquins je crois... Pas le choix.