Force sauvegarde

Bonjour a tous

Est il possible d'obliger le sauvegarde des nouveaux donner avent de quitter la feuil active

en apparaîtront un message = ( merci de sauvegarder avent de quitter la feuil )

merci

Bonjour,

sur la page Thisworkbook,

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
ActiveWorkbook.Save
End Sub

i20100 a écrit :

Bonjour a tous

Est il possible d'obliger le sauvegarde des nouveaux donner avent de quitter la feuil active

en apparaîtront un message = ( merci de sauvegarder avent de quitter la feuil )

merci

J'ai une une bouton sur la feuil avec deux fonction = 1-transférer donner vers une autre feuil ; 2-sauvegarde.

C pour ça je veut qu'il m'apparaître un message pour m’avertir de sauvegarder avent de quitter la feuil active.

merci

re,

i20100 a écrit :

re,

BONJOUR

MERCI DE VOIR LA FEUIL ADMIN

re,

à tester,

i20100 a écrit :

re,

à tester,

dreamsodfa-TEST V3.xlsm

rebonjour

merci infiniment pour l'aide

j'ai constaté cette erreur

re,

mets les déclarations,

Dim f As Worksheet
Dim cell As Range, ln&

sur le Module1

n'oublie pas que la variable cell est renseignée lors de l'exécution de la macro Worksheet_Change

i20100 a écrit :

re,

mets les déclarations,

Dim f As Worksheet
Dim cell As Range, ln&

sur le Module1

n'oublie pas que la variable cell est renseignée lors de l'exécution de la macro Worksheet_Change

re

j'ai vécu un autre problème

re,

tu ne dis pas dans quel circonstance ce nouveau problème est apparu ?

i20100 a écrit :

re,

tu ne dis pas dans quel circonstance ce nouveau problème est apparu ?

re,

quand je clique sur le bouton valider et sauvegarder

merci

re,

vérifie que que la variable cell est renseignée lors de l'exécution de la macro.

i20100 a écrit :

re,

vérifie que que la variable cell est renseignée lors de l'exécution de la macro.

RE;

Toujours le même problème

Bonjour a tous

j'ai n'ai pas trouver le problème

merci

re,

quel est la valeur de la variable cell lors du bug ?

i20100 a écrit :

re,

quel est la valeur de la variable cell lors du bug ?

re;

1234

dreamsodfa a écrit :

re;

1234

il y a des valeurs d'erreur #N/A pour 1234

c'est peut la raison du bug

i20100 a écrit :

dreamsodfa a écrit :

re;

1234

il y a des valeurs d'erreur #N/A pour 1234

c'est peut la raison du bug

Re;

j'ai rectifié tous les erreur sur cette version joint

mais

re,

j'inscrit 1234 sur l'onglet ADMIN cellule C3

et j’exécute la macro Valider_et_Sauvegarder() en mode pas à pas

sur la ligne

If Not cell Is Nothing Then

si je place le curseur sur la variable cell

la valeur est nothing, c'est normal puisque celle-ci n'a pas été renseignée

et donc le MsgBox apparaît

        If Not cell Is Nothing Then
          ln = Sheets("dataadmin").Range("B:C").Find(Range("C3"), lookat:=xlWhole).Row
        Range("D6:O9").Copy Sheets("dataadmin").Range("B" & ln + 1)
        Range("C3:E3").Select
        Else
            MsgBox "ID " & Range("C3") & " n'existe pas sur la feuille ''data''.", 16
        End If

re;

je suis débutent sur excel merci de bien vouloir m'envoyer une solution