Dans un classeur(formulaire) actuellement, j'ai une petite macro qui me
permet d'incrémenter en H7 un numéro lorsque je clique sur enregistrer, Je
désire modifier cette dernière de la façon suivante:
lorsque je cliquerai sur fichier/imprimer ell m'incrémenterai ce numéro...?
macro ci-dessous
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
[H7] = [H7] + 1
End Sub
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
papou
Bonjour Utilise cet évènement : Private Sub Workbook_BeforePrint(Cancel As Boolean)
End Sub
Cordialement Pascal
"P.A." a écrit dans le message de news:
Bonjour,
Dans un classeur(formulaire) actuellement, j'ai une petite macro qui me permet d'incrémenter en H7 un numéro lorsque je clique sur enregistrer, Je désire modifier cette dernière de la façon suivante:
lorsque je cliquerai sur fichier/imprimer ell m'incrémenterai ce numéro...? macro ci-dessous
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) [H7] = [H7] + 1 End Sub
Un grand merci de votre aide
P.A.
Bonjour
Utilise cet évènement :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
End Sub
Cordialement
Pascal
"P.A." <P.A.@discussions.microsoft.com> a écrit dans le message de news:
B20E4F86-EF56-47D4-9607-1ADF0784D4E3@microsoft.com...
Bonjour,
Dans un classeur(formulaire) actuellement, j'ai une petite macro qui me
permet d'incrémenter en H7 un numéro lorsque je clique sur enregistrer, Je
désire modifier cette dernière de la façon suivante:
lorsque je cliquerai sur fichier/imprimer ell m'incrémenterai ce
numéro...?
macro ci-dessous
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
[H7] = [H7] + 1
End Sub
Bonjour Utilise cet évènement : Private Sub Workbook_BeforePrint(Cancel As Boolean)
End Sub
Cordialement Pascal
"P.A." a écrit dans le message de news:
Bonjour,
Dans un classeur(formulaire) actuellement, j'ai une petite macro qui me permet d'incrémenter en H7 un numéro lorsque je clique sur enregistrer, Je désire modifier cette dernière de la façon suivante:
lorsque je cliquerai sur fichier/imprimer ell m'incrémenterai ce numéro...? macro ci-dessous
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) [H7] = [H7] + 1 End Sub
Un grand merci de votre aide
P.A.
HD
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
[H7] = [H7] + 1 End Sub
Tu y étais presque...
A la place de : [H7] = [H7] + 1 Mettre: Range("H7").value=Range("H7").value+1
-- @+ HD
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
[H7] = [H7] + 1
End Sub
Tu y étais presque...
A la place de :
[H7] = [H7] + 1
Mettre:
Range("H7").value=Range("H7").value+1
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
[H7] = [H7] + 1 End Sub
Tu y étais presque...
A la place de : [H7] = [H7] + 1 Mettre: Range("H7").value=Range("H7").value+1
-- @+ HD
Yvan
Salut P.A.
Il te suffirait de faire la même chose avec Workbook_BeforePrint:
Private Sub Workbook_BeforePrint(Cancel As Boolean) [H7] = [H7] + 1 End Sub
@+
Yvan
"P.A." a écrit dans le message de news:
Bonjour,
Dans un classeur(formulaire) actuellement, j'ai une petite macro qui me permet d'incrémenter en H7 un numéro lorsque je clique sur enregistrer, Je désire modifier cette dernière de la façon suivante:
lorsque je cliquerai sur fichier/imprimer ell m'incrémenterai ce numéro...? macro ci-dessous
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) [H7] = [H7] + 1 End Sub
Un grand merci de votre aide
P.A.
Salut P.A.
Il te suffirait de faire la même chose avec Workbook_BeforePrint:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
[H7] = [H7] + 1
End Sub
@+
Yvan
"P.A." <P.A.@discussions.microsoft.com> a écrit dans le message de news:
B20E4F86-EF56-47D4-9607-1ADF0784D4E3@microsoft.com...
Bonjour,
Dans un classeur(formulaire) actuellement, j'ai une petite macro qui me
permet d'incrémenter en H7 un numéro lorsque je clique sur enregistrer, Je
désire modifier cette dernière de la façon suivante:
lorsque je cliquerai sur fichier/imprimer ell m'incrémenterai ce numéro...?
macro ci-dessous
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
[H7] = [H7] + 1
End Sub
Il te suffirait de faire la même chose avec Workbook_BeforePrint:
Private Sub Workbook_BeforePrint(Cancel As Boolean) [H7] = [H7] + 1 End Sub
@+
Yvan
"P.A." a écrit dans le message de news:
Bonjour,
Dans un classeur(formulaire) actuellement, j'ai une petite macro qui me permet d'incrémenter en H7 un numéro lorsque je clique sur enregistrer, Je désire modifier cette dernière de la façon suivante:
lorsque je cliquerai sur fichier/imprimer ell m'incrémenterai ce numéro...? macro ci-dessous
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) [H7] = [H7] + 1 End Sub
Un grand merci de votre aide
P.A.
HD
Effectivement... J'ai lut trop vite je n'ai pas vu que c'était Workbook_BeforeSave
-- @+ HD
Effectivement... J'ai lut trop vite je n'ai pas vu que c'était
Workbook_BeforeSave
Effectivement... J'ai lut trop vite je n'ai pas vu que c'était Workbook_BeforeSave
-- @+ HD
Pierre-Alain
Et Merci à tous, ça marche !!!
P.A.
Salut P.A.
Il te suffirait de faire la même chose avec Workbook_BeforePrint:
Private Sub Workbook_BeforePrint(Cancel As Boolean) [H7] = [H7] + 1 End Sub
@+
Yvan
"P.A." a écrit dans le message de news:
Bonjour,
Dans un classeur(formulaire) actuellement, j'ai une petite macro qui me permet d'incrémenter en H7 un numéro lorsque je clique sur enregistrer, Je désire modifier cette dernière de la façon suivante:
lorsque je cliquerai sur fichier/imprimer ell m'incrémenterai ce numéro...? macro ci-dessous
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) [H7] = [H7] + 1 End Sub
Un grand merci de votre aide
P.A.
Et Merci à tous, ça marche !!!
P.A.
Salut P.A.
Il te suffirait de faire la même chose avec Workbook_BeforePrint:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
[H7] = [H7] + 1
End Sub
@+
Yvan
"P.A." <P.A.@discussions.microsoft.com> a écrit dans le message de news:
B20E4F86-EF56-47D4-9607-1ADF0784D4E3@microsoft.com...
Bonjour,
Dans un classeur(formulaire) actuellement, j'ai une petite macro qui me
permet d'incrémenter en H7 un numéro lorsque je clique sur enregistrer, Je
désire modifier cette dernière de la façon suivante:
lorsque je cliquerai sur fichier/imprimer ell m'incrémenterai ce
numéro...?
macro ci-dessous
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
[H7] = [H7] + 1
End Sub
Il te suffirait de faire la même chose avec Workbook_BeforePrint:
Private Sub Workbook_BeforePrint(Cancel As Boolean) [H7] = [H7] + 1 End Sub
@+
Yvan
"P.A." a écrit dans le message de news:
Bonjour,
Dans un classeur(formulaire) actuellement, j'ai une petite macro qui me permet d'incrémenter en H7 un numéro lorsque je clique sur enregistrer, Je désire modifier cette dernière de la façon suivante:
lorsque je cliquerai sur fichier/imprimer ell m'incrémenterai ce numéro...? macro ci-dessous
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) [H7] = [H7] + 1 End Sub
Un grand merci de votre aide
P.A.
Pierre-Alain
hELLO,
Du premier coup !!!
Bonne soirée et merci !
P.A.
Salut P.A.
Il te suffirait de faire la même chose avec Workbook_BeforePrint:
Private Sub Workbook_BeforePrint(Cancel As Boolean) [H7] = [H7] + 1 End Sub
@+
Yvan
"P.A." a écrit dans le message de news:
Bonjour,
Dans un classeur(formulaire) actuellement, j'ai une petite macro qui me permet d'incrémenter en H7 un numéro lorsque je clique sur enregistrer, Je désire modifier cette dernière de la façon suivante:
lorsque je cliquerai sur fichier/imprimer ell m'incrémenterai ce numéro...? macro ci-dessous
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) [H7] = [H7] + 1 End Sub
Un grand merci de votre aide
P.A.
hELLO,
Du premier coup !!!
Bonne soirée et merci !
P.A.
Salut P.A.
Il te suffirait de faire la même chose avec Workbook_BeforePrint:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
[H7] = [H7] + 1
End Sub
@+
Yvan
"P.A." <P.A.@discussions.microsoft.com> a écrit dans le message de news:
B20E4F86-EF56-47D4-9607-1ADF0784D4E3@microsoft.com...
Bonjour,
Dans un classeur(formulaire) actuellement, j'ai une petite macro qui me
permet d'incrémenter en H7 un numéro lorsque je clique sur enregistrer, Je
désire modifier cette dernière de la façon suivante:
lorsque je cliquerai sur fichier/imprimer ell m'incrémenterai ce
numéro...?
macro ci-dessous
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
[H7] = [H7] + 1
End Sub
Il te suffirait de faire la même chose avec Workbook_BeforePrint:
Private Sub Workbook_BeforePrint(Cancel As Boolean) [H7] = [H7] + 1 End Sub
@+
Yvan
"P.A." a écrit dans le message de news:
Bonjour,
Dans un classeur(formulaire) actuellement, j'ai une petite macro qui me permet d'incrémenter en H7 un numéro lorsque je clique sur enregistrer, Je désire modifier cette dernière de la façon suivante:
lorsque je cliquerai sur fichier/imprimer ell m'incrémenterai ce numéro...? macro ci-dessous
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) [H7] = [H7] + 1 End Sub
Un grand merci de votre aide
P.A.
Michael
Bonjour,
Simplement pour info, quelle difference entre [A1] et range("A1").value ??
Merci !
Bonjour,
Simplement pour info, quelle difference entre [A1] et range("A1").value ??
Simplement pour info, quelle difference entre [A1] et range("A1").value ??
Merci !
anonymousA
bonjour
formellement, [A1] est un objet range mais la propriété value étant par défaut celle d'un objet range, écrire [A1]+1 ou range("A1").value +1 est la même chose.
Bonjour,
Simplement pour info, quelle difference entre [A1] et range("A1").value ??
Merci !
bonjour
formellement, [A1] est un objet range mais la propriété value étant par
défaut celle d'un objet range, écrire [A1]+1 ou range("A1").value +1 est
la même chose.
Bonjour,
Simplement pour info, quelle difference entre [A1] et range("A1").value ??
formellement, [A1] est un objet range mais la propriété value étant par défaut celle d'un objet range, écrire [A1]+1 ou range("A1").value +1 est la même chose.
Bonjour,
Simplement pour info, quelle difference entre [A1] et range("A1").value ??
