Ouvrir un formulaire et l'enregistrer

[boboles]

Bonjour à toutes et à tous,



j'ai un tableau de données et un TCD qui en découle.
Je souhaite lorsque je visualise mon TCD pouvoir ouvrir une petite fenêtre et y inscrire des données qui iront s'incrémenter dans môn onglet tableau de données et donc actualiser les données du TCD en live :

j'ai fait la macro suivante mais qui, bien entendu, ne fonctionne pas 😡:

Sub macro1(enregistrer)

NomFeuille = ActiveSheet.Name
Application.ScreenUptating = False
Range("A23:M23").Copy
With Sheets("Données")
.Activate
LigDispo = .Range(Cells(65536, 1), Cells(65536, 1)).End(xlUp).Row + 1
.Range(Cells(LigDispo, 1), Cells(LigDispo, 1)).Select
End With
ActiveSheet.Paste
Sheets(NomFeuille).Activate
Application.ScreenUptading = True

End Sub

HEEEEeeellpp meeEEEE

merci du temps que vous pourrez m'accorder

 

[boboles]

Re : Ouvrir un formulaire et l'enregistrer

ah bah on peut pas dire que ca déchaine les foules mon sujet !! ;-)

 

[tototiti2008]

Re : Ouvrir un formulaire et l'enregistrer

Bonjour boboles,

tu aurais peut-être plus de réponses si tu disais où ça plante et comment.

ce qui me saute aux yeux :

Sub macro1(enregistrer)
 
NomFeuille = ActiveSheet.Name
Application.ScreenUp[COLOR=red]d[/COLOR]ating = False
Range("A23:M23").Copy
With Sheets("Données")
.Activate
LigDispo = [COLOR=red].Cells(65536, 1).[/COLOR]End(xlUp).Row + 1
[COLOR=red].Cells(LigDispo, 1).[/COLOR]Select
End With
ActiveSheet.Paste
Sheets(NomFeuille).Activate
Application.ScreenUp[COLOR=red]d[/COLOR]a[COLOR=red]t[/COLOR]ing = True
 
End Sub