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 ma private sub ne marche pas...

ma private sub ne marche pas...

8 réponses
Avatar
ed
Bonjour,
Je me permets de reposer ma question d'hier en espérant qu'une ame
charitable pourra me donner un début de réponse.

J'affiche déjà les onglets de mes factures suivant le mois coché par
checkbox en private sub. Tout marche bien.
Je voudrais rajouter une possibilité : Afficher les onglets des factures du
client que j'aurais sélectionné dans une liste déroulante à la Range k15.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Clt As String
Clt = Range("k15")
For facture = 1 To Sheets.Count - 3
nomfac = Format(Left(Sheets(facture).Name, 4))
If nomfac = [L3].Value Then Sheets(facture).Visible = CBool([k15].Value)
Next
End Sub

Ca marche po...

Je précise qu'il identifie bien l'onglet correspondant (le premier qu'il
rencontre parce qu'après ça bugue...)

Deuxième point. Je voudrais que ma sélection par checkbox (mes 12 mois) soit
indépendante de ma sélection des clients. Est-ce possible ?

Un grand merci à tous.
ed
Signaler un problème avec ce contenu

8 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
Daniel
Bonjour.
Si tu as un nom ou un numérode client en K15, je ne comprends pas le sens de
:
CBool([k15].Value)
Sinon indique quelle ligne plante.
Cordialement.
Daniel
"ed" a écrit dans le message de news:

Bonjour,
Je me permets de reposer ma question d'hier en espérant qu'une ame
charitable pourra me donner un début de réponse.

J'affiche déjà les onglets de mes factures suivant le mois coché par
checkbox en private sub. Tout marche bien.
Je voudrais rajouter une possibilité : Afficher les onglets des factures
du
client que j'aurais sélectionné dans une liste déroulante à la Range k15.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Clt As String
Clt = Range("k15")
For facture = 1 To Sheets.Count - 3
nomfac = Format(Left(Sheets(facture).Name, 4))
If nomfac = [L3].Value Then Sheets(facture).Visible = CBool([k15].Value)
Next
End Sub

Ca marche po...

Je précise qu'il identifie bien l'onglet correspondant (le premier qu'il
rencontre parce qu'après ça bugue...)

Deuxième point. Je voudrais que ma sélection par checkbox (mes 12 mois)
soit
indépendante de ma sélection des clients. Est-ce possible ?

Un grand merci à tous.
ed



Avatar
ed
Ce qui se concoit bien s'énonce clairement... Je nage completement !!!

Effectivement, j'aurais du dire = True directement. Cela ne marche pas
davantage.
En fait, ça bugue plus, mais ça ne fait rien. Quand je sélectionne le nom du
client, rien ne se passe.
J'ai essayé de créer un combobox... Impossible de récuperer dans ma liste
déroulante les données de ma Base Clients sur un autre onglet... Bref, ça
marche pas mieux...
Si quelqu'un a une idée pour me sortir de l'impasse, j'accepte volontiers.
Merci encore
ed


Bonjour.
Si tu as un nom ou un numérode client en K15, je ne comprends pas le sens de
:
CBool([k15].Value)
Sinon indique quelle ligne plante.
Cordialement.
Daniel
"ed" a écrit dans le message de news:

Bonjour,
Je me permets de reposer ma question d'hier en espérant qu'une ame
charitable pourra me donner un début de réponse.

J'affiche déjà les onglets de mes factures suivant le mois coché par
checkbox en private sub. Tout marche bien.
Je voudrais rajouter une possibilité : Afficher les onglets des factures
du
client que j'aurais sélectionné dans une liste déroulante à la Range k15.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Clt As String
Clt = Range("k15")
For facture = 1 To Sheets.Count - 3
nomfac = Format(Left(Sheets(facture).Name, 4))
If nomfac = [L3].Value Then Sheets(facture).Visible = CBool([k15].Value)
Next
End Sub

Ca marche po...

Je précise qu'il identifie bien l'onglet correspondant (le premier qu'il
rencontre parce qu'après ça bugue...)

Deuxième point. Je voudrais que ma sélection par checkbox (mes 12 mois)
soit
indépendante de ma sélection des clients. Est-ce possible ?

Un grand merci à tous.
ed








Avatar
Daniel
Peux-tu donner le rôle et la valeur de L3 ?
Daniel
"ed" a écrit dans le message de news:

Ce qui se concoit bien s'énonce clairement... Je nage completement !!!

Effectivement, j'aurais du dire = True directement. Cela ne marche pas
davantage.
En fait, ça bugue plus, mais ça ne fait rien. Quand je sélectionne le nom
du
client, rien ne se passe.
J'ai essayé de créer un combobox... Impossible de récuperer dans ma liste
déroulante les données de ma Base Clients sur un autre onglet... Bref, ça
marche pas mieux...
Si quelqu'un a une idée pour me sortir de l'impasse, j'accepte volontiers.
Merci encore
ed


Bonjour.
Si tu as un nom ou un numérode client en K15, je ne comprends pas le sens
de
:
CBool([k15].Value)
Sinon indique quelle ligne plante.
Cordialement.
Daniel
"ed" a écrit dans le message de news:

Bonjour,
Je me permets de reposer ma question d'hier en espérant qu'une ame
charitable pourra me donner un début de réponse.

J'affiche déjà les onglets de mes factures suivant le mois coché par
checkbox en private sub. Tout marche bien.
Je voudrais rajouter une possibilité : Afficher les onglets des
factures
du
client que j'aurais sélectionné dans une liste déroulante à la Range
k15.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Clt As String
Clt = Range("k15")
For facture = 1 To Sheets.Count - 3
nomfac = Format(Left(Sheets(facture).Name, 4))
If nomfac = [L3].Value Then Sheets(facture).Visible =
CBool([k15].Value)
Next
End Sub

Ca marche po...

Je précise qu'il identifie bien l'onglet correspondant (le premier
qu'il
rencontre parce qu'après ça bugue...)

Deuxième point. Je voudrais que ma sélection par checkbox (mes 12 mois)
soit
indépendante de ma sélection des clients. Est-ce possible ?

Un grand merci à tous.
ed










Avatar
ed
L3 n'est que la récupération du code client. Mes onglets sont composés du
code client+numéro facture.
ed


Peux-tu donner le rôle et la valeur de L3 ?
Daniel
"ed" a écrit dans le message de news:

Ce qui se concoit bien s'énonce clairement... Je nage completement !!!

Effectivement, j'aurais du dire = True directement. Cela ne marche pas
davantage.
En fait, ça bugue plus, mais ça ne fait rien. Quand je sélectionne le nom
du
client, rien ne se passe.
J'ai essayé de créer un combobox... Impossible de récuperer dans ma liste
déroulante les données de ma Base Clients sur un autre onglet... Bref, ça
marche pas mieux...
Si quelqu'un a une idée pour me sortir de l'impasse, j'accepte volontiers.
Merci encore
ed


Bonjour.
Si tu as un nom ou un numérode client en K15, je ne comprends pas le sens
de
:
CBool([k15].Value)
Sinon indique quelle ligne plante.
Cordialement.
Daniel
"ed" a écrit dans le message de news:

Bonjour,
Je me permets de reposer ma question d'hier en espérant qu'une ame
charitable pourra me donner un début de réponse.

J'affiche déjà les onglets de mes factures suivant le mois coché par
checkbox en private sub. Tout marche bien.
Je voudrais rajouter une possibilité : Afficher les onglets des
factures
du
client que j'aurais sélectionné dans une liste déroulante à la Range
k15.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Clt As String
Clt = Range("k15")
For facture = 1 To Sheets.Count - 3
nomfac = Format(Left(Sheets(facture).Name, 4))
If nomfac = [L3].Value Then Sheets(facture).Visible =
CBool([k15].Value)
Next
End Sub

Ca marche po...

Je précise qu'il identifie bien l'onglet correspondant (le premier
qu'il
rencontre parce qu'après ça bugue...)

Deuxième point. Je voudrais que ma sélection par checkbox (mes 12 mois)
soit
indépendante de ma sélection des clients. Est-ce possible ?

Un grand merci à tous.
ed















Avatar
Daniel
Tu cherches à rendre visible une feuille si les 4 caractères de gauche du
nom de la feuille son égaux à L3.
Ce code fonctionne chez moi.
Daniel
"ed" a écrit dans le message de news:

L3 n'est que la récupération du code client. Mes onglets sont composés du
code client+numéro facture.
ed


Peux-tu donner le rôle et la valeur de L3 ?
Daniel
"ed" a écrit dans le message de news:

Ce qui se concoit bien s'énonce clairement... Je nage completement !!!

Effectivement, j'aurais du dire = True directement. Cela ne marche pas
davantage.
En fait, ça bugue plus, mais ça ne fait rien. Quand je sélectionne le
nom
du
client, rien ne se passe.
J'ai essayé de créer un combobox... Impossible de récuperer dans ma
liste
déroulante les données de ma Base Clients sur un autre onglet... Bref,
ça
marche pas mieux...
Si quelqu'un a une idée pour me sortir de l'impasse, j'accepte
volontiers.
Merci encore
ed


Bonjour.
Si tu as un nom ou un numérode client en K15, je ne comprends pas le
sens
de
:
CBool([k15].Value)
Sinon indique quelle ligne plante.
Cordialement.
Daniel
"ed" a écrit dans le message de news:

Bonjour,
Je me permets de reposer ma question d'hier en espérant qu'une ame
charitable pourra me donner un début de réponse.

J'affiche déjà les onglets de mes factures suivant le mois coché par
checkbox en private sub. Tout marche bien.
Je voudrais rajouter une possibilité : Afficher les onglets des
factures
du
client que j'aurais sélectionné dans une liste déroulante à la Range
k15.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Clt As String
Clt = Range("k15")
For facture = 1 To Sheets.Count - 3
nomfac = Format(Left(Sheets(facture).Name, 4))
If nomfac = [L3].Value Then Sheets(facture).Visible >> >> > CBool([k15].Value)
Next
End Sub

Ca marche po...

Je précise qu'il identifie bien l'onglet correspondant (le premier
qu'il
rencontre parce qu'après ça bugue...)

Deuxième point. Je voudrais que ma sélection par checkbox (mes 12
mois)
soit
indépendante de ma sélection des clients. Est-ce possible ?

Un grand merci à tous.
ed

















Avatar
ed
Merci Daniel.
Le pb viendrait peut être du fait que j'ai déjà 12 Private Sub sur la
feuille pour afficher ou masquer les onglets en fonction de leur mois.
Comment puis-je conjuguer les deux hypothèses ?
Est-ce possible ?
Merci encore
ed


Tu cherches à rendre visible une feuille si les 4 caractères de gauche du
nom de la feuille son égaux à L3.
Ce code fonctionne chez moi.
Daniel
"ed" a écrit dans le message de news:

L3 n'est que la récupération du code client. Mes onglets sont composés du
code client+numéro facture.
ed


Peux-tu donner le rôle et la valeur de L3 ?
Daniel
"ed" a écrit dans le message de news:

Ce qui se concoit bien s'énonce clairement... Je nage completement !!!

Effectivement, j'aurais du dire = True directement. Cela ne marche pas
davantage.
En fait, ça bugue plus, mais ça ne fait rien. Quand je sélectionne le
nom
du
client, rien ne se passe.
J'ai essayé de créer un combobox... Impossible de récuperer dans ma
liste
déroulante les données de ma Base Clients sur un autre onglet... Bref,
ça
marche pas mieux...
Si quelqu'un a une idée pour me sortir de l'impasse, j'accepte
volontiers.
Merci encore
ed


Bonjour.
Si tu as un nom ou un numérode client en K15, je ne comprends pas le
sens
de
:
CBool([k15].Value)
Sinon indique quelle ligne plante.
Cordialement.
Daniel
"ed" a écrit dans le message de news:

Bonjour,
Je me permets de reposer ma question d'hier en espérant qu'une ame
charitable pourra me donner un début de réponse.

J'affiche déjà les onglets de mes factures suivant le mois coché par
checkbox en private sub. Tout marche bien.
Je voudrais rajouter une possibilité : Afficher les onglets des
factures
du
client que j'aurais sélectionné dans une liste déroulante à la Range
k15.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Clt As String
Clt = Range("k15")
For facture = 1 To Sheets.Count - 3
nomfac = Format(Left(Sheets(facture).Name, 4))
If nomfac = [L3].Value Then Sheets(facture).Visible > >> >> > CBool([k15].Value)
Next
End Sub

Ca marche po...

Je précise qu'il identifie bien l'onglet correspondant (le premier
qu'il
rencontre parce qu'après ça bugue...)

Deuxième point. Je voudrais que ma sélection par checkbox (mes 12
mois)
soit
indépendante de ma sélection des clients. Est-ce possible ?

Un grand merci à tous.
ed






















Avatar
Daniel
Bonjour.
C'est difficile à dire sans en savoir plus sur ton classeur.
Daniel
"ed" a écrit dans le message de news:

Merci Daniel.
Le pb viendrait peut être du fait que j'ai déjà 12 Private Sub sur la
feuille pour afficher ou masquer les onglets en fonction de leur mois.
Comment puis-je conjuguer les deux hypothèses ?
Est-ce possible ?
Merci encore
ed


Tu cherches à rendre visible une feuille si les 4 caractères de gauche du
nom de la feuille son égaux à L3.
Ce code fonctionne chez moi.
Daniel
"ed" a écrit dans le message de news:

L3 n'est que la récupération du code client. Mes onglets sont composés
du
code client+numéro facture.
ed


Peux-tu donner le rôle et la valeur de L3 ?
Daniel
"ed" a écrit dans le message de news:

Ce qui se concoit bien s'énonce clairement... Je nage completement
!!!

Effectivement, j'aurais du dire = True directement. Cela ne marche
pas
davantage.
En fait, ça bugue plus, mais ça ne fait rien. Quand je sélectionne
le
nom
du
client, rien ne se passe.
J'ai essayé de créer un combobox... Impossible de récuperer dans ma
liste
déroulante les données de ma Base Clients sur un autre onglet...
Bref,
ça
marche pas mieux...
Si quelqu'un a une idée pour me sortir de l'impasse, j'accepte
volontiers.
Merci encore
ed


Bonjour.
Si tu as un nom ou un numérode client en K15, je ne comprends pas
le
sens
de
:
CBool([k15].Value)
Sinon indique quelle ligne plante.
Cordialement.
Daniel
"ed" a écrit dans le message de
news:

Bonjour,
Je me permets de reposer ma question d'hier en espérant qu'une
ame
charitable pourra me donner un début de réponse.

J'affiche déjà les onglets de mes factures suivant le mois coché
par
checkbox en private sub. Tout marche bien.
Je voudrais rajouter une possibilité : Afficher les onglets des
factures
du
client que j'aurais sélectionné dans une liste déroulante à la
Range
k15.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Clt As String
Clt = Range("k15")
For facture = 1 To Sheets.Count - 3
nomfac = Format(Left(Sheets(facture).Name, 4))
If nomfac = [L3].Value Then Sheets(facture).Visible >> >> >> > CBool([k15].Value)
Next
End Sub

Ca marche po...

Je précise qu'il identifie bien l'onglet correspondant (le
premier
qu'il
rencontre parce qu'après ça bugue...)

Deuxième point. Je voudrais que ma sélection par checkbox (mes 12
mois)
soit
indépendante de ma sélection des clients. Est-ce possible ?

Un grand merci à tous.
ed
























Avatar
JLuc
*Bonjour ed*,
Il faut certainement imbriquer le code des Sub.
Donne nous tous les codes et nous pourront surement t'aider ;-)

Merci Daniel.
Le pb viendrait peut être du fait que j'ai déjà 12 Private Sub sur la
feuille pour afficher ou masquer les onglets en fonction de leur mois.
Comment puis-je conjuguer les deux hypothèses ?
Est-ce possible ?
Merci encore
ed


Tu cherches à rendre visible une feuille si les 4 caractères de gauche du
nom de la feuille son égaux à L3.
Ce code fonctionne chez moi.
Daniel
"ed" a écrit dans le message de news:

L3 n'est que la récupération du code client. Mes onglets sont composés du
code client+numéro facture.
ed


Peux-tu donner le rôle et la valeur de L3 ?
Daniel
"ed" a écrit dans le message de news:

Ce qui se concoit bien s'énonce clairement... Je nage completement !!!

Effectivement, j'aurais du dire = True directement. Cela ne marche pas
davantage.
En fait, ça bugue plus, mais ça ne fait rien. Quand je sélectionne le
nom
du
client, rien ne se passe.
J'ai essayé de créer un combobox... Impossible de récuperer dans ma
liste
déroulante les données de ma Base Clients sur un autre onglet... Bref,
ça
marche pas mieux...
Si quelqu'un a une idée pour me sortir de l'impasse, j'accepte
volontiers.
Merci encore
ed


Bonjour.
Si tu as un nom ou un numérode client en K15, je ne comprends pas le
sens
de

CBool([k15].Value)

Sinon indique quelle ligne plante.
Cordialement.
Daniel
"ed" a écrit dans le message de news:

Bonjour,
Je me permets de reposer ma question d'hier en espérant qu'une ame
charitable pourra me donner un début de réponse.

J'affiche déjà les onglets de mes factures suivant le mois coché par
checkbox en private sub. Tout marche bien.
Je voudrais rajouter une possibilité : Afficher les onglets des
factures
du
client que j'aurais sélectionné dans une liste déroulante à la Range
k15.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Clt As String
Clt = Range("k15")
For facture = 1 To Sheets.Count - 3
nomfac = Format(Left(Sheets(facture).Name, 4))
If nomfac = [L3].Value Then Sheets(facture).Visible >>>>>>> CBool([k15].Value)
Next
End Sub

Ca marche po...

Je précise qu'il identifie bien l'onglet correspondant (le premier
qu'il
rencontre parce qu'après ça bugue...)

Deuxième point. Je voudrais que ma sélection par checkbox (mes 12
mois)
soit
indépendante de ma sélection des clients. Est-ce possible ?

Un grand merci à tous.
ed


















--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O