Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Code dans Visual Basic

Code dans Visual Basic

7 réponses
Avatar
Andrew
Hello... j'ai un probl=E8me.

J'ai un document avec 3 feuilles Excel qui contiennent:

- Feuil1: une liste de gens que je DOIS employer
- Feuil2: une feuille bidon que j'utilise pas
- Feuil3: la page d'intro qui permet de choisir entre=20
l'hypertexte de la feuil1 et de la feuil2

J'aimerais que quand on clique sur le lien qui donne sur=20
la feuil1, =E7a sauve automatiquement sur la feuil1. Et=20
quand on clique sur le lien qui donne sur sur la feuil2 =E7a=20
ferme Excel.

J'ai fait ce code pour le faire:

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As=20
Object _
, ByVal Target As Hyperlink)
If Sh.Name =3D "Feuil1" Then
ThisWorkbook.Save
End If
If Sh.Name =3D "Feuil2" Then
Application.Quit
End If
End Sub


Mais =E7a ne marche pas... =E7a me ferme Excel quand je clique=20
sur n'importe lequel des deux liens... Qu'est-ce que j'ai=20
fait faux? Est-ce possible de faire ce que je veux?


Deuxi=E8me question:

J'aimerais qu'une cellule augmente d'une valeure CHAQUE=20
ann=E9e le 1er ao=FBt (le contenu de la cellule est 7MA51 et=20
j'aimerais que le 1er ao=FBt 2005 =E7a change automatiquement=20
en 8MA51, puis le 1er ao=FBt 2006 en 9MA51, etc etc)

Que dois-je faire?

Merci =E0 celui ou celle qui aura le courage de r=E9pondre =E0=20
tout =E7a!
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
papou
Bonjour
Cela doit sans doute faire suite à ta question d'hier ? ;-)
Récapitulons :
Sur la feuille Feuil3 se trouvent tes liens hypertexte :
Tu as un lien hypertexte avec le texte "Feuil1" qui s'affiche dans une
cellule
Tu as un lien hypertexte avec le texte "Feuil2" qui s'affiche dans une
cellule
Si ce sont effectivement les conditions actuelles, le code ci-dessous DOIT
fonctionner :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object _
, ByVal Target As Hyperlink)
If Sh.Name = "Feuil3" And Target.TextToDisplay = "Feuil2" _
Then
ThisWorkbook.Save 'si tu souhaites enregistrer
Application.Quit
End If
End Sub

(testé sur Excel 2003)
Cordialement
Pascal


"Andrew" a écrit dans le message de
news:2e0101c4b1c5$d396de10$
Hello... j'ai un problème.

J'ai un document avec 3 feuilles Excel qui contiennent:

- Feuil1: une liste de gens que je DOIS employer
- Feuil2: une feuille bidon que j'utilise pas
- Feuil3: la page d'intro qui permet de choisir entre
l'hypertexte de la feuil1 et de la feuil2

J'aimerais que quand on clique sur le lien qui donne sur
la feuil1, ça sauve automatiquement sur la feuil1. Et
quand on clique sur le lien qui donne sur sur la feuil2 ça
ferme Excel.

J'ai fait ce code pour le faire:

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object _
, ByVal Target As Hyperlink)
If Sh.Name = "Feuil1" Then
ThisWorkbook.Save
End If
If Sh.Name = "Feuil2" Then
Application.Quit
End If
End Sub


Mais ça ne marche pas... ça me ferme Excel quand je clique
sur n'importe lequel des deux liens... Qu'est-ce que j'ai
fait faux? Est-ce possible de faire ce que je veux?


Deuxième question:

J'aimerais qu'une cellule augmente d'une valeure CHAQUE
année le 1er août (le contenu de la cellule est 7MA51 et
j'aimerais que le 1er août 2005 ça change automatiquement
en 8MA51, puis le 1er août 2006 en 9MA51, etc etc)

Que dois-je faire?

Merci à celui ou celle qui aura le courage de répondre à
tout ça!
Avatar
Bon je crois que je vais abandonner parce que j'arrive pas
a faire les deux...
Sois il me fait tout quitter, sois il me fait tout
sauver... donc je sais pas mais je vais arreter là!

Et pour la deuxieme partie de ma question? faire augmenter
une cellule d'une valeure le 1er aout c'est possible?

-----Message d'origine-----
Bonjour
Cela doit sans doute faire suite à ta question d'hier ? ;-
)

Récapitulons :
Sur la feuille Feuil3 se trouvent tes liens hypertexte :
Tu as un lien hypertexte avec le texte "Feuil1" qui
s'affiche dans une

cellule
Tu as un lien hypertexte avec le texte "Feuil2" qui
s'affiche dans une

cellule
Si ce sont effectivement les conditions actuelles, le
code ci-dessous DOIT

fonctionner :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object _

, ByVal Target As Hyperlink)
If Sh.Name = "Feuil3" And Target.TextToDisplay = "Feuil2"
_

Then
ThisWorkbook.Save 'si tu souhaites enregistrer
Application.Quit
End If
End Sub

(testé sur Excel 2003)
Cordialement
Pascal


"Andrew" a écrit
dans le message de

news:2e0101c4b1c5$d396de10$
Hello... j'ai un problème.

J'ai un document avec 3 feuilles Excel qui contiennent:

- Feuil1: une liste de gens que je DOIS employer
- Feuil2: une feuille bidon que j'utilise pas
- Feuil3: la page d'intro qui permet de choisir entre
l'hypertexte de la feuil1 et de la feuil2

J'aimerais que quand on clique sur le lien qui donne sur
la feuil1, ça sauve automatiquement sur la feuil1. Et
quand on clique sur le lien qui donne sur sur la feuil2 ça
ferme Excel.

J'ai fait ce code pour le faire:

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object _
, ByVal Target As Hyperlink)
If Sh.Name = "Feuil1" Then
ThisWorkbook.Save
End If
If Sh.Name = "Feuil2" Then
Application.Quit
End If
End Sub


Mais ça ne marche pas... ça me ferme Excel quand je clique
sur n'importe lequel des deux liens... Qu'est-ce que j'ai
fait faux? Est-ce possible de faire ce que je veux?


Deuxième question:

J'aimerais qu'une cellule augmente d'une valeure CHAQUE
année le 1er août (le contenu de la cellule est 7MA51 et
j'aimerais que le 1er août 2005 ça change automatiquement
en 8MA51, puis le 1er août 2006 en 9MA51, etc etc)

Que dois-je faire?

Merci à celui ou celle qui aura le courage de répondre à
tout ça!


.



Avatar
papou
Re
Quelle est ta version d'excel ?
Si tu le souhaites, je te fais parvenir un classeur qui fonctionne.
Cordialement
Pascal

a écrit dans le message de
news:036d01c4b1ca$6cd7f920$
Bon je crois que je vais abandonner parce que j'arrive pas
a faire les deux...
Sois il me fait tout quitter, sois il me fait tout
sauver... donc je sais pas mais je vais arreter là!

Et pour la deuxieme partie de ma question? faire augmenter
une cellule d'une valeure le 1er aout c'est possible?

-----Message d'origine-----
Bonjour
Cela doit sans doute faire suite à ta question d'hier ? ;-
)

Récapitulons :
Sur la feuille Feuil3 se trouvent tes liens hypertexte :
Tu as un lien hypertexte avec le texte "Feuil1" qui
s'affiche dans une

cellule
Tu as un lien hypertexte avec le texte "Feuil2" qui
s'affiche dans une

cellule
Si ce sont effectivement les conditions actuelles, le
code ci-dessous DOIT

fonctionner :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object _

, ByVal Target As Hyperlink)
If Sh.Name = "Feuil3" And Target.TextToDisplay = "Feuil2"
_

Then
ThisWorkbook.Save 'si tu souhaites enregistrer
Application.Quit
End If
End Sub

(testé sur Excel 2003)
Cordialement
Pascal


"Andrew" a écrit
dans le message de

news:2e0101c4b1c5$d396de10$
Hello... j'ai un problème.

J'ai un document avec 3 feuilles Excel qui contiennent:

- Feuil1: une liste de gens que je DOIS employer
- Feuil2: une feuille bidon que j'utilise pas
- Feuil3: la page d'intro qui permet de choisir entre
l'hypertexte de la feuil1 et de la feuil2

J'aimerais que quand on clique sur le lien qui donne sur
la feuil1, ça sauve automatiquement sur la feuil1. Et
quand on clique sur le lien qui donne sur sur la feuil2 ça
ferme Excel.

J'ai fait ce code pour le faire:

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object _
, ByVal Target As Hyperlink)
If Sh.Name = "Feuil1" Then
ThisWorkbook.Save
End If
If Sh.Name = "Feuil2" Then
Application.Quit
End If
End Sub


Mais ça ne marche pas... ça me ferme Excel quand je clique
sur n'importe lequel des deux liens... Qu'est-ce que j'ai
fait faux? Est-ce possible de faire ce que je veux?


Deuxième question:

J'aimerais qu'une cellule augmente d'une valeure CHAQUE
année le 1er août (le contenu de la cellule est 7MA51 et
j'aimerais que le 1er août 2005 ça change automatiquement
en 8MA51, puis le 1er août 2006 en 9MA51, etc etc)

Que dois-je faire?

Merci à celui ou celle qui aura le courage de répondre à
tout ça!


.



Avatar
AV
Et pour la deuxieme partie de ma question? faire augmenter
une cellule d'une valeure le 1er aout c'est possible?


Avec la dite-cellule nommée "laCellule"
Dans le module de Thisworkbook :

Private Sub Workbook_Open()
If Day(Date) = 15 And Month(Date) = 8 Then _
MsgBox Application.Substitute([laCellule], "MA51", "") + 1 & "MA51"
End Sub

AV

Avatar
J'ai Excel XP (2002)
-----Message d'origine-----
Re
Quelle est ta version d'excel ?
Si tu le souhaites, je te fais parvenir un classeur qui
fonctionne.

Cordialement
Pascal

a écrit dans le
message de

news:036d01c4b1ca$6cd7f920$
Bon je crois que je vais abandonner parce que j'arrive pas
a faire les deux...
Sois il me fait tout quitter, sois il me fait tout
sauver... donc je sais pas mais je vais arreter là!

Et pour la deuxieme partie de ma question? faire augmenter
une cellule d'une valeure le 1er aout c'est possible?

-----Message d'origine-----
Bonjour
Cela doit sans doute faire suite à ta question
d'hier ? ;-


)
Récapitulons :
Sur la feuille Feuil3 se trouvent tes liens hypertexte :
Tu as un lien hypertexte avec le texte "Feuil1" qui
s'affiche dans une

cellule
Tu as un lien hypertexte avec le texte "Feuil2" qui
s'affiche dans une

cellule
Si ce sont effectivement les conditions actuelles, le
code ci-dessous DOIT

fonctionner :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object _

, ByVal Target As Hyperlink)
If Sh.Name = "Feuil3" And Target.TextToDisplay = "Feuil2"
_

Then
ThisWorkbook.Save 'si tu souhaites enregistrer
Application.Quit
End If
End Sub

(testé sur Excel 2003)
Cordialement
Pascal


"Andrew" a écrit
dans le message de

news:2e0101c4b1c5$d396de10$
Hello... j'ai un problème.

J'ai un document avec 3 feuilles Excel qui contiennent:

- Feuil1: une liste de gens que je DOIS employer
- Feuil2: une feuille bidon que j'utilise pas
- Feuil3: la page d'intro qui permet de choisir entre
l'hypertexte de la feuil1 et de la feuil2

J'aimerais que quand on clique sur le lien qui donne sur
la feuil1, ça sauve automatiquement sur la feuil1. Et
quand on clique sur le lien qui donne sur sur la feuil2
ça


ferme Excel.

J'ai fait ce code pour le faire:

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object _
, ByVal Target As Hyperlink)
If Sh.Name = "Feuil1" Then
ThisWorkbook.Save
End If
If Sh.Name = "Feuil2" Then
Application.Quit
End If
End Sub


Mais ça ne marche pas... ça me ferme Excel quand je
clique


sur n'importe lequel des deux liens... Qu'est-ce que j'ai
fait faux? Est-ce possible de faire ce que je veux?


Deuxième question:

J'aimerais qu'une cellule augmente d'une valeure CHAQUE
année le 1er août (le contenu de la cellule est 7MA51 et
j'aimerais que le 1er août 2005 ça change automatiquement
en 8MA51, puis le 1er août 2006 en 9MA51, etc etc)

Que dois-je faire?

Merci à celui ou celle qui aura le courage de répondre à
tout ça!


.




.




Avatar
papou
Tu veux un exemple ou pas ?
Cordialement
Pascal

a écrit dans le message de
news:0f1801c4b1d1$abd794d0$
J'ai Excel XP (2002)
-----Message d'origine-----
Re
Quelle est ta version d'excel ?
Si tu le souhaites, je te fais parvenir un classeur qui
fonctionne.

Cordialement
Pascal

a écrit dans le
message de

news:036d01c4b1ca$6cd7f920$
Bon je crois que je vais abandonner parce que j'arrive pas
a faire les deux...
Sois il me fait tout quitter, sois il me fait tout
sauver... donc je sais pas mais je vais arreter là!

Et pour la deuxieme partie de ma question? faire augmenter
une cellule d'une valeure le 1er aout c'est possible?

-----Message d'origine-----
Bonjour
Cela doit sans doute faire suite à ta question
d'hier ? ;-


)
Récapitulons :
Sur la feuille Feuil3 se trouvent tes liens hypertexte :
Tu as un lien hypertexte avec le texte "Feuil1" qui
s'affiche dans une

cellule
Tu as un lien hypertexte avec le texte "Feuil2" qui
s'affiche dans une

cellule
Si ce sont effectivement les conditions actuelles, le
code ci-dessous DOIT

fonctionner :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object _

, ByVal Target As Hyperlink)
If Sh.Name = "Feuil3" And Target.TextToDisplay = "Feuil2"
_

Then
ThisWorkbook.Save 'si tu souhaites enregistrer
Application.Quit
End If
End Sub

(testé sur Excel 2003)
Cordialement
Pascal


"Andrew" a écrit
dans le message de

news:2e0101c4b1c5$d396de10$
Hello... j'ai un problème.

J'ai un document avec 3 feuilles Excel qui contiennent:

- Feuil1: une liste de gens que je DOIS employer
- Feuil2: une feuille bidon que j'utilise pas
- Feuil3: la page d'intro qui permet de choisir entre
l'hypertexte de la feuil1 et de la feuil2

J'aimerais que quand on clique sur le lien qui donne sur
la feuil1, ça sauve automatiquement sur la feuil1. Et
quand on clique sur le lien qui donne sur sur la feuil2
ça


ferme Excel.

J'ai fait ce code pour le faire:

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object _
, ByVal Target As Hyperlink)
If Sh.Name = "Feuil1" Then
ThisWorkbook.Save
End If
If Sh.Name = "Feuil2" Then
Application.Quit
End If
End Sub


Mais ça ne marche pas... ça me ferme Excel quand je
clique


sur n'importe lequel des deux liens... Qu'est-ce que j'ai
fait faux? Est-ce possible de faire ce que je veux?


Deuxième question:

J'aimerais qu'une cellule augmente d'une valeure CHAQUE
année le 1er août (le contenu de la cellule est 7MA51 et
j'aimerais que le 1er août 2005 ça change automatiquement
en 8MA51, puis le 1er août 2006 en 9MA51, etc etc)

Que dois-je faire?

Merci à celui ou celle qui aura le courage de répondre à
tout ça!


.




.




Avatar
Ben oui, ca serait sympa
-----Message d'origine-----
Tu veux un exemple ou pas ?
Cordialement
Pascal

a écrit dans le
message de

news:0f1801c4b1d1$abd794d0$
J'ai Excel XP (2002)
-----Message d'origine-----
Re
Quelle est ta version d'excel ?
Si tu le souhaites, je te fais parvenir un classeur qui
fonctionne.

Cordialement
Pascal

a écrit dans le
message de

news:036d01c4b1ca$6cd7f920$
Bon je crois que je vais abandonner parce que j'arrive
pas


a faire les deux...
Sois il me fait tout quitter, sois il me fait tout
sauver... donc je sais pas mais je vais arreter là!

Et pour la deuxieme partie de ma question? faire
augmenter


une cellule d'une valeure le 1er aout c'est possible?

-----Message d'origine-----
Bonjour
Cela doit sans doute faire suite à ta question
d'hier ? ;-


)
Récapitulons :
Sur la feuille Feuil3 se trouvent tes liens
hypertexte :



Tu as un lien hypertexte avec le texte "Feuil1" qui
s'affiche dans une

cellule
Tu as un lien hypertexte avec le texte "Feuil2" qui
s'affiche dans une

cellule
Si ce sont effectivement les conditions actuelles, le
code ci-dessous DOIT

fonctionner :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object _

, ByVal Target As Hyperlink)
If Sh.Name = "Feuil3" And Target.TextToDisplay
= "Feuil2"



_
Then
ThisWorkbook.Save 'si tu souhaites enregistrer
Application.Quit
End If
End Sub

(testé sur Excel 2003)
Cordialement
Pascal


"Andrew" a écrit
dans le message de

news:2e0101c4b1c5$d396de10$
Hello... j'ai un problème.

J'ai un document avec 3 feuilles Excel qui contiennent:

- Feuil1: une liste de gens que je DOIS employer
- Feuil2: une feuille bidon que j'utilise pas
- Feuil3: la page d'intro qui permet de choisir entre
l'hypertexte de la feuil1 et de la feuil2

J'aimerais que quand on clique sur le lien qui donne
sur



la feuil1, ça sauve automatiquement sur la feuil1. Et
quand on clique sur le lien qui donne sur sur la feuil2
ça


ferme Excel.

J'ai fait ce code pour le faire:

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As
Object _
, ByVal Target As Hyperlink)
If Sh.Name = "Feuil1" Then
ThisWorkbook.Save
End If
If Sh.Name = "Feuil2" Then
Application.Quit
End If
End Sub


Mais ça ne marche pas... ça me ferme Excel quand je
clique


sur n'importe lequel des deux liens... Qu'est-ce que
j'ai



fait faux? Est-ce possible de faire ce que je veux?


Deuxième question:

J'aimerais qu'une cellule augmente d'une valeure CHAQUE
année le 1er août (le contenu de la cellule est 7MA51
et



j'aimerais que le 1er août 2005 ça change
automatiquement



en 8MA51, puis le 1er août 2006 en 9MA51, etc etc)

Que dois-je faire?

Merci à celui ou celle qui aura le courage de répondre
à



tout ça!


.




.




.