Formulaire de saisie et résultat en liste Fermé

Question

Bonjour, 

Je pense m'être trompé de forum. J'ai posé ma question dans le Forum Bureautique à cause d'Excel... Enfin je pense... je la repose ici en programmation. 

J'aurai besoin de la lumière de "ceux qui savent" pour réaliser un formulaire de saisie qui enverrai les données dans une liste.
Dans un premier temps j'ai réalisé (en partie merci internet !) ceci :

Sub DerniereLigneVide()
'
' Sub DerniereLigneVide Macro
' Macro enregistrée le 28/07/2010 par Cassivellaunos
'
    Dim Ligne As Integer
Application.ScreenUpdating = False
   Range("A5:c5").Copy
Sheets("Feuil2").Select
Ligne = ActiveSheet.Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne).Activate
ActiveSheet.Paste
Sheets("Feuil1").Select
Application.CutCopyMode = False

End Sub

Ca marche mais la liste est créée dans le même classeur que les formulaires. Je voudrai (pour plus de souplesse) que la liste soit dans un autre classeur. En VBA j'ai compris que "ActiveSheet.Paste" colle dans le classeur actif dans la feuil2 le résultat de la saisie dans la feuil1. Par contre j'ai besoin de conserver (sous forme de feuilles) l'historique des saisies. Je suis donc limité à 256 feuilles (excel 2000).
J'ai réalisé cette autre macro - qui créee des feuilles avec les noms saisis dans une liste :
Sub NommerFeuilles()
'
' NommerFeuilles Macro
' Macro enregistrée le 29/07/2010 par Cassivellaunos
'
'Selection de la 1er cellule de la colonne A
Range("A1").Select
Dim cpt As Integer
cpt = 1
Do
DoEvents         
SendKeys "{Down}", True       
A = A + 1
Sheets(A).Name = ActiveCell    
'Si A = 12, 
If A = 13 Then
cpt = cpt - 1
End If
Loop Until cpt = 0
On Error GoTo 1
1 MsgBox "Il est impossible de nommer la feuille" & A & ". Vérifier que le contenu de la cellule n' est pas nul."

End Sub

Comment pourrai-je intégrer ces 2 macros ?
Comment gérer plusieurs classeurs de formulaires (à cause de l'historisarion des données) ?

Je ne connais pas grand chose en VBA - mes macros sont perfectibles - si quelqu'un voudrai bien m'aider je l'en remercie par avance.

Cassivellaunos

Configuration: Windows 7 / Internet Explorer 7.0

lermite222 · Answer

Bonjour,    
Avant de voir pour le code, ça me semble bien lourd de créer une feuille à chaque fois pour un tableau de 3 cellules ?    
Je verrais plutôt ça sur une seule feuille, la date en colonne A et les données en colonne B et C.   
Tu pourais alors archiver 65536 tableaux.   
A+   
L'expérience instruit plus sûrement que le conseil. (André Gide)      
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

lermite222 · Answer

Ta 1ère macro peut-être optimisée par.. 
Sub DerniereLigneVide() 
Dim Ligne As Long 
    Ligne = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1 
    ActiveSheet.Range("A5:C5").Copy Sheets("Feuil2").Cells(Ligne, 1) 
End Sub
ou, en suprimant la variable 
Sub DerniereLigneVide() 
    ActiveSheet.Range("A5:C5").Copy _ 
    Sheets("Feuil2").Cells(Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1, 1) 
End Sub 

A+ 
L'expérience instruit plus sûrement que le conseil. (André Gide)   
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

Cassivellaunos · Answer

Merci lermitte222,
je savais bien que mes macros pouvaient être optimisées !
Petite précision : mon exemple porte en effet sur des colonnes simplifiées. La réalité en comporte une trentaine ; donc plus justifiable que les trois de mon exemple.
Par contre, si tu pouvais m'aider sur l'autre partie de ma 1ère question concernant la liste dans un autre classeur et savoir si je peux les agréger ... sachant que les deux macros seront exécutées par un bouton (enfin j'espère savoir le faire).
Je t'en remercie.
Cassivellaunos

lermite222 · Answer

Reprenons...
D'accord pour 30 colonnes mais combien de ligne pour chaque tableau ?
Fréquence de l'archivage ?
Les données à sauver sont toujours sur la même ligne ?
Comment ces données sont entrées ?
Explique un peu le but

lermite222 · Answer

Il n'est pas possible, même en VBA de créer plus de 256 feuilles sur un classeur.
Je trouve que ton approche n'est pas vraiment la meilleur.
Je verrais plutôt..
Un UserForm pour saisir les coordonnées d'un nouveau Client (patient) ou possibilité de le réappeler.
et mémoriser dans la feuille Client (65536 clients possible)
Un UserForm pour saisir les données relatives à une intervention (consultation)
et mémoriser dans la feuille Interventions. (65536 interventions possibles)
Un filtre sur la feuille Client qui permettrait de trouver la/les interventions sur ce client.
Tout dans un classeur unique, plus facile à gérer.
Pour avoir une idée avec des UserForm tu peu déjà consulter cette astuce tu peu bien évidemment modifier le nombre de textBox de saisie en respectant les consignes indiquées dans le tuto.

Polux31 · Answer

Bonjour Cassivellaunos, bonjour lermite

Je viens de parcourir brièvement le topic.

Si Access n'est pas autorisé et qu'il faille passer par Excel, je pense que 2 classeurs peuvent suffire à gérer tout ça. 

Un classeur organisé en "base de données" et un classeur servant de "formulaire".
L'accès au classeur "base de données" pouvant se faire par des requêtes de type SQL, ça optimise la gestion des champs, la manipulation des données et les temps d'accès et de réponses sont nettement plus rapides.

La seule "difficulté" étant l'organisation des données.

;o)

Formulaire de saisie et résultat en liste

6 réponses

Discussions similaires