aide sur macro

B

ben42

Guest
Bonjour,
Je viens de creer une macro qui sert à copier les infos saisie dans un questionnaire Vers un tableau Récapitulatif :


Sub Validation()
'
' Validation Macro
' Macro enregistrée le 13/10/2005 par EXTRAT Benoit
'
' Touche de raccourci du clavier: Ctrl+Maj+V
'Creation d'une nouvelle ligne dans recap
Worksheets('liste').Select
Rows('2').Select
Selection.Insert
Range('A2:D2').Select

'insertion des nouvelles données
Range('A2').Formula = '=Recap!B1'
Range('B2').Formula = '=Recap!B2'
Range('C2').Formula = '=Recap!B3'
Range('D2').Formula = '=Recap!B4'
End Sub

Le petit problème que je rencontre c'est que les données qui parte dans le tableau ne sont pas sauvegardé (lorsque je vide mes cellule de questionnaire le recap se vide aussi) et j'aimerai aussi que mon questionnaire se vide aprés chaque validation.

Merci de me donner les commandes qui me manques pour pouvoir faire ceci (merci de parler simplement).

A bientot sur le site
 
B

ben42

Guest
Pardon voici le ficheir comme promis ne pas faire attention a la mise en page je verrai caplus tard et la macro qui nous interesse est validation

:sick: :sick: [file name=Modeles.zip size=18318]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Modeles.zip[/file]
 

Pièces jointes

  • Modeles.zip
    17.9 KB · Affichages: 59
  • Modeles.zip
    17.9 KB · Affichages: 18
  • Modeles.zip
    17.9 KB · Affichages: 20

David

XLDnaute Occasionnel
Salut

C'est normal puisque tu mets dans ta formule que la cellule est egal à Recap!B1, donc si tu efface Recap!B1 ça vide A2

Il faut le faire en copier coller en valeur.

Code:
Sub Macro1()
Sheets('nom_de_l'onglet_ou_tu_prends_l'info').Select
 Range('A2:D2').Select
    Selection.Copy
    Sheets('Recap!').Select
    Range('A2').Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

tu vois pour changer les selections en fonction de tes besoins.

tcho
 

David

XLDnaute Occasionnel
Voila en esperant que ça te convienne.

tcho


[file name=Modeles_20051013163708.zip size=18653]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Modeles_20051013163708.zip[/file]
 

Pièces jointes

  • Modeles_20051013163708.zip
    18.2 KB · Affichages: 20

David

XLDnaute Occasionnel
excuse moi je t'ai redonné le tien ! :)

Voila le bon [file name=Modeles_20051013164052.zip size=18656]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Modeles_20051013164052.zip[/file]
 

Pièces jointes

  • Modeles_20051013164052.zip
    18.2 KB · Affichages: 13

David

XLDnaute Occasionnel
Si c'est ce que tu as tapé dans l'onglet recap, c'est pas un bug j'ai mis ça en penssant que cela serait plus pratique.

Pour que ça ne le fasse plus tu mets ' un apostrophe devant les lignes

Code:
' Range('B1:B4').Select
 ' Selection.ClearContents

Tcho

Message édité par: david, à: 13/10/2005 17:19
 

Discussions similaires

Statistiques des forums

Discussions
312 913
Messages
2 093 534
Membres
105 750
dernier inscrit
fred13340