enregister des données dans une autre feuille avant de les effacer

pierrejean

XLDnaute Barbatruc

• 3 Janvier 2007

• #2

Re : enregister des données dans une autre feuille avant de les effacer

bonjour Pascal21

une solution Vba

vois si cela te convient

ps: il sera possible d'adapter a un plus grand nbre de feuilles

 

Pièces jointes

• pascal1.xls

  36 KB · Affichages: 79
• pascal1.xls

  36 KB · Affichages: 81
• pascal1.xls

  36 KB · Affichages: 81

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 3 Janvier 2007

• #3

Re : enregister des données dans une autre feuille avant de les effacer

bonjour et merci pierrejean
comme d'habitude
ta réponse en vba est excelente
c'est mieux que je n'osais espérer
en plus je n'avais pas précisé mais le nombre de feuilles est d'environ une dizaine
ce que ton code pourras prendre en charge facilement
bonne journée

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Janvier 2007

• #4

Re : enregister des données dans une autre feuille avant de les effacer

merci pascal21

voici la version pour un nombre quelconque de feuilles (pourvu qu'elles soient du même type)

si une ou plusieurs autres feuilles a ne pas prendre en compte existent il est possible de modifier le code

 

Pièces jointes

• pascal1.xls

  37.5 KB · Affichages: 68
• pascal1.xls

  37.5 KB · Affichages: 68
• pascal1.xls

  37.5 KB · Affichages: 61

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 3 Janvier 2007

• #5

Re : enregister des données dans une autre feuille avant de les effacer

bonsoir
grâce à ce code je supprime les données en fin de mois

Code:

Sub Image21_QuandClic()
Call enregistrement
Dim style As Integer
Dim msg As String, title As String, Response As String
msg = "   Vous allez enregistrer et quitter ce tableau;   Vous confirmez?"
style = vbYesNo + vbDefaultButton2
title = "Attention!! "
Response = MsgBox(msg, style, title)
If Response = vbYes Then
ActiveWorkbook.Close savechanges:=True
End If
End Sub

j'y ai rajouté "call enregistrement" de la macro de pierrejean
mon code fonctionne toujours mais l'enregistrement des données ne se fait pas
où faut-il mettre se code
sachant que je tient absolument à que ce soit ce bouton qui fasse l'action
merci

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 3 Janvier 2007

• #6

Re : enregister des données dans une autre feuille avant de les effacer

pour faire remonter
merci

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 3 Janvier 2007

• #7

Re : enregister des données dans une autre feuille avant de les effacer

Bonjour pascal21, pierrejean

J'ai ajouté un bouton sur la feuille 3 du fichier de Pierrejean et copié ton
code en déplacant le "Call enregistrement" aprés
"If Response = vbYes Then". Comme cela si tu veux, au dernier moment, revenir en arrière, c'est possible.

Cela fonctionne correctement (même quand l'appel à la macro est placé comme tu l'as mis d'ailleurs ).

Donc je vois pas où est ton problème. A tout hasard, tu as bien mis la macro de pierrejean dans un module, pas dans le code d'une feuille.


Bonne soirée

P.O

 

Pièces jointes

• pascal1.xls

  39.5 KB · Affichages: 72
• pascal1.xls

  39.5 KB · Affichages: 68
• pascal1.xls

  39.5 KB · Affichages: 72

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 4 Janvier 2007

• #8

Re : enregister des données dans une autre feuille avant de les effacer

ok merci bqtr
lorsque j'ai lu ta réponse, j'ai eu un doute sur mon classeur
en fait je n'avais pas mis le code "enregistrement"sur le bon bouton
maintenant ,c'est corrigé
bonne journée

 

Vote positif 0 Vote négatif