aide sur macro

[ben42]

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('A22').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

 

[mutzik]

Bonjour Ben42,

mets nous ton fichier en exemple, ce sera beaucoup plus simple et plus efficace (voir 'comment joindre un fichier')

 

[ben42]

Voici le fichier merci de ton coup de main

 

[ben42]

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]

 

[David]

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.

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]

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]

 

[ben42]

Je viens d'essayer mais ca ne marche pas.

Help please

 

[David]

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]

 

[Ben42]

Mille Merci.

Le seul petit Bug est que le nom de mes colonnes s'efface lorsqu'on utilise cette macros.

Rien de Grave et encore Merci

 

[David]

re

de quelles colonnes parles tu ?

tcho

 

[David]

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

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

Tcho

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

 

[ben42]

Non ce que tu as fait dans l'onglet Recap c'est cool c'est dans la feuille liste le nom des colonnes Nom Premon Ect disparesse

A+

 

[David]

Salut

Désolé je suis parti hier.

J'ai du effacer le titre de tes colonnes par erreur, mais si tu les retapes dedans ça ne pause pas de problème; ils ne diparaissent plus chez moi.

Tcho