Bonjour =E0 tous, je suis un nouveau venu, et je me suis mis=20
au VBA, il y a peu de temps donc d=E9sol=E9 d'avance si mes=20
questions sont trop faciles. en tout cas cela m'aiderait=20
enormement alors merci d'avance pour les bonnes ames=20
charitables.
1) Pourquoi quand je cr=E9e des boutons par une macro je=20
n'arrive pas =E0 nommer mes boutons?
ActiveSheet.OLEObjects.Add
(ClassType:=3D"Forms.CommandButton.1", Link:=3DFalse _
, DisplayAsIcon:=3DFalse, Left:=3D184,=20
Top:=3D14.3382352941176, _
Width:=3D65.0735294117647,=20
Height:=3D23.1617647058824).Select
commandbutton1.caption=3D"toto" ne marche pas, c'est=20
illogique!!!!
2)Alors la aussi je comprends pas !!
j'essaye d'utiliser la mise en forme conditionnelle pas en=20
valeur mais avec une formule =E0 l'interieur d'une boucle
et en fait la mise en forme marche n'est pas dynamique
dans la condition 1: la formule est on a soit vrai ou faux
et la formule que j'ai mise Formula1:=3D"" & Cells(n, k + 1)=20
< 0 n'apparait pas, c'est trop bizarre.
For k =3D 1 To 10
For n =3D 1 To 10
Cells(n, k).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=3DxlExpression, =20
Formula1:=3D"" & Cells(n, k + 1) < 0
Selection.FormatConditions(1).Interior.ColorIndex =3D 15
Selection.FormatConditions.Add Type:=3DxlExpression,=20
Formula1:=3D"" & Cells(n, k + 1) > 0
Selection.FormatConditions(2).Interior.ColorIndex =3D 0
Next n
Next k
3)ActiveSheet.PageSetup.PrintArea =3D "$A$1:$AB$46"
comment fait on pour mettre des variables =E0 la place des=20
lettres?
repondez moi des que vous pouvez
allez bonne journee
C'est peu, mais c'est avec plaisir ! ;o)))) -- Amicales Salutations
"LeSteph" a écrit dans le message de news:412a5045$0$299$
Merci Philippe ,
Faute de répondre au souhait de générer une série de bouton type VB, ceux de Formulaires peuvent effectivement être traités selon leurs propriétés ainsi notre ami Reda peut jouer sur .text au lieu de .caption Je n'en attendais pas moins de ta part car c'est une bonne piste!
Je ne désespère toutefois pas d'acceder au premier objectif!
Merci encore
LeSteph
"Philippe.R" a écrit dans le message de news:%
Bonsoir LeSteph, Une piste peut être avec ceci, qui fonctionne pour un bouton de la BO formulaires :
Sub nom_bouton() ActiveSheet.DrawingObjects("Button 1").Text = "Toto" End Sub
"LeSteph" a écrit dans le message de news:412a3ad0$0$298$
Bonjour Philippe,
Et si en prime à moins qu'ayant parcouru bien souvent ces sites et sans prétention d'en épuiser jamais les intarissables richesses nous ne soyons passé à côté de ce qui était comme le port-salut écrit dessus tu nous trouvais une solution au pb du bouton !
;-D LeSteph
"reda" a écrit dans le message de
news:b4d201c48919$d73774a0$ Bonjour à tous, je suis un nouveau venu, et je me suis mis au VBA, il y a peu de temps donc désolé d'avance si mes questions sont trop faciles. en tout cas cela m'aiderait enormement alors merci d'avance pour les bonnes ames charitables.
1) Pourquoi quand je crée des boutons par une macro je n'arrive pas à nommer mes boutons? ActiveSheet.OLEObjects.Add (ClassType:="Forms.CommandButton.1", Link:úlse _ , DisplayAsIcon:úlse, Left:4, Top:.3382352941176, _ Width:e.0735294117647, Height:#.1617647058824).Select
commandbutton1.caption="toto" ne marche pas, c'est illogique!!!!
2)Alors la aussi je comprends pas !! j'essaye d'utiliser la mise en forme conditionnelle pas en valeur mais avec une formule à l'interieur d'une boucle et en fait la mise en forme marche n'est pas dynamique dans la condition 1: la formule est on a soit vrai ou faux et la formule que j'ai mise Formula1:="" & Cells(n, k + 1) < 0 n'apparait pas, c'est trop bizarre.
For k = 1 To 10 For n = 1 To 10 Cells(n, k).Select Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:="" & Cells(n, k + 1) < 0 Selection.FormatConditions(1).Interior.ColorIndex = 15 Selection.FormatConditions.Add Type:=xlExpression, Formula1:="" & Cells(n, k + 1) > 0 Selection.FormatConditions(2).Interior.ColorIndex = 0 Next n Next k
3)ActiveSheet.PageSetup.PrintArea = "$A$1:$AB$46" comment fait on pour mettre des variables à la place des lettres?
repondez moi des que vous pouvez allez bonne journee
C'est peu, mais c'est avec plaisir !
;o))))
--
Amicales Salutations
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de news:412a5045$0$299$626a14ce@news.free.fr...
Merci Philippe ,
Faute de répondre au souhait de générer
une série de bouton type VB, ceux de Formulaires peuvent
effectivement être traités selon leurs propriétés ainsi notre
ami Reda peut jouer sur .text au lieu de .caption
Je n'en attendais pas moins de ta part car c'est une bonne piste!
Je ne désespère toutefois pas d'acceder au premier objectif!
Merci encore
LeSteph
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de
news:%23taXHQUiEHA.596@TK2MSFTNGP11.phx.gbl...
Bonsoir LeSteph,
Une piste peut être avec ceci, qui fonctionne pour un bouton de la BO
formulaires :
Sub nom_bouton()
ActiveSheet.DrawingObjects("Button 1").Text = "Toto"
End Sub
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:412a3ad0$0$298$626a14ce@news.free.fr...
Bonjour Philippe,
Et si en prime
à moins qu'ayant parcouru bien souvent ces sites
et sans prétention d'en épuiser jamais les intarissables richesses
nous ne soyons passé à côté de ce qui était comme le port-salut
écrit dessus tu nous trouvais une solution au pb du bouton !
;-D
LeSteph
"reda" <anonymous@discussions.microsoft.com> a écrit dans le message
de
news:b4d201c48919$d73774a0$a501280a@phx.gbl...
Bonjour à tous, je suis un nouveau venu, et je me suis mis
au VBA, il y a peu de temps donc désolé d'avance si mes
questions sont trop faciles. en tout cas cela m'aiderait
enormement alors merci d'avance pour les bonnes ames
charitables.
1) Pourquoi quand je crée des boutons par une macro je
n'arrive pas à nommer mes boutons?
ActiveSheet.OLEObjects.Add
(ClassType:="Forms.CommandButton.1", Link:úlse _
, DisplayAsIcon:úlse, Left:4,
Top:.3382352941176, _
Width:e.0735294117647,
Height:#.1617647058824).Select
commandbutton1.caption="toto" ne marche pas, c'est
illogique!!!!
2)Alors la aussi je comprends pas !!
j'essaye d'utiliser la mise en forme conditionnelle pas en
valeur mais avec une formule à l'interieur d'une boucle
et en fait la mise en forme marche n'est pas dynamique
dans la condition 1: la formule est on a soit vrai ou faux
et la formule que j'ai mise Formula1:="" & Cells(n, k + 1)
< 0 n'apparait pas, c'est trop bizarre.
For k = 1 To 10
For n = 1 To 10
Cells(n, k).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="" & Cells(n, k + 1) < 0
Selection.FormatConditions(1).Interior.ColorIndex = 15
Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="" & Cells(n, k + 1) > 0
Selection.FormatConditions(2).Interior.ColorIndex = 0
Next n
Next k
3)ActiveSheet.PageSetup.PrintArea = "$A$1:$AB$46"
comment fait on pour mettre des variables à la place des
lettres?
repondez moi des que vous pouvez
allez bonne journee
C'est peu, mais c'est avec plaisir ! ;o)))) -- Amicales Salutations
"LeSteph" a écrit dans le message de news:412a5045$0$299$
Merci Philippe ,
Faute de répondre au souhait de générer une série de bouton type VB, ceux de Formulaires peuvent effectivement être traités selon leurs propriétés ainsi notre ami Reda peut jouer sur .text au lieu de .caption Je n'en attendais pas moins de ta part car c'est une bonne piste!
Je ne désespère toutefois pas d'acceder au premier objectif!
Merci encore
LeSteph
"Philippe.R" a écrit dans le message de news:%
Bonsoir LeSteph, Une piste peut être avec ceci, qui fonctionne pour un bouton de la BO formulaires :
Sub nom_bouton() ActiveSheet.DrawingObjects("Button 1").Text = "Toto" End Sub
"LeSteph" a écrit dans le message de news:412a3ad0$0$298$
Bonjour Philippe,
Et si en prime à moins qu'ayant parcouru bien souvent ces sites et sans prétention d'en épuiser jamais les intarissables richesses nous ne soyons passé à côté de ce qui était comme le port-salut écrit dessus tu nous trouvais une solution au pb du bouton !
;-D LeSteph
"reda" a écrit dans le message de
news:b4d201c48919$d73774a0$ Bonjour à tous, je suis un nouveau venu, et je me suis mis au VBA, il y a peu de temps donc désolé d'avance si mes questions sont trop faciles. en tout cas cela m'aiderait enormement alors merci d'avance pour les bonnes ames charitables.
1) Pourquoi quand je crée des boutons par une macro je n'arrive pas à nommer mes boutons? ActiveSheet.OLEObjects.Add (ClassType:="Forms.CommandButton.1", Link:úlse _ , DisplayAsIcon:úlse, Left:4, Top:.3382352941176, _ Width:e.0735294117647, Height:#.1617647058824).Select
commandbutton1.caption="toto" ne marche pas, c'est illogique!!!!
2)Alors la aussi je comprends pas !! j'essaye d'utiliser la mise en forme conditionnelle pas en valeur mais avec une formule à l'interieur d'une boucle et en fait la mise en forme marche n'est pas dynamique dans la condition 1: la formule est on a soit vrai ou faux et la formule que j'ai mise Formula1:="" & Cells(n, k + 1) < 0 n'apparait pas, c'est trop bizarre.
For k = 1 To 10 For n = 1 To 10 Cells(n, k).Select Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:="" & Cells(n, k + 1) < 0 Selection.FormatConditions(1).Interior.ColorIndex = 15 Selection.FormatConditions.Add Type:=xlExpression, Formula1:="" & Cells(n, k + 1) > 0 Selection.FormatConditions(2).Interior.ColorIndex = 0 Next n Next k
3)ActiveSheet.PageSetup.PrintArea = "$A$1:$AB$46" comment fait on pour mettre des variables à la place des lettres?
repondez moi des que vous pouvez allez bonne journee
Yann
Salut, Lorsque tu écrit Cells(A,B), il va chercher la valeur contenue par la cellule de la Aième ligne et de la Bième colonne. Hors il te faut quelque chose du style C5 par exemple, donc tu dois transformer ta variable A en "C" et pour ton B, pas de problème...
Ca y est, j'ai trouvé : Passe par le style RxCy
Met Formula1:=R" & n & "C" & k + 1 & " > 0"
Par contre pour PrintArea, ça ne fonctionne pas...
Bye Yann
-----Message d'origine----- Merci de m'avoir repondu mais ca veut dire quoi en reference A1??
-----Message d'origine----- Salut, 1 - je ne sais pas 2 - ...Formula1:="" & Cells(n, k + 1) > 0 n'est pas bon... Cherche quelque chose comme Formula1:=" & Cells (n,
k + 1) > 0" mais avec la traduction de Cels(n,k+1) en référence A1... 3 - Certainement la même idée que le 2...
Bye Yann
-----Message d'origine----- Bonjour à tous, je suis un nouveau venu, et je me suis mis
au VBA, il y a peu de temps donc désolé d'avance si mes
questions sont trop faciles. en tout cas cela m'aiderait
enormement alors merci d'avance pour les bonnes ames charitables.
1) Pourquoi quand je crée des boutons par une macro je n'arrive pas à nommer mes boutons? ActiveSheet.OLEObjects.Add (ClassType:="Forms.CommandButton.1", Link:úlse _ , DisplayAsIcon:úlse, Left:4, Top:.3382352941176, _ Width:e.0735294117647, Height:#.1617647058824).Select
commandbutton1.caption="toto" ne marche pas, c'est illogique!!!!
2)Alors la aussi je comprends pas !! j'essaye d'utiliser la mise en forme conditionnelle pas
en
valeur mais avec une formule à l'interieur d'une boucle et en fait la mise en forme marche n'est pas dynamique dans la condition 1: la formule est on a soit vrai ou faux
et la formule que j'ai mise Formula1:="" & Cells(n, k +
1)
< 0 n'apparait pas, c'est trop bizarre.
For k = 1 To 10 For n = 1 To 10 Cells(n, k).Select Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="" & Cells(n, k + 1) < 0 Selection.FormatConditions(1).Interior.ColorIndex =
3)ActiveSheet.PageSetup.PrintArea = "$A$1:$AB$46" comment fait on pour mettre des variables à la place des
lettres?
repondez moi des que vous pouvez allez bonne journee
.
.
.
Salut,
Lorsque tu écrit Cells(A,B), il va chercher la valeur
contenue par la cellule de la Aième ligne et de la Bième
colonne. Hors il te faut quelque chose du style C5 par
exemple, donc tu dois transformer ta variable A en "C" et
pour ton B, pas de problème...
Ca y est, j'ai trouvé : Passe par le style RxCy
Met Formula1:=R" & n & "C" & k + 1 & " > 0"
Par contre pour PrintArea, ça ne fonctionne pas...
Bye
Yann
-----Message d'origine-----
Merci de m'avoir repondu
mais ca veut dire quoi en reference A1??
-----Message d'origine-----
Salut,
1 - je ne sais pas
2 - ...Formula1:="" & Cells(n, k + 1) > 0 n'est pas
bon... Cherche quelque chose comme Formula1:=" & Cells
(n,
k + 1) > 0" mais avec la traduction de Cels(n,k+1) en
référence A1...
3 - Certainement la même idée que le 2...
Bye
Yann
-----Message d'origine-----
Bonjour à tous, je suis un nouveau venu, et je me suis
mis
au VBA, il y a peu de temps donc désolé d'avance si
mes
questions sont trop faciles. en tout cas cela
m'aiderait
enormement alors merci d'avance pour les bonnes ames
charitables.
1) Pourquoi quand je crée des boutons par une macro je
n'arrive pas à nommer mes boutons?
ActiveSheet.OLEObjects.Add
(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=184,
Top:=14.3382352941176, _
Width:=65.0735294117647,
Height:=23.1617647058824).Select
commandbutton1.caption="toto" ne marche pas, c'est
illogique!!!!
2)Alors la aussi je comprends pas !!
j'essaye d'utiliser la mise en forme conditionnelle
pas
en
valeur mais avec une formule à l'interieur d'une boucle
et en fait la mise en forme marche n'est pas dynamique
dans la condition 1: la formule est on a soit vrai ou
faux
et la formule que j'ai mise Formula1:="" & Cells(n, k
+
1)
< 0 n'apparait pas, c'est trop bizarre.
For k = 1 To 10
For n = 1 To 10
Cells(n, k).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add
Type:=xlExpression,
Formula1:="" & Cells(n, k + 1) < 0
Selection.FormatConditions(1).Interior.ColorIndex
=
Salut, Lorsque tu écrit Cells(A,B), il va chercher la valeur contenue par la cellule de la Aième ligne et de la Bième colonne. Hors il te faut quelque chose du style C5 par exemple, donc tu dois transformer ta variable A en "C" et pour ton B, pas de problème...
Ca y est, j'ai trouvé : Passe par le style RxCy
Met Formula1:=R" & n & "C" & k + 1 & " > 0"
Par contre pour PrintArea, ça ne fonctionne pas...
Bye Yann
-----Message d'origine----- Merci de m'avoir repondu mais ca veut dire quoi en reference A1??
-----Message d'origine----- Salut, 1 - je ne sais pas 2 - ...Formula1:="" & Cells(n, k + 1) > 0 n'est pas bon... Cherche quelque chose comme Formula1:=" & Cells (n,
k + 1) > 0" mais avec la traduction de Cels(n,k+1) en référence A1... 3 - Certainement la même idée que le 2...
Bye Yann
-----Message d'origine----- Bonjour à tous, je suis un nouveau venu, et je me suis mis
au VBA, il y a peu de temps donc désolé d'avance si mes
questions sont trop faciles. en tout cas cela m'aiderait
enormement alors merci d'avance pour les bonnes ames charitables.
1) Pourquoi quand je crée des boutons par une macro je n'arrive pas à nommer mes boutons? ActiveSheet.OLEObjects.Add (ClassType:="Forms.CommandButton.1", Link:úlse _ , DisplayAsIcon:úlse, Left:4, Top:.3382352941176, _ Width:e.0735294117647, Height:#.1617647058824).Select
commandbutton1.caption="toto" ne marche pas, c'est illogique!!!!
2)Alors la aussi je comprends pas !! j'essaye d'utiliser la mise en forme conditionnelle pas
en
valeur mais avec une formule à l'interieur d'une boucle et en fait la mise en forme marche n'est pas dynamique dans la condition 1: la formule est on a soit vrai ou faux
et la formule que j'ai mise Formula1:="" & Cells(n, k +
1)
< 0 n'apparait pas, c'est trop bizarre.
For k = 1 To 10 For n = 1 To 10 Cells(n, k).Select Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="" & Cells(n, k + 1) < 0 Selection.FormatConditions(1).Interior.ColorIndex =
-----Message d'origine----- Salut, Lorsque tu écrit Cells(A,B), il va chercher la valeur contenue par la cellule de la Aième ligne et de la Bième colonne. Hors il te faut quelque chose du style C5 par exemple, donc tu dois transformer ta variable A en "C" et
pour ton B, pas de problème...
Ca y est, j'ai trouvé : Passe par le style RxCy
Met Formula1:=R" & n & "C" & k + 1 & " > 0"
Par contre pour PrintArea, ça ne fonctionne pas...
Bye Yann
-----Message d'origine----- Merci de m'avoir repondu mais ca veut dire quoi en reference A1??
-----Message d'origine----- Salut, 1 - je ne sais pas 2 - ...Formula1:="" & Cells(n, k + 1) > 0 n'est pas bon... Cherche quelque chose comme Formula1:=" & Cells (n,
k + 1) > 0" mais avec la traduction de Cels(n,k+1) en référence A1... 3 - Certainement la même idée que le 2...
Bye Yann
-----Message d'origine----- Bonjour à tous, je suis un nouveau venu, et je me suis
mis
au VBA, il y a peu de temps donc désolé d'avance si mes
questions sont trop faciles. en tout cas cela m'aiderait
enormement alors merci d'avance pour les bonnes ames charitables.
1) Pourquoi quand je crée des boutons par une macro je
n'arrive pas à nommer mes boutons? ActiveSheet.OLEObjects.Add (ClassType:="Forms.CommandButton.1", Link:úlse _ , DisplayAsIcon:úlse, Left:4, Top:.3382352941176, _ Width:e.0735294117647, Height:#.1617647058824).Select
commandbutton1.caption="toto" ne marche pas, c'est illogique!!!!
2)Alors la aussi je comprends pas !! j'essaye d'utiliser la mise en forme conditionnelle pas
en
valeur mais avec une formule à l'interieur d'une boucle
et en fait la mise en forme marche n'est pas dynamique dans la condition 1: la formule est on a soit vrai ou faux
et la formule que j'ai mise Formula1:="" & Cells(n, k +
1)
< 0 n'apparait pas, c'est trop bizarre.
For k = 1 To 10 For n = 1 To 10 Cells(n, k).Select Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="" & Cells(n, k + 1) < 0 Selection.FormatConditions(1).Interior.ColorIndex =
-----Message d'origine-----
Salut,
Lorsque tu écrit Cells(A,B), il va chercher la valeur
contenue par la cellule de la Aième ligne et de la Bième
colonne. Hors il te faut quelque chose du style C5 par
exemple, donc tu dois transformer ta variable A en "C"
et
pour ton B, pas de problème...
Ca y est, j'ai trouvé : Passe par le style RxCy
Met Formula1:=R" & n & "C" & k + 1 & " > 0"
Par contre pour PrintArea, ça ne fonctionne pas...
Bye
Yann
-----Message d'origine-----
Merci de m'avoir repondu
mais ca veut dire quoi en reference A1??
-----Message d'origine-----
Salut,
1 - je ne sais pas
2 - ...Formula1:="" & Cells(n, k + 1) > 0 n'est pas
bon... Cherche quelque chose comme Formula1:=" & Cells
(n,
k + 1) > 0" mais avec la traduction de Cels(n,k+1) en
référence A1...
3 - Certainement la même idée que le 2...
Bye
Yann
-----Message d'origine-----
Bonjour à tous, je suis un nouveau venu, et je me
suis
mis
au VBA, il y a peu de temps donc désolé d'avance si
mes
questions sont trop faciles. en tout cas cela
m'aiderait
enormement alors merci d'avance pour les bonnes ames
charitables.
1) Pourquoi quand je crée des boutons par une macro
je
n'arrive pas à nommer mes boutons?
ActiveSheet.OLEObjects.Add
(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=184,
Top:=14.3382352941176, _
Width:=65.0735294117647,
Height:=23.1617647058824).Select
commandbutton1.caption="toto" ne marche pas, c'est
illogique!!!!
2)Alors la aussi je comprends pas !!
j'essaye d'utiliser la mise en forme conditionnelle
pas
en
valeur mais avec une formule à l'interieur d'une
boucle
et en fait la mise en forme marche n'est pas dynamique
dans la condition 1: la formule est on a soit vrai ou
faux
et la formule que j'ai mise Formula1:="" & Cells(n, k
+
1)
< 0 n'apparait pas, c'est trop bizarre.
For k = 1 To 10
For n = 1 To 10
Cells(n, k).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add
Type:=xlExpression,
Formula1:="" & Cells(n, k + 1) < 0
Selection.FormatConditions(1).Interior.ColorIndex
=
-----Message d'origine----- Salut, Lorsque tu écrit Cells(A,B), il va chercher la valeur contenue par la cellule de la Aième ligne et de la Bième colonne. Hors il te faut quelque chose du style C5 par exemple, donc tu dois transformer ta variable A en "C" et
pour ton B, pas de problème...
Ca y est, j'ai trouvé : Passe par le style RxCy
Met Formula1:=R" & n & "C" & k + 1 & " > 0"
Par contre pour PrintArea, ça ne fonctionne pas...
Bye Yann
-----Message d'origine----- Merci de m'avoir repondu mais ca veut dire quoi en reference A1??
-----Message d'origine----- Salut, 1 - je ne sais pas 2 - ...Formula1:="" & Cells(n, k + 1) > 0 n'est pas bon... Cherche quelque chose comme Formula1:=" & Cells (n,
k + 1) > 0" mais avec la traduction de Cels(n,k+1) en référence A1... 3 - Certainement la même idée que le 2...
Bye Yann
-----Message d'origine----- Bonjour à tous, je suis un nouveau venu, et je me suis
mis
au VBA, il y a peu de temps donc désolé d'avance si mes
questions sont trop faciles. en tout cas cela m'aiderait
enormement alors merci d'avance pour les bonnes ames charitables.
1) Pourquoi quand je crée des boutons par une macro je
n'arrive pas à nommer mes boutons? ActiveSheet.OLEObjects.Add (ClassType:="Forms.CommandButton.1", Link:úlse _ , DisplayAsIcon:úlse, Left:4, Top:.3382352941176, _ Width:e.0735294117647, Height:#.1617647058824).Select
commandbutton1.caption="toto" ne marche pas, c'est illogique!!!!
2)Alors la aussi je comprends pas !! j'essaye d'utiliser la mise en forme conditionnelle pas
en
valeur mais avec une formule à l'interieur d'une boucle
et en fait la mise en forme marche n'est pas dynamique dans la condition 1: la formule est on a soit vrai ou faux
et la formule que j'ai mise Formula1:="" & Cells(n, k +
1)
< 0 n'apparait pas, c'est trop bizarre.
For k = 1 To 10 For n = 1 To 10 Cells(n, k).Select Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="" & Cells(n, k + 1) < 0 Selection.FormatConditions(1).Interior.ColorIndex =
