Bonjour,
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 :
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 :
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
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 :
Code:
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
J'ai réalisé cette autre macro - qui créee des feuilles avec les noms saisis dans une liste :
Code:
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 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