Saisir et conserver les données

[lienad]

Bonsoir à tous ,

Je tente d'expliquer clairement mon objectif.
J'ai sur la feuille 1 un questionnaire que je compléte avec les réponses du client.
Comment procéder pour que les informations de la feuille 1 soient stockées sous forme de tableau en feuille 2 pour permettre un traitement
pour remettre 'à blanc" la feuille 1 une fois la saisie terminée
Dans l'attente de votre collaboration

 

[nat54]

Re : Saisir et conserver les données

Bonjour, Votre pb m'intéresse aussi J'ai testé du code vba mais bizaremment ca marche pour 1ère colonne, mais pas les suivantes

 Sheets("STOCKER").Select Range("a2";) = "=SAISIR!R[1]C[5]"; ActiveCell.Offset(0, 1).Activate = SAISIR!R[2]C[4] ActiveCell.Offset(0, 1).Activate = "SAISIR!R[3]C[3]"; ActiveCell.Offset(0, 1).Activate = ";=SAISIR!R[5]C[2]"; ActiveCell.Offset(0, 1).Activate = "=SAISIR!R[6]C[1]";

 

[JCGL]

Re : Saisir et conserver les données

Bonsoir à tous,

As-tu essayé comme ceci :

Sheets("STOCKER").Select
    Range("A3").FormulaR1C1 = "=SAISIR!R[1]C[5]"
    Range("B3").FormulaR1C1 = "=SAISIR!R[2]C[4]"
    Range("C3").FormulaR1C1 = "=SAISIR!R[3]C[3]"
et ainsi de suite...

 

[bertgrav]

Re : Saisir et conserver les données

bonsoir,

je te renvoie ton fichier avec 2 macros que tu modifieras à ta convenance

1er code, traitement des données: va enregistrer les données de la feuille saisir et les place dans la feuille "STOCKER" à la derniére ligne libre et ainsi de suite

2eme code, effacement des données de la feuille "SAISIR" efface les données

à toi à ajouter et à modifier selon tes besoins

chantal

 

[nat54]

Re : Saisir et conserver les données

Excellent, je garde pour moi également 🙂

 

[lienad]

Re : Saisir et conserver les données

Bonjour à tous ,

Merci pour vos commentaires et réponses.
Ce message s'adresse particulièrement à Bertgrav !
Il m'est difficile d'apprécier le travail réalisé, ne connaissant que très partiellement les macros .
Il s'agit donc d'un appel pour un minimum de pédagogie .
Plus concrètement comment les éxécute t-on ?
Dans l'attente de vous lire .et merci encore

 

[nat54]

Re : Saisir et conserver les données

Bonjour,

Créer 2 boutons
clic droit
affecter une macro à chaque bouton

 

[nat54]

Re : Saisir et conserver les données

Bonjour,

- créer un bouton
- clic droit
- affecter une macro

idem pour 2nde macro

 

[lienad]

Re : Saisir et conserver les données

Nat54 , Bonsoir .
C'est bien de suivre l'évolution du projet.
Je tente de suivre les conseils et j'ai crée les boutons mais par clic droit je n'accède pas à AFFECTER UNE MACRO .
Ou est la "finesse" ?

 

[bertgrav]

Re : Saisir et conserver les données

bonsoir

merci pour les remerciements

pour ce qui est de créer un bouton:

affichage / barre d'outils / boite à outils contrôle

là tu prend le bouton de la boite à outils ( tu cliques dessus et tu recliques où tu désires le poser )
puis tu cliques de nouveau sur le bouton et dans la barre en haut tu peux supprimer le texte ;=INCORPORER("Forms.CommandButton.1";"")

puis clique droit sur le bouton et tu affectes la macro


amicalement

chantal

 

[bertgrav]

Re : Saisir et conserver les données

excuses moi, je n'avais pas lu entierement ton premier message

pour exécuter une macro il peut y avoir plusieurs solutions

soit directement, tu vas dans outils / macro / macro et la tu sélectionnes celle que tu veux faire tourner puis exécuter.

soit par un bouton ou autre, là tu l'affectes (voir post précédent) et seulement en cliquant dessus tu fais tourner la macro.


mais attention ce que j'ai fait hier n'est qu'une partie de ton problème
pour toi le compléter il te faut savoir interpréter les lignes de la macro et ainsi ajouter d'autres données et/ou en modifier.
l'idée reste là, elle te permet de progresser dans ton projet.

pour lire une macro (lire les lignes) il faut faire macro / macro sélectionner cell que tu veux et cliquer sur modifier, ainsi tu verras le code (mot désignant les termes de la macro) et pourra le modifier

elle est relativement simple, quelques explications peuvent t'aider

(les infos sont en vert avec un ' avant)

amicalement

chantal

 

[lienad]

Re : Saisir et conserver les données

Voilà quelques lignes qui m'éclairent et qui me permettront sans doute d'en rajouter .
Restons confiant mais prudent.
Chantal , merci et peut rtre à bientot ...

 

[lienad]

Re : Saisir et conserver les données

Bonsoir ,

Bertgrav , si tu es là !
Je poursuis mon apprentissage .
J'ai donc "développer " ton exemple de macro .Aujourd'hui il me faudrait un nouveau conseil .Suite à l'effacement des données le curseur se positionne sur la dernière cellule effacée . Comment le repositionner sur la 1ere cellule effacée (c'est à dire sur celle à saisir à nouveau) !
Merci pour votre concours .
Et voilà que commence une attente trépidante .

 

[bertgrav]

Re : Saisir et conserver les données

bonjour,

ça fait trés trés plaisir les remerciements.

tu as de la chance, j'ai cliqué sur ce sujet par hasard ......
donc:
le code d'éffacement était celui ci:

Sub effacer_données()
Sheets("SAISIR").Select
Range("C4:C7").Select
Selection.ClearContents
Range("F4:F8").Select ' PUIS F4 à F8
Selection.ClearContents

' si tu veux en ajouter tu en rajoutes en dessous


End Sub

si tu veux positionner le curseur ailleurs: avant end sub

tu mets :

range("c4").select

si tu veux repositionner le curseur en c4

amicalement

chantal

 

[_Thierry]

Re : Saisir et conserver les données

Bonsoir Chantal, Lienad, le Forum

On peut aussi éviter tout Select dans cette procédure de nettoyage, ce qui a pour effet de laisser en l'état la cellule active précédemment sélectionnée.

Voici une méthode simple :

Sub Effacer_Version_Simple()
Sheets("SAISIR").Range("C4:C7,F4:F8").ClearContents
End Sub

Que l'on peut aussi écrire avec des déclarations d'Object si l'on en a besoin dans un but d'actions répétitives sur la feuille ou la plage en question :

Sub Effacer_Version_Elaboree()
Dim WS As Worksheet
Dim Plage As Range
 
Set WS = ThisWorkbook.Worksheets("SAISIR")
Set Plage = WS.Range("C4:C7,F4:F8")
 
Plage.ClearContents
End Sub

Bonne Soirée

@+Thierry
​