Bonjour,
1-
Utilise une plage nommée
2-
Private Sub ToggleButton1_Click()
With Rows("23:24")
If .Hidden Then
ToggleButton1.Caption = "Masquer colonnes"
Else
Range("L23").ClearContents
ToggleButton1.Caption = "Afficher colonnes"
End If
.Hidden = Not .Hidden
End With
End Sub
3-
C'est d'abord avant de partir qu'il faut noter :
Sub exemple()
Dim mysh As String, myr As String
mysh = ActiveSheet.Name
myr = Selection.Address
'...
'...tes instructions
'...
Sheets(mysh).Activate
Range(myr).Select
end sub
'Cdlt
'lStephBonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de 3
à
3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une innovation
pour
moi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule L23
Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Bonjour,
1-
Utilise une plage nommée
2-
Private Sub ToggleButton1_Click()
With Rows("23:24")
If .Hidden Then
ToggleButton1.Caption = "Masquer colonnes"
Else
Range("L23").ClearContents
ToggleButton1.Caption = "Afficher colonnes"
End If
.Hidden = Not .Hidden
End With
End Sub
3-
C'est d'abord avant de partir qu'il faut noter :
Sub exemple()
Dim mysh As String, myr As String
mysh = ActiveSheet.Name
myr = Selection.Address
'...
'...tes instructions
'...
Sheets(mysh).Activate
Range(myr).Select
end sub
'Cdlt
'lSteph
Bonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de 3
à
3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une innovation
pour
moi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule L23
Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Bonjour,
1-
Utilise une plage nommée
2-
Private Sub ToggleButton1_Click()
With Rows("23:24")
If .Hidden Then
ToggleButton1.Caption = "Masquer colonnes"
Else
Range("L23").ClearContents
ToggleButton1.Caption = "Afficher colonnes"
End If
.Hidden = Not .Hidden
End With
End Sub
3-
C'est d'abord avant de partir qu'il faut noter :
Sub exemple()
Dim mysh As String, myr As String
mysh = ActiveSheet.Name
myr = Selection.Address
'...
'...tes instructions
'...
Sheets(mysh).Activate
Range(myr).Select
end sub
'Cdlt
'lStephBonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de 3
à
3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une innovation
pour
moi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule L23
Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Re Bonsoir
J'ai crié victoire trop tôt
Le toogle ne supprime pas le contenu de la celule
J'aiesayé vos deux solutions et (à moins que je déconne, ce qui est
possible)
cela ne fonctionne pas
Si l'un de vous a une autre suggestion
Ce que je veux c'est qu'avant de cacher les lignes il me remette la cellule
L23 à zero
Bizarre
Tiens j'ai dis BIZARRE Comme c'est étrange
Rex :-((
"JB" a écrit dans le message de news:
Bonsoir,
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Else
[L23].ClearContents
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End If
End Sub
Sub essai()
m_s = ActiveSheet.Name
m_c = ActiveCell.Address
....
....
Sheets(m_s).Select
Range(m_c).Select
End Sub
Cordialement JB
On 8 avr, 23:03, "Rex" wrote:Bonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de 3 à
3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une innovation
pourmoi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule L23
Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Re Bonsoir
J'ai crié victoire trop tôt
Le toogle ne supprime pas le contenu de la celule
J'aiesayé vos deux solutions et (à moins que je déconne, ce qui est
possible)
cela ne fonctionne pas
Si l'un de vous a une autre suggestion
Ce que je veux c'est qu'avant de cacher les lignes il me remette la cellule
L23 à zero
Bizarre
Tiens j'ai dis BIZARRE Comme c'est étrange
Rex :-((
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1176068311.996699.302280@w1g2000hsg.googlegroups.com...
Bonsoir,
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Else
[L23].ClearContents
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End If
End Sub
Sub essai()
m_s = ActiveSheet.Name
m_c = ActiveCell.Address
....
....
Sheets(m_s).Select
Range(m_c).Select
End Sub
Cordialement JB
On 8 avr, 23:03, "Rex" <rthompspa...@skynet.be> wrote:
Bonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de 3 à
3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une innovation
pour
moi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule L23
Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Re Bonsoir
J'ai crié victoire trop tôt
Le toogle ne supprime pas le contenu de la celule
J'aiesayé vos deux solutions et (à moins que je déconne, ce qui est
possible)
cela ne fonctionne pas
Si l'un de vous a une autre suggestion
Ce que je veux c'est qu'avant de cacher les lignes il me remette la cellule
L23 à zero
Bizarre
Tiens j'ai dis BIZARRE Comme c'est étrange
Rex :-((
"JB" a écrit dans le message de news:
Bonsoir,
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Else
[L23].ClearContents
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End If
End Sub
Sub essai()
m_s = ActiveSheet.Name
m_c = ActiveCell.Address
....
....
Sheets(m_s).Select
Range(m_c).Select
End Sub
Cordialement JB
On 8 avr, 23:03, "Rex" wrote:Bonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de 3 à
3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une innovation
pourmoi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule L23
Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Re-,
Pas de raison que, quelque soit l'instruction proposée, celle-ci ne
fonctionne pas...:-
Peut-être, que dans ta procédure, tu supprimes une ou quelques lignes
précédentes, ainsi, la cellule [L23] est-elle finalement en [k23]?Re Bonsoir
J'ai crié victoire trop tôt
Le toogle ne supprime pas le contenu de la celule
J'aiesayé vos deux solutions et (à moins que je déconne, ce qui est
possible)
cela ne fonctionne pas
Si l'un de vous a une autre suggestion
Ce que je veux c'est qu'avant de cacher les lignes il me remette la
cellule
L23 à zero
Bizarre
Tiens j'ai dis BIZARRE Comme c'est étrange
Rex :-((
"JB" a écrit dans le message de news:
Bonsoir,
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Else
[L23].ClearContents
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End If
End Sub
Sub essai()
m_s = ActiveSheet.Name
m_c = ActiveCell.Address
....
....
Sheets(m_s).Select
Range(m_c).Select
End Sub
Cordialement JB
On 8 avr, 23:03, "Rex" wrote:Bonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de 3
à
3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une innovation
pourmoi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule
L23
Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est
parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Re-,
Pas de raison que, quelque soit l'instruction proposée, celle-ci ne
fonctionne pas...:-
Peut-être, que dans ta procédure, tu supprimes une ou quelques lignes
précédentes, ainsi, la cellule [L23] est-elle finalement en [k23]?
Re Bonsoir
J'ai crié victoire trop tôt
Le toogle ne supprime pas le contenu de la celule
J'aiesayé vos deux solutions et (à moins que je déconne, ce qui est
possible)
cela ne fonctionne pas
Si l'un de vous a une autre suggestion
Ce que je veux c'est qu'avant de cacher les lignes il me remette la
cellule
L23 à zero
Bizarre
Tiens j'ai dis BIZARRE Comme c'est étrange
Rex :-((
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1176068311.996699.302280@w1g2000hsg.googlegroups.com...
Bonsoir,
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Else
[L23].ClearContents
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End If
End Sub
Sub essai()
m_s = ActiveSheet.Name
m_c = ActiveCell.Address
....
....
Sheets(m_s).Select
Range(m_c).Select
End Sub
Cordialement JB
On 8 avr, 23:03, "Rex" <rthompspa...@skynet.be> wrote:
Bonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de 3
à
3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une innovation
pour
moi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule
L23
Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est
parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Re-,
Pas de raison que, quelque soit l'instruction proposée, celle-ci ne
fonctionne pas...:-
Peut-être, que dans ta procédure, tu supprimes une ou quelques lignes
précédentes, ainsi, la cellule [L23] est-elle finalement en [k23]?Re Bonsoir
J'ai crié victoire trop tôt
Le toogle ne supprime pas le contenu de la celule
J'aiesayé vos deux solutions et (à moins que je déconne, ce qui est
possible)
cela ne fonctionne pas
Si l'un de vous a une autre suggestion
Ce que je veux c'est qu'avant de cacher les lignes il me remette la
cellule
L23 à zero
Bizarre
Tiens j'ai dis BIZARRE Comme c'est étrange
Rex :-((
"JB" a écrit dans le message de news:
Bonsoir,
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Else
[L23].ClearContents
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End If
End Sub
Sub essai()
m_s = ActiveSheet.Name
m_c = ActiveCell.Address
....
....
Sheets(m_s).Select
Range(m_c).Select
End Sub
Cordialement JB
On 8 avr, 23:03, "Rex" wrote:Bonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de 3
à
3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une innovation
pourmoi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule
L23
Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est
parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Bonsoir et merci
A mon avis je dois avoir un sérieux bug quelque part
Tu es le troisième à te pencher sur cette suppression de cellule
Et cela ne fonctionne pas
En deux mots
J'ai un total en F22
En L23 je mets le pourcent de remise éventuelle
En F23 j'ai le montant de la remise
En F24 j'ai le montant remise déduite
Puis j'ajoute TVA transport etc
Et en F29 j'ai le total à payer
Et celui reste le même que les lignes soient cachées ou pas
Et ça, c'est pas ce que je veux
Je veux que si je cache ces lignes le montant soit calculé SANS remise
A bientôt
Et Joyeuse Pâques
Rex de moins en moins :-))))))))
Et de plus en plus :-((
"LSteph" a écrit dans le message de news:
#Bonjour,
1-
Utilise une plage nommée
2-
Private Sub ToggleButton1_Click()
With Rows("23:24")
If .Hidden Then
ToggleButton1.Caption = "Masquer colonnes"
Else
Range("L23").ClearContents
ToggleButton1.Caption = "Afficher colonnes"
End If
.Hidden = Not .Hidden
End With
End Sub
3-
C'est d'abord avant de partir qu'il faut noter :
Sub exemple()
Dim mysh As String, myr As String
mysh = ActiveSheet.Name
myr = Selection.Address
'...
'...tes instructions
'...
Sheets(mysh).Activate
Range(myr).Select
end sub
'Cdlt
'lStephBonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de 3
à3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une innovation
pourmoi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule L23
Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Bonsoir et merci
A mon avis je dois avoir un sérieux bug quelque part
Tu es le troisième à te pencher sur cette suppression de cellule
Et cela ne fonctionne pas
En deux mots
J'ai un total en F22
En L23 je mets le pourcent de remise éventuelle
En F23 j'ai le montant de la remise
En F24 j'ai le montant remise déduite
Puis j'ajoute TVA transport etc
Et en F29 j'ai le total à payer
Et celui reste le même que les lignes soient cachées ou pas
Et ça, c'est pas ce que je veux
Je veux que si je cache ces lignes le montant soit calculé SANS remise
A bientôt
Et Joyeuse Pâques
Rex de moins en moins :-))))))))
Et de plus en plus :-((
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
#Dj5WiieHHA.1960@TK2MSFTNGP04.phx.gbl...
Bonjour,
1-
Utilise une plage nommée
2-
Private Sub ToggleButton1_Click()
With Rows("23:24")
If .Hidden Then
ToggleButton1.Caption = "Masquer colonnes"
Else
Range("L23").ClearContents
ToggleButton1.Caption = "Afficher colonnes"
End If
.Hidden = Not .Hidden
End With
End Sub
3-
C'est d'abord avant de partir qu'il faut noter :
Sub exemple()
Dim mysh As String, myr As String
mysh = ActiveSheet.Name
myr = Selection.Address
'...
'...tes instructions
'...
Sheets(mysh).Activate
Range(myr).Select
end sub
'Cdlt
'lSteph
Bonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de 3
à
3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une innovation
pour
moi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule L23
Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Bonsoir et merci
A mon avis je dois avoir un sérieux bug quelque part
Tu es le troisième à te pencher sur cette suppression de cellule
Et cela ne fonctionne pas
En deux mots
J'ai un total en F22
En L23 je mets le pourcent de remise éventuelle
En F23 j'ai le montant de la remise
En F24 j'ai le montant remise déduite
Puis j'ajoute TVA transport etc
Et en F29 j'ai le total à payer
Et celui reste le même que les lignes soient cachées ou pas
Et ça, c'est pas ce que je veux
Je veux que si je cache ces lignes le montant soit calculé SANS remise
A bientôt
Et Joyeuse Pâques
Rex de moins en moins :-))))))))
Et de plus en plus :-((
"LSteph" a écrit dans le message de news:
#Bonjour,
1-
Utilise une plage nommée
2-
Private Sub ToggleButton1_Click()
With Rows("23:24")
If .Hidden Then
ToggleButton1.Caption = "Masquer colonnes"
Else
Range("L23").ClearContents
ToggleButton1.Caption = "Afficher colonnes"
End If
.Hidden = Not .Hidden
End With
End Sub
3-
C'est d'abord avant de partir qu'il faut noter :
Sub exemple()
Dim mysh As String, myr As String
mysh = ActiveSheet.Name
myr = Selection.Address
'...
'...tes instructions
'...
Sheets(mysh).Activate
Range(myr).Select
end sub
'Cdlt
'lStephBonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de 3
à3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une innovation
pourmoi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule L23
Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Je crois que je vais retourner à mon vieux sytème de deux boutons
Ben non :-((((((
Je ne sasi pas si problème viens du fait que j'utilise un Toggle
Je clique sur le même bouton pour cacher ou faire apparaître ces lignes
Et que je mette le supprimer en début au milieu ou à la fin
cela ne fonctionne pas
Je crois que je vais retourner à mon vieux sytème de deux boutons
Un pour cacher et un pour montrer
Bonne nuit et encore merci
Rex
"cousinhub" a écrit dans le message de news:
#Re-,
Pas de raison que, quelque soit l'instruction proposée, celle-ci ne
fonctionne pas...:-
Peut-être, que dans ta procédure, tu supprimes une ou quelques lignes
précédentes, ainsi, la cellule [L23] est-elle finalement en [k23]?Re Bonsoir
J'ai crié victoire trop tôt
Le toogle ne supprime pas le contenu de la celule
J'aiesayé vos deux solutions et (à moins que je déconne, ce qui est
possible)
cela ne fonctionne pas
Si l'un de vous a une autre suggestion
Ce que je veux c'est qu'avant de cacher les lignes il me remette la
celluleL23 à zero
Bizarre
Tiens j'ai dis BIZARRE Comme c'est étrange
Rex :-((
"JB" a écrit dans le message de news:
Bonsoir,
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Else
[L23].ClearContents
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End If
End Sub
Sub essai()
m_s = ActiveSheet.Name
m_c = ActiveCell.Address
....
....
Sheets(m_s).Select
Range(m_c).Select
End Sub
Cordialement JB
On 8 avr, 23:03, "Rex" wrote:Bonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de 3
à3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une innovation
pourmoi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule
L23Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est
parti?Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Je crois que je vais retourner à mon vieux sytème de deux boutons
Ben non :-((((((
Je ne sasi pas si problème viens du fait que j'utilise un Toggle
Je clique sur le même bouton pour cacher ou faire apparaître ces lignes
Et que je mette le supprimer en début au milieu ou à la fin
cela ne fonctionne pas
Je crois que je vais retourner à mon vieux sytème de deux boutons
Un pour cacher et un pour montrer
Bonne nuit et encore merci
Rex
"cousinhub" <pmcsnhb_nospam@aol.com> a écrit dans le message de news:
#9DTcwieHHA.5044@TK2MSFTNGP05.phx.gbl...
Re-,
Pas de raison que, quelque soit l'instruction proposée, celle-ci ne
fonctionne pas...:-
Peut-être, que dans ta procédure, tu supprimes une ou quelques lignes
précédentes, ainsi, la cellule [L23] est-elle finalement en [k23]?
Re Bonsoir
J'ai crié victoire trop tôt
Le toogle ne supprime pas le contenu de la celule
J'aiesayé vos deux solutions et (à moins que je déconne, ce qui est
possible)
cela ne fonctionne pas
Si l'un de vous a une autre suggestion
Ce que je veux c'est qu'avant de cacher les lignes il me remette la
cellule
L23 à zero
Bizarre
Tiens j'ai dis BIZARRE Comme c'est étrange
Rex :-((
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1176068311.996699.302280@w1g2000hsg.googlegroups.com...
Bonsoir,
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Else
[L23].ClearContents
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End If
End Sub
Sub essai()
m_s = ActiveSheet.Name
m_c = ActiveCell.Address
....
....
Sheets(m_s).Select
Range(m_c).Select
End Sub
Cordialement JB
On 8 avr, 23:03, "Rex" <rthompspa...@skynet.be> wrote:
Bonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de 3
à
3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une innovation
pour
moi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule
L23
Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est
parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Je crois que je vais retourner à mon vieux sytème de deux boutons
Ben non :-((((((
Je ne sasi pas si problème viens du fait que j'utilise un Toggle
Je clique sur le même bouton pour cacher ou faire apparaître ces lignes
Et que je mette le supprimer en début au milieu ou à la fin
cela ne fonctionne pas
Je crois que je vais retourner à mon vieux sytème de deux boutons
Un pour cacher et un pour montrer
Bonne nuit et encore merci
Rex
"cousinhub" a écrit dans le message de news:
#Re-,
Pas de raison que, quelque soit l'instruction proposée, celle-ci ne
fonctionne pas...:-
Peut-être, que dans ta procédure, tu supprimes une ou quelques lignes
précédentes, ainsi, la cellule [L23] est-elle finalement en [k23]?Re Bonsoir
J'ai crié victoire trop tôt
Le toogle ne supprime pas le contenu de la celule
J'aiesayé vos deux solutions et (à moins que je déconne, ce qui est
possible)
cela ne fonctionne pas
Si l'un de vous a une autre suggestion
Ce que je veux c'est qu'avant de cacher les lignes il me remette la
celluleL23 à zero
Bizarre
Tiens j'ai dis BIZARRE Comme c'est étrange
Rex :-((
"JB" a écrit dans le message de news:
Bonsoir,
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Else
[L23].ClearContents
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End If
End Sub
Sub essai()
m_s = ActiveSheet.Name
m_c = ActiveCell.Address
....
....
Sheets(m_s).Select
Range(m_c).Select
End Sub
Cordialement JB
On 8 avr, 23:03, "Rex" wrote:Bonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de 3
à3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une innovation
pourmoi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule
L23Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est
parti?Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Je crois que je vais retourner à mon vieux sytème de deux boutons
Non tu n'as d'ailleurs même pas besoin d'un tuggle
un seul commandbutton fait aussi bien l'affaire pour basculer
de .hidden à not .hidden
si hidden est False Niot Hidden est true
et vice versa.
la disparition de L23 est définitive si tu demandes clearcontents.
Il conviendrait plutôt de mettre ta formule de ristourne pour qd les
lignes réapparaissent.
Allez cette fois bonne nuit pour de bon.
lStephBen non :-((((((
Je ne sasi pas si problème viens du fait que j'utilise un Toggle
Je clique sur le même bouton pour cacher ou faire apparaître ces lignes
Et que je mette le supprimer en début au milieu ou à la fin
cela ne fonctionne pas
Je crois que je vais retourner à mon vieux sytème de deux boutons
Un pour cacher et un pour montrer
Bonne nuit et encore merci
Rex
"cousinhub" a écrit dans le message de news:
#Re-,
Pas de raison que, quelque soit l'instruction proposée, celle-ci ne
fonctionne pas...:-
Peut-être, que dans ta procédure, tu supprimes une ou quelques lignes
précédentes, ainsi, la cellule [L23] est-elle finalement en [k23]?Re Bonsoir
J'ai crié victoire trop tôt
Le toogle ne supprime pas le contenu de la celule
J'aiesayé vos deux solutions et (à moins que je déconne, ce qui est
possible)
cela ne fonctionne pas
Si l'un de vous a une autre suggestion
Ce que je veux c'est qu'avant de cacher les lignes il me remette la
celluleL23 à zero
Bizarre
Tiens j'ai dis BIZARRE Comme c'est étrange
Rex :-((
"JB" a écrit dans le message de news:
Bonsoir,
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Else
[L23].ClearContents
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End If
End Sub
Sub essai()
m_s = ActiveSheet.Name
m_c = ActiveCell.Address
....
....
Sheets(m_s).Select
Range(m_c).Select
End Sub
Cordialement JB
On 8 avr, 23:03, "Rex" wrote:Bonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et
pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de
3
à3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une
innovation
pourmoi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule
L23Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est
parti?Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Je crois que je vais retourner à mon vieux sytème de deux boutons
Non tu n'as d'ailleurs même pas besoin d'un tuggle
un seul commandbutton fait aussi bien l'affaire pour basculer
de .hidden à not .hidden
si hidden est False Niot Hidden est true
et vice versa.
la disparition de L23 est définitive si tu demandes clearcontents.
Il conviendrait plutôt de mettre ta formule de ristourne pour qd les
lignes réapparaissent.
Allez cette fois bonne nuit pour de bon.
lSteph
Ben non :-((((((
Je ne sasi pas si problème viens du fait que j'utilise un Toggle
Je clique sur le même bouton pour cacher ou faire apparaître ces lignes
Et que je mette le supprimer en début au milieu ou à la fin
cela ne fonctionne pas
Je crois que je vais retourner à mon vieux sytème de deux boutons
Un pour cacher et un pour montrer
Bonne nuit et encore merci
Rex
"cousinhub" <pmcsnhb_nospam@aol.com> a écrit dans le message de news:
#9DTcwieHHA.5044@TK2MSFTNGP05.phx.gbl...
Re-,
Pas de raison que, quelque soit l'instruction proposée, celle-ci ne
fonctionne pas...:-
Peut-être, que dans ta procédure, tu supprimes une ou quelques lignes
précédentes, ainsi, la cellule [L23] est-elle finalement en [k23]?
Re Bonsoir
J'ai crié victoire trop tôt
Le toogle ne supprime pas le contenu de la celule
J'aiesayé vos deux solutions et (à moins que je déconne, ce qui est
possible)
cela ne fonctionne pas
Si l'un de vous a une autre suggestion
Ce que je veux c'est qu'avant de cacher les lignes il me remette la
cellule
L23 à zero
Bizarre
Tiens j'ai dis BIZARRE Comme c'est étrange
Rex :-((
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1176068311.996699.302280@w1g2000hsg.googlegroups.com...
Bonsoir,
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Else
[L23].ClearContents
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End If
End Sub
Sub essai()
m_s = ActiveSheet.Name
m_c = ActiveCell.Address
....
....
Sheets(m_s).Select
Range(m_c).Select
End Sub
Cordialement JB
On 8 avr, 23:03, "Rex" <rthompspa...@skynet.be> wrote:
Bonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et
pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de
3
à
3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une
innovation
pour
moi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule
L23
Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est
parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Je crois que je vais retourner à mon vieux sytème de deux boutons
Non tu n'as d'ailleurs même pas besoin d'un tuggle
un seul commandbutton fait aussi bien l'affaire pour basculer
de .hidden à not .hidden
si hidden est False Niot Hidden est true
et vice versa.
la disparition de L23 est définitive si tu demandes clearcontents.
Il conviendrait plutôt de mettre ta formule de ristourne pour qd les
lignes réapparaissent.
Allez cette fois bonne nuit pour de bon.
lStephBen non :-((((((
Je ne sasi pas si problème viens du fait que j'utilise un Toggle
Je clique sur le même bouton pour cacher ou faire apparaître ces lignes
Et que je mette le supprimer en début au milieu ou à la fin
cela ne fonctionne pas
Je crois que je vais retourner à mon vieux sytème de deux boutons
Un pour cacher et un pour montrer
Bonne nuit et encore merci
Rex
"cousinhub" a écrit dans le message de news:
#Re-,
Pas de raison que, quelque soit l'instruction proposée, celle-ci ne
fonctionne pas...:-
Peut-être, que dans ta procédure, tu supprimes une ou quelques lignes
précédentes, ainsi, la cellule [L23] est-elle finalement en [k23]?Re Bonsoir
J'ai crié victoire trop tôt
Le toogle ne supprime pas le contenu de la celule
J'aiesayé vos deux solutions et (à moins que je déconne, ce qui est
possible)
cela ne fonctionne pas
Si l'un de vous a une autre suggestion
Ce que je veux c'est qu'avant de cacher les lignes il me remette la
celluleL23 à zero
Bizarre
Tiens j'ai dis BIZARRE Comme c'est étrange
Rex :-((
"JB" a écrit dans le message de news:
Bonsoir,
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Else
[L23].ClearContents
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End If
End Sub
Sub essai()
m_s = ActiveSheet.Name
m_c = ActiveCell.Address
....
....
Sheets(m_s).Select
Range(m_c).Select
End Sub
Cordialement JB
On 8 avr, 23:03, "Rex" wrote:Bonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et
pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de
3
à3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une
innovation
pourmoi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule
L23Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est
parti?Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Oui j'ai vu!
Le temps qu'on formule un réponse et quelqu'un répond en même temps.
pour le togglebutton la syntaxe que j'ai proposée c'est du détail ,
chacun code selon son style, j'aime bien déclarer les variables mais
pour ton souci la réponse de JB va tout aussi bien.
Le bug vient probablement d'une mauvaise compréhension de ta question
tu as demandé clearcontents !
Une fois que c'est effacé cela ne va pas revenir!
Par suite d'un premier masquage L23 demeure donc effacée!
Tu peux aussi prévoir dans l'autre branche conditionnelle d'y glisser
une formule correspondant à ta ristourne.
Joyeuses Pâques à toi itou...
Moi Dodo!
@demain
lStephBonsoir et merci
A mon avis je dois avoir un sérieux bug quelque part
Tu es le troisième à te pencher sur cette suppression de cellule
Et cela ne fonctionne pas
En deux mots
J'ai un total en F22
En L23 je mets le pourcent de remise éventuelle
En F23 j'ai le montant de la remise
En F24 j'ai le montant remise déduite
Puis j'ajoute TVA transport etc
Et en F29 j'ai le total à payer
Et celui reste le même que les lignes soient cachées ou pas
Et ça, c'est pas ce que je veux
Je veux que si je cache ces lignes le montant soit calculé SANS remise
A bientôt
Et Joyeuse Pâques
Rex de moins en moins :-))))))))
Et de plus en plus :-((
"LSteph" a écrit dans le message de news:
#Bonjour,
1-
Utilise une plage nommée
2-
Private Sub ToggleButton1_Click()
With Rows("23:24")
If .Hidden Then
ToggleButton1.Caption = "Masquer colonnes"
Else
Range("L23").ClearContents
ToggleButton1.Caption = "Afficher colonnes"
End If
.Hidden = Not .Hidden
End With
End Sub
3-
C'est d'abord avant de partir qu'il faut noter :
Sub exemple()
Dim mysh As String, myr As String
mysh = ActiveSheet.Name
myr = Selection.Address
'...
'...tes instructions
'...
Sheets(mysh).Activate
Range(myr).Select
end sub
'Cdlt
'lStephBonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de
3
à3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une innovation
pourmoi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule
L23
Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est
parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Oui j'ai vu!
Le temps qu'on formule un réponse et quelqu'un répond en même temps.
pour le togglebutton la syntaxe que j'ai proposée c'est du détail ,
chacun code selon son style, j'aime bien déclarer les variables mais
pour ton souci la réponse de JB va tout aussi bien.
Le bug vient probablement d'une mauvaise compréhension de ta question
tu as demandé clearcontents !
Une fois que c'est effacé cela ne va pas revenir!
Par suite d'un premier masquage L23 demeure donc effacée!
Tu peux aussi prévoir dans l'autre branche conditionnelle d'y glisser
une formule correspondant à ta ristourne.
Joyeuses Pâques à toi itou...
Moi Dodo!
@demain
lSteph
Bonsoir et merci
A mon avis je dois avoir un sérieux bug quelque part
Tu es le troisième à te pencher sur cette suppression de cellule
Et cela ne fonctionne pas
En deux mots
J'ai un total en F22
En L23 je mets le pourcent de remise éventuelle
En F23 j'ai le montant de la remise
En F24 j'ai le montant remise déduite
Puis j'ajoute TVA transport etc
Et en F29 j'ai le total à payer
Et celui reste le même que les lignes soient cachées ou pas
Et ça, c'est pas ce que je veux
Je veux que si je cache ces lignes le montant soit calculé SANS remise
A bientôt
Et Joyeuse Pâques
Rex de moins en moins :-))))))))
Et de plus en plus :-((
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
#Dj5WiieHHA.1960@TK2MSFTNGP04.phx.gbl...
Bonjour,
1-
Utilise une plage nommée
2-
Private Sub ToggleButton1_Click()
With Rows("23:24")
If .Hidden Then
ToggleButton1.Caption = "Masquer colonnes"
Else
Range("L23").ClearContents
ToggleButton1.Caption = "Afficher colonnes"
End If
.Hidden = Not .Hidden
End With
End Sub
3-
C'est d'abord avant de partir qu'il faut noter :
Sub exemple()
Dim mysh As String, myr As String
mysh = ActiveSheet.Name
myr = Selection.Address
'...
'...tes instructions
'...
Sheets(mysh).Activate
Range(myr).Select
end sub
'Cdlt
'lSteph
Bonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de
3
à
3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une innovation
pour
moi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule
L23
Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est
parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Oui j'ai vu!
Le temps qu'on formule un réponse et quelqu'un répond en même temps.
pour le togglebutton la syntaxe que j'ai proposée c'est du détail ,
chacun code selon son style, j'aime bien déclarer les variables mais
pour ton souci la réponse de JB va tout aussi bien.
Le bug vient probablement d'une mauvaise compréhension de ta question
tu as demandé clearcontents !
Une fois que c'est effacé cela ne va pas revenir!
Par suite d'un premier masquage L23 demeure donc effacée!
Tu peux aussi prévoir dans l'autre branche conditionnelle d'y glisser
une formule correspondant à ta ristourne.
Joyeuses Pâques à toi itou...
Moi Dodo!
@demain
lStephBonsoir et merci
A mon avis je dois avoir un sérieux bug quelque part
Tu es le troisième à te pencher sur cette suppression de cellule
Et cela ne fonctionne pas
En deux mots
J'ai un total en F22
En L23 je mets le pourcent de remise éventuelle
En F23 j'ai le montant de la remise
En F24 j'ai le montant remise déduite
Puis j'ajoute TVA transport etc
Et en F29 j'ai le total à payer
Et celui reste le même que les lignes soient cachées ou pas
Et ça, c'est pas ce que je veux
Je veux que si je cache ces lignes le montant soit calculé SANS remise
A bientôt
Et Joyeuse Pâques
Rex de moins en moins :-))))))))
Et de plus en plus :-((
"LSteph" a écrit dans le message de news:
#Bonjour,
1-
Utilise une plage nommée
2-
Private Sub ToggleButton1_Click()
With Rows("23:24")
If .Hidden Then
ToggleButton1.Caption = "Masquer colonnes"
Else
Range("L23").ClearContents
ToggleButton1.Caption = "Afficher colonnes"
End If
.Hidden = Not .Hidden
End With
End Sub
3-
C'est d'abord avant de partir qu'il faut noter :
Sub exemple()
Dim mysh As String, myr As String
mysh = ActiveSheet.Name
myr = Selection.Address
'...
'...tes instructions
'...
Sheets(mysh).Activate
Range(myr).Select
end sub
'Cdlt
'lStephBonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de
3
à3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une innovation
pourmoi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule
L23
Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est
parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Bonsoir
Je poste ceci et je vais au lit
Si tu me réponds tu n'auras donc plus de réaction cette nuit
Je vais essayer d'être claire (Claire c'est une fille, clair c'est plus net)
Donc je vais essayer d'être clair
Il faut que quand je cache les lignes 23 et 24
les autres cellules de ma feuille ne tiennent plus compte des chiffres dans
la cellules L23
Qu'elles soient supprimés, remisent à zéro cela m'est égale
MAIS elles ne doivent plus intervenir dans mes calculs
Et si j'ai besoin de remise pour un autre client, je la réinscrit dans L23
De toutes façons grâce à mon patron, il n'y a pas deux clients qui ont la
même remise
A bientôt
Rex
"LSteph" a écrit dans le message de news:Oui j'ai vu!
Le temps qu'on formule un réponse et quelqu'un répond en même temps.
pour le togglebutton la syntaxe que j'ai proposée c'est du détail ,
chacun code selon son style, j'aime bien déclarer les variables mais
pour ton souci la réponse de JB va tout aussi bien.
Le bug vient probablement d'une mauvaise compréhension de ta question
tu as demandé clearcontents !
Une fois que c'est effacé cela ne va pas revenir!
Par suite d'un premier masquage L23 demeure donc effacée!
Tu peux aussi prévoir dans l'autre branche conditionnelle d'y glisser
une formule correspondant à ta ristourne.
Joyeuses Pâques à toi itou...
Moi Dodo!
@demain
lStephBonsoir et merci
A mon avis je dois avoir un sérieux bug quelque part
Tu es le troisième à te pencher sur cette suppression de cellule
Et cela ne fonctionne pas
En deux mots
J'ai un total en F22
En L23 je mets le pourcent de remise éventuelle
En F23 j'ai le montant de la remise
En F24 j'ai le montant remise déduite
Puis j'ajoute TVA transport etc
Et en F29 j'ai le total à payer
Et celui reste le même que les lignes soient cachées ou pas
Et ça, c'est pas ce que je veux
Je veux que si je cache ces lignes le montant soit calculé SANS remise
A bientôt
Et Joyeuse Pâques
Rex de moins en moins :-))))))))
Et de plus en plus :-((
"LSteph" a écrit dans le message de news:
#Bonjour,
1-
Utilise une plage nommée
2-
Private Sub ToggleButton1_Click()
With Rows("23:24")
If .Hidden Then
ToggleButton1.Caption = "Masquer colonnes"
Else
Range("L23").ClearContents
ToggleButton1.Caption = "Afficher colonnes"
End If
.Hidden = Not .Hidden
End With
End Sub
3-
C'est d'abord avant de partir qu'il faut noter :
Sub exemple()
Dim mysh As String, myr As String
mysh = ActiveSheet.Name
myr = Selection.Address
'...
'...tes instructions
'...
Sheets(mysh).Activate
Range(myr).Select
end sub
'Cdlt
'lStephBonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de
3à3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une innovation
pourmoi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule
L23Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est
parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Bonsoir
Je poste ceci et je vais au lit
Si tu me réponds tu n'auras donc plus de réaction cette nuit
Je vais essayer d'être claire (Claire c'est une fille, clair c'est plus net)
Donc je vais essayer d'être clair
Il faut que quand je cache les lignes 23 et 24
les autres cellules de ma feuille ne tiennent plus compte des chiffres dans
la cellules L23
Qu'elles soient supprimés, remisent à zéro cela m'est égale
MAIS elles ne doivent plus intervenir dans mes calculs
Et si j'ai besoin de remise pour un autre client, je la réinscrit dans L23
De toutes façons grâce à mon patron, il n'y a pas deux clients qui ont la
même remise
A bientôt
Rex
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
egQIm7ieHHA.4772@TK2MSFTNGP05.phx.gbl...
Oui j'ai vu!
Le temps qu'on formule un réponse et quelqu'un répond en même temps.
pour le togglebutton la syntaxe que j'ai proposée c'est du détail ,
chacun code selon son style, j'aime bien déclarer les variables mais
pour ton souci la réponse de JB va tout aussi bien.
Le bug vient probablement d'une mauvaise compréhension de ta question
tu as demandé clearcontents !
Une fois que c'est effacé cela ne va pas revenir!
Par suite d'un premier masquage L23 demeure donc effacée!
Tu peux aussi prévoir dans l'autre branche conditionnelle d'y glisser
une formule correspondant à ta ristourne.
Joyeuses Pâques à toi itou...
Moi Dodo!
@demain
lSteph
Bonsoir et merci
A mon avis je dois avoir un sérieux bug quelque part
Tu es le troisième à te pencher sur cette suppression de cellule
Et cela ne fonctionne pas
En deux mots
J'ai un total en F22
En L23 je mets le pourcent de remise éventuelle
En F23 j'ai le montant de la remise
En F24 j'ai le montant remise déduite
Puis j'ajoute TVA transport etc
Et en F29 j'ai le total à payer
Et celui reste le même que les lignes soient cachées ou pas
Et ça, c'est pas ce que je veux
Je veux que si je cache ces lignes le montant soit calculé SANS remise
A bientôt
Et Joyeuse Pâques
Rex de moins en moins :-))))))))
Et de plus en plus :-((
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
#Dj5WiieHHA.1960@TK2MSFTNGP04.phx.gbl...
Bonjour,
1-
Utilise une plage nommée
2-
Private Sub ToggleButton1_Click()
With Rows("23:24")
If .Hidden Then
ToggleButton1.Caption = "Masquer colonnes"
Else
Range("L23").ClearContents
ToggleButton1.Caption = "Afficher colonnes"
End If
.Hidden = Not .Hidden
End With
End Sub
3-
C'est d'abord avant de partir qu'il faut noter :
Sub exemple()
Dim mysh As String, myr As String
mysh = ActiveSheet.Name
myr = Selection.Address
'...
'...tes instructions
'...
Sheets(mysh).Activate
Range(myr).Select
end sub
'Cdlt
'lSteph
Bonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de
3
à
3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une innovation
pour
moi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule
L23
Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est
parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
Bonsoir
Je poste ceci et je vais au lit
Si tu me réponds tu n'auras donc plus de réaction cette nuit
Je vais essayer d'être claire (Claire c'est une fille, clair c'est plus net)
Donc je vais essayer d'être clair
Il faut que quand je cache les lignes 23 et 24
les autres cellules de ma feuille ne tiennent plus compte des chiffres dans
la cellules L23
Qu'elles soient supprimés, remisent à zéro cela m'est égale
MAIS elles ne doivent plus intervenir dans mes calculs
Et si j'ai besoin de remise pour un autre client, je la réinscrit dans L23
De toutes façons grâce à mon patron, il n'y a pas deux clients qui ont la
même remise
A bientôt
Rex
"LSteph" a écrit dans le message de news:Oui j'ai vu!
Le temps qu'on formule un réponse et quelqu'un répond en même temps.
pour le togglebutton la syntaxe que j'ai proposée c'est du détail ,
chacun code selon son style, j'aime bien déclarer les variables mais
pour ton souci la réponse de JB va tout aussi bien.
Le bug vient probablement d'une mauvaise compréhension de ta question
tu as demandé clearcontents !
Une fois que c'est effacé cela ne va pas revenir!
Par suite d'un premier masquage L23 demeure donc effacée!
Tu peux aussi prévoir dans l'autre branche conditionnelle d'y glisser
une formule correspondant à ta ristourne.
Joyeuses Pâques à toi itou...
Moi Dodo!
@demain
lStephBonsoir et merci
A mon avis je dois avoir un sérieux bug quelque part
Tu es le troisième à te pencher sur cette suppression de cellule
Et cela ne fonctionne pas
En deux mots
J'ai un total en F22
En L23 je mets le pourcent de remise éventuelle
En F23 j'ai le montant de la remise
En F24 j'ai le montant remise déduite
Puis j'ajoute TVA transport etc
Et en F29 j'ai le total à payer
Et celui reste le même que les lignes soient cachées ou pas
Et ça, c'est pas ce que je veux
Je veux que si je cache ces lignes le montant soit calculé SANS remise
A bientôt
Et Joyeuse Pâques
Rex de moins en moins :-))))))))
Et de plus en plus :-((
"LSteph" a écrit dans le message de news:
#Bonjour,
1-
Utilise une plage nommée
2-
Private Sub ToggleButton1_Click()
With Rows("23:24")
If .Hidden Then
ToggleButton1.Caption = "Masquer colonnes"
Else
Range("L23").ClearContents
ToggleButton1.Caption = "Afficher colonnes"
End If
.Hidden = Not .Hidden
End With
End Sub
3-
C'est d'abord avant de partir qu'il faut noter :
Sub exemple()
Dim mysh As String, myr As String
mysh = ActiveSheet.Name
myr = Selection.Address
'...
'...tes instructions
'...
Sheets(mysh).Activate
Range(myr).Select
end sub
'Cdlt
'lStephBonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de
3à3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une innovation
pourmoi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule
L23Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est
parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
tes données .
Bonjour,
En ce cas tout ce qui t'a été proposé à ce titre efface bien la cellule.
Sinon, c'est peut-être que finalement ta cellule L23 n'intervient pas
dans le calcul , vérifie conmme suggérais Cous'Hub où sont réellement
tes données .
Bon courage.
lStephBonsoir
Je poste ceci et je vais au lit
Si tu me réponds tu n'auras donc plus de réaction cette nuit
Je vais essayer d'être claire (Claire c'est une fille, clair c'est
plus net)
Donc je vais essayer d'être clair
Il faut que quand je cache les lignes 23 et 24
les autres cellules de ma feuille ne tiennent plus compte des chiffres
dans
la cellules L23
Qu'elles soient supprimés, remisent à zéro cela m'est égale
MAIS elles ne doivent plus intervenir dans mes calculs
Et si j'ai besoin de remise pour un autre client, je la réinscrit dans
L23
De toutes façons grâce à mon patron, il n'y a pas deux clients qui ont la
même remise
A bientôt
Rex
"LSteph" a écrit dans le message de news:Oui j'ai vu!
Le temps qu'on formule un réponse et quelqu'un répond en même temps.
pour le togglebutton la syntaxe que j'ai proposée c'est du détail ,
chacun code selon son style, j'aime bien déclarer les variables mais
pour ton souci la réponse de JB va tout aussi bien.
Le bug vient probablement d'une mauvaise compréhension de ta question
tu as demandé clearcontents !
Une fois que c'est effacé cela ne va pas revenir!
Par suite d'un premier masquage L23 demeure donc effacée!
Tu peux aussi prévoir dans l'autre branche conditionnelle d'y glisser
une formule correspondant à ta ristourne.
Joyeuses Pâques à toi itou...
Moi Dodo!
@demain
lStephBonsoir et merci
A mon avis je dois avoir un sérieux bug quelque part
Tu es le troisième à te pencher sur cette suppression de cellule
Et cela ne fonctionne pas
En deux mots
J'ai un total en F22
En L23 je mets le pourcent de remise éventuelle
En F23 j'ai le montant de la remise
En F24 j'ai le montant remise déduite
Puis j'ajoute TVA transport etc
Et en F29 j'ai le total à payer
Et celui reste le même que les lignes soient cachées ou pas
Et ça, c'est pas ce que je veux
Je veux que si je cache ces lignes le montant soit calculé SANS remise
A bientôt
Et Joyeuse Pâques
Rex de moins en moins :-))))))))
Et de plus en plus :-((
"LSteph" a écrit dans le message de news:
#Bonjour,
1-
Utilise une plage nommée
2-
Private Sub ToggleButton1_Click()
With Rows("23:24")
If .Hidden Then
ToggleButton1.Caption = "Masquer colonnes"
Else
Range("L23").ClearContents
ToggleButton1.Caption = "Afficher colonnes"
End If
.Hidden = Not .Hidden
End With
End Sub
3-
C'est d'abord avant de partir qu'il faut noter :
Sub exemple()
Dim mysh As String, myr As String
mysh = ActiveSheet.Name
myr = Selection.Address
'...
'...tes instructions
'...
Sheets(mysh).Activate
Range(myr).Select
end sub
'Cdlt
'lStephBonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et
pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de
3à3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une
innovation
pourmoi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule
L23Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est
parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
tes données .
Bonjour,
En ce cas tout ce qui t'a été proposé à ce titre efface bien la cellule.
Sinon, c'est peut-être que finalement ta cellule L23 n'intervient pas
dans le calcul , vérifie conmme suggérais Cous'Hub où sont réellement
tes données .
Bon courage.
lSteph
Bonsoir
Je poste ceci et je vais au lit
Si tu me réponds tu n'auras donc plus de réaction cette nuit
Je vais essayer d'être claire (Claire c'est une fille, clair c'est
plus net)
Donc je vais essayer d'être clair
Il faut que quand je cache les lignes 23 et 24
les autres cellules de ma feuille ne tiennent plus compte des chiffres
dans
la cellules L23
Qu'elles soient supprimés, remisent à zéro cela m'est égale
MAIS elles ne doivent plus intervenir dans mes calculs
Et si j'ai besoin de remise pour un autre client, je la réinscrit dans
L23
De toutes façons grâce à mon patron, il n'y a pas deux clients qui ont la
même remise
A bientôt
Rex
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
egQIm7ieHHA.4772@TK2MSFTNGP05.phx.gbl...
Oui j'ai vu!
Le temps qu'on formule un réponse et quelqu'un répond en même temps.
pour le togglebutton la syntaxe que j'ai proposée c'est du détail ,
chacun code selon son style, j'aime bien déclarer les variables mais
pour ton souci la réponse de JB va tout aussi bien.
Le bug vient probablement d'une mauvaise compréhension de ta question
tu as demandé clearcontents !
Une fois que c'est effacé cela ne va pas revenir!
Par suite d'un premier masquage L23 demeure donc effacée!
Tu peux aussi prévoir dans l'autre branche conditionnelle d'y glisser
une formule correspondant à ta ristourne.
Joyeuses Pâques à toi itou...
Moi Dodo!
@demain
lSteph
Bonsoir et merci
A mon avis je dois avoir un sérieux bug quelque part
Tu es le troisième à te pencher sur cette suppression de cellule
Et cela ne fonctionne pas
En deux mots
J'ai un total en F22
En L23 je mets le pourcent de remise éventuelle
En F23 j'ai le montant de la remise
En F24 j'ai le montant remise déduite
Puis j'ajoute TVA transport etc
Et en F29 j'ai le total à payer
Et celui reste le même que les lignes soient cachées ou pas
Et ça, c'est pas ce que je veux
Je veux que si je cache ces lignes le montant soit calculé SANS remise
A bientôt
Et Joyeuse Pâques
Rex de moins en moins :-))))))))
Et de plus en plus :-((
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
#Dj5WiieHHA.1960@TK2MSFTNGP04.phx.gbl...
Bonjour,
1-
Utilise une plage nommée
2-
Private Sub ToggleButton1_Click()
With Rows("23:24")
If .Hidden Then
ToggleButton1.Caption = "Masquer colonnes"
Else
Range("L23").ClearContents
ToggleButton1.Caption = "Afficher colonnes"
End If
.Hidden = Not .Hidden
End With
End Sub
3-
C'est d'abord avant de partir qu'il faut noter :
Sub exemple()
Dim mysh As String, myr As String
mysh = ActiveSheet.Name
myr = Selection.Address
'...
'...tes instructions
'...
Sheets(mysh).Activate
Range(myr).Select
end sub
'Cdlt
'lSteph
Bonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et
pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de
3
à
3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une
innovation
pour
moi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule
L23
Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est
parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
tes données .
Bonjour,
En ce cas tout ce qui t'a été proposé à ce titre efface bien la cellule.
Sinon, c'est peut-être que finalement ta cellule L23 n'intervient pas
dans le calcul , vérifie conmme suggérais Cous'Hub où sont réellement
tes données .
Bon courage.
lStephBonsoir
Je poste ceci et je vais au lit
Si tu me réponds tu n'auras donc plus de réaction cette nuit
Je vais essayer d'être claire (Claire c'est une fille, clair c'est
plus net)
Donc je vais essayer d'être clair
Il faut que quand je cache les lignes 23 et 24
les autres cellules de ma feuille ne tiennent plus compte des chiffres
dans
la cellules L23
Qu'elles soient supprimés, remisent à zéro cela m'est égale
MAIS elles ne doivent plus intervenir dans mes calculs
Et si j'ai besoin de remise pour un autre client, je la réinscrit dans
L23
De toutes façons grâce à mon patron, il n'y a pas deux clients qui ont la
même remise
A bientôt
Rex
"LSteph" a écrit dans le message de news:Oui j'ai vu!
Le temps qu'on formule un réponse et quelqu'un répond en même temps.
pour le togglebutton la syntaxe que j'ai proposée c'est du détail ,
chacun code selon son style, j'aime bien déclarer les variables mais
pour ton souci la réponse de JB va tout aussi bien.
Le bug vient probablement d'une mauvaise compréhension de ta question
tu as demandé clearcontents !
Une fois que c'est effacé cela ne va pas revenir!
Par suite d'un premier masquage L23 demeure donc effacée!
Tu peux aussi prévoir dans l'autre branche conditionnelle d'y glisser
une formule correspondant à ta ristourne.
Joyeuses Pâques à toi itou...
Moi Dodo!
@demain
lStephBonsoir et merci
A mon avis je dois avoir un sérieux bug quelque part
Tu es le troisième à te pencher sur cette suppression de cellule
Et cela ne fonctionne pas
En deux mots
J'ai un total en F22
En L23 je mets le pourcent de remise éventuelle
En F23 j'ai le montant de la remise
En F24 j'ai le montant remise déduite
Puis j'ajoute TVA transport etc
Et en F29 j'ai le total à payer
Et celui reste le même que les lignes soient cachées ou pas
Et ça, c'est pas ce que je veux
Je veux que si je cache ces lignes le montant soit calculé SANS remise
A bientôt
Et Joyeuse Pâques
Rex de moins en moins :-))))))))
Et de plus en plus :-((
"LSteph" a écrit dans le message de news:
#Bonjour,
1-
Utilise une plage nommée
2-
Private Sub ToggleButton1_Click()
With Rows("23:24")
If .Hidden Then
ToggleButton1.Caption = "Masquer colonnes"
Else
Range("L23").ClearContents
ToggleButton1.Caption = "Afficher colonnes"
End If
.Hidden = Not .Hidden
End With
End Sub
3-
C'est d'abord avant de partir qu'il faut noter :
Sub exemple()
Dim mysh As String, myr As String
mysh = ActiveSheet.Name
myr = Selection.Address
'...
'...tes instructions
'...
Sheets(mysh).Activate
Range(myr).Select
end sub
'Cdlt
'lStephBonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et
pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours de
3à3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une
innovation
pourmoi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la cellule
L23Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est
parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
...vérifie comme le suggérait Cous'Hub où sont réellementtes données .
Bonjour,
En ce cas tout ce qui t'a été proposé à ce titre efface bien la
cellule.
Sinon, c'est peut-être que finalement ta cellule L23 n'intervient pas
dans le calcul , vérifie conmme suggérais Cous'Hub où sont réellement
tes données .
Bon courage.
lStephBonsoir
Je poste ceci et je vais au lit
Si tu me réponds tu n'auras donc plus de réaction cette nuit
Je vais essayer d'être claire (Claire c'est une fille, clair c'est
plus net)
Donc je vais essayer d'être clair
Il faut que quand je cache les lignes 23 et 24
les autres cellules de ma feuille ne tiennent plus compte des chiffres
dans
la cellules L23
Qu'elles soient supprimés, remisent à zéro cela m'est égale
MAIS elles ne doivent plus intervenir dans mes calculs
Et si j'ai besoin de remise pour un autre client, je la réinscrit dans
L23
De toutes façons grâce à mon patron, il n'y a pas deux clients qui ont
la
même remise
A bientôt
Rex
"LSteph" a écrit dans le message de news:Oui j'ai vu!
Le temps qu'on formule un réponse et quelqu'un répond en même temps.
pour le togglebutton la syntaxe que j'ai proposée c'est du détail ,
chacun code selon son style, j'aime bien déclarer les variables mais
pour ton souci la réponse de JB va tout aussi bien.
Le bug vient probablement d'une mauvaise compréhension de ta question
tu as demandé clearcontents !
Une fois que c'est effacé cela ne va pas revenir!
Par suite d'un premier masquage L23 demeure donc effacée!
Tu peux aussi prévoir dans l'autre branche conditionnelle d'y glisser
une formule correspondant à ta ristourne.
Joyeuses Pâques à toi itou...
Moi Dodo!
@demain
lStephBonsoir et merci
A mon avis je dois avoir un sérieux bug quelque part
Tu es le troisième à te pencher sur cette suppression de cellule
Et cela ne fonctionne pas
En deux mots
J'ai un total en F22
En L23 je mets le pourcent de remise éventuelle
En F23 j'ai le montant de la remise
En F24 j'ai le montant remise déduite
Puis j'ajoute TVA transport etc
Et en F29 j'ai le total à payer
Et celui reste le même que les lignes soient cachées ou pas
Et ça, c'est pas ce que je veux
Je veux que si je cache ces lignes le montant soit calculé SANS
remise
A bientôt
Et Joyeuse Pâques
Rex de moins en moins :-))))))))
Et de plus en plus :-((
"LSteph" a écrit dans le message de news:
#Bonjour,
1-
Utilise une plage nommée
2-
Private Sub ToggleButton1_Click()
With Rows("23:24")
If .Hidden Then
ToggleButton1.Caption = "Masquer colonnes"
Else
Range("L23").ClearContents
ToggleButton1.Caption = "Afficher colonnes"
End If
.Hidden = Not .Hidden
End With
End Sub
3-
C'est d'abord avant de partir qu'il faut noter :
Sub exemple()
Dim mysh As String, myr As String
mysh = ActiveSheet.Name
myr = Selection.Address
'...
'...tes instructions
'...
Sheets(mysh).Activate
Range(myr).Select
end sub
'Cdlt
'lStephBonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et
pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours
de
3à3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une
innovation
pourmoi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la
cellule
L23Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est
parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
...vérifie comme le suggérait Cous'Hub où sont réellement
tes données .
Bonjour,
En ce cas tout ce qui t'a été proposé à ce titre efface bien la
cellule.
Sinon, c'est peut-être que finalement ta cellule L23 n'intervient pas
dans le calcul , vérifie conmme suggérais Cous'Hub où sont réellement
tes données .
Bon courage.
lSteph
Bonsoir
Je poste ceci et je vais au lit
Si tu me réponds tu n'auras donc plus de réaction cette nuit
Je vais essayer d'être claire (Claire c'est une fille, clair c'est
plus net)
Donc je vais essayer d'être clair
Il faut que quand je cache les lignes 23 et 24
les autres cellules de ma feuille ne tiennent plus compte des chiffres
dans
la cellules L23
Qu'elles soient supprimés, remisent à zéro cela m'est égale
MAIS elles ne doivent plus intervenir dans mes calculs
Et si j'ai besoin de remise pour un autre client, je la réinscrit dans
L23
De toutes façons grâce à mon patron, il n'y a pas deux clients qui ont
la
même remise
A bientôt
Rex
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
egQIm7ieHHA.4772@TK2MSFTNGP05.phx.gbl...
Oui j'ai vu!
Le temps qu'on formule un réponse et quelqu'un répond en même temps.
pour le togglebutton la syntaxe que j'ai proposée c'est du détail ,
chacun code selon son style, j'aime bien déclarer les variables mais
pour ton souci la réponse de JB va tout aussi bien.
Le bug vient probablement d'une mauvaise compréhension de ta question
tu as demandé clearcontents !
Une fois que c'est effacé cela ne va pas revenir!
Par suite d'un premier masquage L23 demeure donc effacée!
Tu peux aussi prévoir dans l'autre branche conditionnelle d'y glisser
une formule correspondant à ta ristourne.
Joyeuses Pâques à toi itou...
Moi Dodo!
@demain
lSteph
Bonsoir et merci
A mon avis je dois avoir un sérieux bug quelque part
Tu es le troisième à te pencher sur cette suppression de cellule
Et cela ne fonctionne pas
En deux mots
J'ai un total en F22
En L23 je mets le pourcent de remise éventuelle
En F23 j'ai le montant de la remise
En F24 j'ai le montant remise déduite
Puis j'ajoute TVA transport etc
Et en F29 j'ai le total à payer
Et celui reste le même que les lignes soient cachées ou pas
Et ça, c'est pas ce que je veux
Je veux que si je cache ces lignes le montant soit calculé SANS
remise
A bientôt
Et Joyeuse Pâques
Rex de moins en moins :-))))))))
Et de plus en plus :-((
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
#Dj5WiieHHA.1960@TK2MSFTNGP04.phx.gbl...
Bonjour,
1-
Utilise une plage nommée
2-
Private Sub ToggleButton1_Click()
With Rows("23:24")
If .Hidden Then
ToggleButton1.Caption = "Masquer colonnes"
Else
Range("L23").ClearContents
ToggleButton1.Caption = "Afficher colonnes"
End If
.Hidden = Not .Hidden
End With
End Sub
3-
C'est d'abord avant de partir qu'il faut noter :
Sub exemple()
Dim mysh As String, myr As String
mysh = ActiveSheet.Name
myr = Selection.Address
'...
'...tes instructions
'...
Sheets(mysh).Activate
Range(myr).Select
end sub
'Cdlt
'lSteph
Bonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et
pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours
de
3
à
3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une
innovation
pour
moi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la
cellule
L23
Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est
parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille
...vérifie comme le suggérait Cous'Hub où sont réellementtes données .
Bonjour,
En ce cas tout ce qui t'a été proposé à ce titre efface bien la
cellule.
Sinon, c'est peut-être que finalement ta cellule L23 n'intervient pas
dans le calcul , vérifie conmme suggérais Cous'Hub où sont réellement
tes données .
Bon courage.
lStephBonsoir
Je poste ceci et je vais au lit
Si tu me réponds tu n'auras donc plus de réaction cette nuit
Je vais essayer d'être claire (Claire c'est une fille, clair c'est
plus net)
Donc je vais essayer d'être clair
Il faut que quand je cache les lignes 23 et 24
les autres cellules de ma feuille ne tiennent plus compte des chiffres
dans
la cellules L23
Qu'elles soient supprimés, remisent à zéro cela m'est égale
MAIS elles ne doivent plus intervenir dans mes calculs
Et si j'ai besoin de remise pour un autre client, je la réinscrit dans
L23
De toutes façons grâce à mon patron, il n'y a pas deux clients qui ont
la
même remise
A bientôt
Rex
"LSteph" a écrit dans le message de news:Oui j'ai vu!
Le temps qu'on formule un réponse et quelqu'un répond en même temps.
pour le togglebutton la syntaxe que j'ai proposée c'est du détail ,
chacun code selon son style, j'aime bien déclarer les variables mais
pour ton souci la réponse de JB va tout aussi bien.
Le bug vient probablement d'une mauvaise compréhension de ta question
tu as demandé clearcontents !
Une fois que c'est effacé cela ne va pas revenir!
Par suite d'un premier masquage L23 demeure donc effacée!
Tu peux aussi prévoir dans l'autre branche conditionnelle d'y glisser
une formule correspondant à ta ristourne.
Joyeuses Pâques à toi itou...
Moi Dodo!
@demain
lStephBonsoir et merci
A mon avis je dois avoir un sérieux bug quelque part
Tu es le troisième à te pencher sur cette suppression de cellule
Et cela ne fonctionne pas
En deux mots
J'ai un total en F22
En L23 je mets le pourcent de remise éventuelle
En F23 j'ai le montant de la remise
En F24 j'ai le montant remise déduite
Puis j'ajoute TVA transport etc
Et en F29 j'ai le total à payer
Et celui reste le même que les lignes soient cachées ou pas
Et ça, c'est pas ce que je veux
Je veux que si je cache ces lignes le montant soit calculé SANS
remise
A bientôt
Et Joyeuse Pâques
Rex de moins en moins :-))))))))
Et de plus en plus :-((
"LSteph" a écrit dans le message de news:
#Bonjour,
1-
Utilise une plage nommée
2-
Private Sub ToggleButton1_Click()
With Rows("23:24")
If .Hidden Then
ToggleButton1.Caption = "Masquer colonnes"
Else
Range("L23").ClearContents
ToggleButton1.Caption = "Afficher colonnes"
End If
.Hidden = Not .Hidden
End With
End Sub
3-
C'est d'abord avant de partir qu'il faut noter :
Sub exemple()
Dim mysh As String, myr As String
mysh = ActiveSheet.Name
myr = Selection.Address
'...
'...tes instructions
'...
Sheets(mysh).Activate
Range(myr).Select
end sub
'Cdlt
'lStephBonsoir et Joyeuse Pâques
J'ai quelques petis soucis avec des macros et des fonctions
ATTENTION il y a TROIS questions !!!!!
Voici la première
Dans une feuille je fais appelle à la fonction
=INDEX(Offers!$E$3:$E$3000;$A$3)
Et elle fonctionne (c'est le cas de le dire) très bien
MAIS
Si, dans la feuille "Offers" je supprime les lignes 4 - 7
Tous mes index deviennent =INDEX(Offers!$E$8:$E$3005;$A$3)
Avec un 8 à la place du 3
Et pour tant je vais devoir régulièrement supprimer des lignes (et
pas
toutes en séquences)
Y a-t-il moyen de faire en sorte que cette fonction reste toujours
de
3à3000?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Voici la deuxième
J'ai créé un bouton "Toggle" (et j'en suis fière, c'est une
innovation
pourmoi!)
Avec le code suivant
Private Sub ToggleButton1_Click()
If Rows("23:24").Hidden = True Then
Rows("23:24").Hidden = False
ToggleButton1.Caption = "Masquer colonnes"
Exit Sub
End If
Rows("23:24").Hidden = True
ToggleButton1.Caption = "Afficher colonnes"
End Sub
Je voudrais qu'avant de cacher les lignes 23 24 elle vide la
cellule
L23Donc je fais Range("L23").ClearContents
Mais ou dois-je insèrer cette ligne?
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Troisième et dernière pour ce soir
Quelle commande ou fonction peut-on insérer à la fin d'une macro
pour que l'on reviennent sur la feuille et la cellule d'ou on est
parti?
Merci et à bientôt (ou demain)
Rex ;-)))))
Elle fait réference à une autre feuille