bonjour,
j'ai une feuille qui une fois fermée enregistre dans une autres feuilles 4
cellules données et enregistre cette dernière.
ma question est comment au prochain enregistrement faire que ces 4 données
se retrouve sur la ligne d'en dessous soit :
a2;a3;a4;a5 (4 données ) et la fois suivante:
b2;b3;b4;b5 ect...
merci à vous ! ! !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Corto
Bonjour christophe, Je te propose cette macro à mettre dans ThisWorkbook Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) [NomDeFeuille!A1:D1].Insert Shift:=xlDown End Sub NB: s'il y a un espace dans le nom de la feuille il faut mettre des quotes : ['Nom De Feuille'!A1:D1].Insert Shift:=xlDown
Bonjour christophe,
Je te propose cette macro à mettre dans ThisWorkbook
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
[NomDeFeuille!A1:D1].Insert Shift:=xlDown
End Sub
NB: s'il y a un espace dans le nom de la feuille il faut mettre des
quotes : ['Nom De Feuille'!A1:D1].Insert Shift:=xlDown
Bonjour christophe, Je te propose cette macro à mettre dans ThisWorkbook Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) [NomDeFeuille!A1:D1].Insert Shift:=xlDown End Sub NB: s'il y a un espace dans le nom de la feuille il faut mettre des quotes : ['Nom De Feuille'!A1:D1].Insert Shift:=xlDown
Bonjour. Je ne comprends pas ce que tu veux dire par "fermer une feuille". La macro suivante ajoute les valeurs dans la feuille "Feuil1" en écrivant en dessous la dernière ligne :
Sub test() ValeurA = 10 ValeurB = "toto" With Sheets("Feuil1") ' remplissage colonne A .Cells(.Range("A65536").End(xlUp).Row + 1, 1) = ValeurA ' remplissage colonne B .Cells(.Range("A65536").End(xlUp).Row, 2) = ValeurB End With End Sub
A toi d'adapter suivant tes besoins. Daniel "christophe" a écrit dans le message de news:
bonjour, j'ai une feuille qui une fois fermée enregistre dans une autres feuilles 4 cellules données et enregistre cette dernière. ma question est comment au prochain enregistrement faire que ces 4 données se retrouve sur la ligne d'en dessous soit :
a2;a3;a4;a5 (4 données ) et la fois suivante: b2;b3;b4;b5 ect... merci à vous ! ! !
Bonjour.
Je ne comprends pas ce que tu veux dire par "fermer une feuille". La macro
suivante ajoute les valeurs dans la feuille "Feuil1" en écrivant en dessous
la dernière ligne :
Sub test()
ValeurA = 10
ValeurB = "toto"
With Sheets("Feuil1")
' remplissage colonne A
.Cells(.Range("A65536").End(xlUp).Row + 1, 1) = ValeurA
' remplissage colonne B
.Cells(.Range("A65536").End(xlUp).Row, 2) = ValeurB
End With
End Sub
A toi d'adapter suivant tes besoins.
Daniel
"christophe" <christophe@discussions.microsoft.com> a écrit dans le message
de news: 2E9CC169-094E-4B01-AA55-ACD3677EE0CA@microsoft.com...
bonjour,
j'ai une feuille qui une fois fermée enregistre dans une autres feuilles 4
cellules données et enregistre cette dernière.
ma question est comment au prochain enregistrement faire que ces 4 données
se retrouve sur la ligne d'en dessous soit :
a2;a3;a4;a5 (4 données ) et la fois suivante:
b2;b3;b4;b5 ect...
merci à vous ! ! !
Bonjour. Je ne comprends pas ce que tu veux dire par "fermer une feuille". La macro suivante ajoute les valeurs dans la feuille "Feuil1" en écrivant en dessous la dernière ligne :
Sub test() ValeurA = 10 ValeurB = "toto" With Sheets("Feuil1") ' remplissage colonne A .Cells(.Range("A65536").End(xlUp).Row + 1, 1) = ValeurA ' remplissage colonne B .Cells(.Range("A65536").End(xlUp).Row, 2) = ValeurB End With End Sub
A toi d'adapter suivant tes besoins. Daniel "christophe" a écrit dans le message de news:
bonjour, j'ai une feuille qui une fois fermée enregistre dans une autres feuilles 4 cellules données et enregistre cette dernière. ma question est comment au prochain enregistrement faire que ces 4 données se retrouve sur la ligne d'en dessous soit :
a2;a3;a4;a5 (4 données ) et la fois suivante: b2;b3;b4;b5 ect... merci à vous ! ! !
christophe
bonjour corto, en fait je dois copier les cellules de c80 à h80 de la feuille "x", aux cellules c11 à h11 de la feuille "z" c'est un programme "dossier", a la fin duquel j'ai besoin de prendre 5 données pour les conserver dans un programme "livre commandes" merci de ton aide
Bonjour christophe, Je te propose cette macro à mettre dans ThisWorkbook Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) [NomDeFeuille!A1:D1].Insert Shift:=xlDown End Sub NB: s'il y a un espace dans le nom de la feuille il faut mettre des quotes : ['Nom De Feuille'!A1:D1].Insert Shift:=xlDown
Corto
bonjour, j'ai une feuille qui une fois fermée enregistre dans une autres feuilles 4 cellules données et enregistre cette dernière. ma question est comment au prochain enregistrement faire que ces 4 données se retrouve sur la ligne d'en dessous soit :
a2;a3;a4;a5 (4 données ) et la fois suivante: b2;b3;b4;b5 ect... merci à vous ! ! !
bonjour corto, en fait je dois copier les cellules de c80 à h80 de la feuille
"x", aux cellules c11 à h11 de la feuille "z"
c'est un programme "dossier", a la fin duquel j'ai besoin de prendre 5
données pour les conserver dans un programme "livre commandes"
merci de ton aide
Bonjour christophe,
Je te propose cette macro à mettre dans ThisWorkbook
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
[NomDeFeuille!A1:D1].Insert Shift:=xlDown
End Sub
NB: s'il y a un espace dans le nom de la feuille il faut mettre des
quotes : ['Nom De Feuille'!A1:D1].Insert Shift:=xlDown
Corto
bonjour,
j'ai une feuille qui une fois fermée enregistre dans une autres feuilles 4
cellules données et enregistre cette dernière.
ma question est comment au prochain enregistrement faire que ces 4 données
se retrouve sur la ligne d'en dessous soit :
a2;a3;a4;a5 (4 données ) et la fois suivante:
b2;b3;b4;b5 ect...
merci à vous ! ! !
bonjour corto, en fait je dois copier les cellules de c80 à h80 de la feuille "x", aux cellules c11 à h11 de la feuille "z" c'est un programme "dossier", a la fin duquel j'ai besoin de prendre 5 données pour les conserver dans un programme "livre commandes" merci de ton aide
Bonjour christophe, Je te propose cette macro à mettre dans ThisWorkbook Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) [NomDeFeuille!A1:D1].Insert Shift:=xlDown End Sub NB: s'il y a un espace dans le nom de la feuille il faut mettre des quotes : ['Nom De Feuille'!A1:D1].Insert Shift:=xlDown
Corto
bonjour, j'ai une feuille qui une fois fermée enregistre dans une autres feuilles 4 cellules données et enregistre cette dernière. ma question est comment au prochain enregistrement faire que ces 4 données se retrouve sur la ligne d'en dessous soit :
a2;a3;a4;a5 (4 données ) et la fois suivante: b2;b3;b4;b5 ect... merci à vous ! ! !
Corto
Bonjour christophe, Ca doit donner quelque chose comme Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) [X!C80:H80].Copy [Z!C11].Insert Shift:=xlDown End Sub
Bonjour christophe, Je te propose cette macro à mettre dans ThisWorkbook Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) [NomDeFeuille!A1:D1].Insert Shift:=xlDown End Sub NB: s'il y a un espace dans le nom de la feuille il faut mettre des quotes : ['Nom De Feuille'!A1:D1].Insert Shift:=xlDown
Bonjour christophe,
Ca doit donner quelque chose comme
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
[X!C80:H80].Copy
[Z!C11].Insert Shift:=xlDown
End Sub
Bonjour christophe,
Je te propose cette macro à mettre dans ThisWorkbook
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
[NomDeFeuille!A1:D1].Insert Shift:=xlDown
End Sub
NB: s'il y a un espace dans le nom de la feuille il faut mettre des
quotes : ['Nom De Feuille'!A1:D1].Insert Shift:=xlDown
Bonjour christophe, Ca doit donner quelque chose comme Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) [X!C80:H80].Copy [Z!C11].Insert Shift:=xlDown End Sub
Bonjour christophe, Je te propose cette macro à mettre dans ThisWorkbook Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) [NomDeFeuille!A1:D1].Insert Shift:=xlDown End Sub NB: s'il y a un espace dans le nom de la feuille il faut mettre des quotes : ['Nom De Feuille'!A1:D1].Insert Shift:=xlDown
