-----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 =
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
.
-----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 =
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
.
-----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 =
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
.
-----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
misau 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
envaleur 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
fauxet 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 =
15Selection.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
.
.
-----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 =
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
.
.
-----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
misau 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
envaleur 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
fauxet 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 =
15Selection.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
.
.
-----Message d'origine-----
Bonsoir ,
si c'est ce que je pense, j'ai déjà vu le m^me bug
Scénario test:
1 Tu te sers de l'enregistreur de macro et tu places 1
bouton depuis le
barre outil VB
2 Tu arrête la macro
3 Tu constate que d'un clic droit les propriétés du
CommandButton sont
disponibles
4 Tu vas dans le code et mets ce bout de macro dans une
boucle pour générer
plusieurs boutons
à des emplacements différents ou autre.
5 Tu l'exécute
6 Tu reviens dans la feuille et quand tu clic du droit
Pas de propriétés,
les boutons générés sont des Boutons type Barred'outil
Formulaire de Feuille
et non un bouton tel qu'issu des controls de la BO deVB.
Et effectivement pour .Caption ou autre cela plante.
Il doit y avoir un moyen en prédéterminant la source
d'incorporation de
l'objet,
sûrement du côté des classes d'objets ou un Declare
mais j'ai mis en
attente
la recherche de la solution. Si quelqu'un sait je suis
preneur aussi.
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
.
-----Message d'origine-----
Bonsoir ,
si c'est ce que je pense, j'ai déjà vu le m^me bug
Scénario test:
1 Tu te sers de l'enregistreur de macro et tu places 1
bouton depuis le
barre outil VB
2 Tu arrête la macro
3 Tu constate que d'un clic droit les propriétés du
CommandButton sont
disponibles
4 Tu vas dans le code et mets ce bout de macro dans une
boucle pour générer
plusieurs boutons
à des emplacements différents ou autre.
5 Tu l'exécute
6 Tu reviens dans la feuille et quand tu clic du droit
Pas de propriétés,
les boutons générés sont des Boutons type Barred'outil
Formulaire de Feuille
et non un bouton tel qu'issu des controls de la BO deVB.
Et effectivement pour .Caption ou autre cela plante.
Il doit y avoir un moyen en prédéterminant la source
d'incorporation de
l'objet,
sûrement du côté des classes d'objets ou un Declare
mais j'ai mis en
attente
la recherche de la solution. Si quelqu'un sait je suis
preneur aussi.
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:=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 = 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
.
-----Message d'origine-----
Bonsoir ,
si c'est ce que je pense, j'ai déjà vu le m^me bug
Scénario test:
1 Tu te sers de l'enregistreur de macro et tu places 1
bouton depuis le
barre outil VB
2 Tu arrête la macro
3 Tu constate que d'un clic droit les propriétés du
CommandButton sont
disponibles
4 Tu vas dans le code et mets ce bout de macro dans une
boucle pour générer
plusieurs boutons
à des emplacements différents ou autre.
5 Tu l'exécute
6 Tu reviens dans la feuille et quand tu clic du droit
Pas de propriétés,
les boutons générés sont des Boutons type Barred'outil
Formulaire de Feuille
et non un bouton tel qu'issu des controls de la BO deVB.
Et effectivement pour .Caption ou autre cela plante.
Il doit y avoir un moyen en prédéterminant la source
d'incorporation de
l'objet,
sûrement du côté des classes d'objets ou un Declare
mais j'ai mis en
attente
la recherche de la solution. Si quelqu'un sait je suis
preneur aussi.
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
.
-----Message d'origine-----
Bonjour Reda
commandbutton1.caption="toto" ne marche pas, c'est
illogique!!!!
Placé dans sub Userform initialize() cela fontionne chez
moi.
Formula1:="" & Cells(n, k + 1) < 0
Je pense que cela doit être:Formula1:="" & Cells(n, k
+ 1) &"< 0"
repondez moi des que vous pouvez
allez bonne journee
.
-----Message d'origine-----
Bonjour Reda
commandbutton1.caption="toto" ne marche pas, c'est
illogique!!!!
Placé dans sub Userform initialize() cela fontionne chez
moi.
Formula1:="" & Cells(n, k + 1) < 0
Je pense que cela doit être:Formula1:="" & Cells(n, k
+ 1) &"< 0"
repondez moi des que vous pouvez
allez bonne journee
.
-----Message d'origine-----
Bonjour Reda
commandbutton1.caption="toto" ne marche pas, c'est
illogique!!!!
Placé dans sub Userform initialize() cela fontionne chez
moi.
Formula1:="" & Cells(n, k + 1) < 0
Je pense que cela doit être:Formula1:="" & Cells(n, k
+ 1) &"< 0"
repondez moi des que vous pouvez
allez bonne journee
.
Bonsoir Reda,
En complément des réponses déjà fournies par mes petits camarades, voici
une copie du célèbre Message de
Bienvenue rédigé par Monique (qui est bien trop occupée ces derniers temps
par ailleurs et qui nous
manque) ; il présente une belle collection de références qui devraient
t'aider à progresser.
"=============================début de
copie================================="
bienvenue sur mpfe :-)
Sur les sites proposés dans ce message d'accueil, tu découvriras des
cours (avec ou sans VBA), des classeurs d'exemples à télécharger, des
macros, des trucs et astuces...
Pour connaître les habitudes de mpfe (et les erreurs à éviter, comme les
fichiers joints...), tu peux lire ces messages publiés régulièrement
ici, avec l'un de ces intitulés
- FAQ MPFE http://dj.joss.free.fr/netiquet.htm (nétiquette, conseils...)
- [Charte] du forum MPFE
et consulter cette page
http://www.excelabo.net/mpfe/connexion.php
(connexion,conseils...), à consulter absolument si tu suis le forum
depuis un site web (la solution la moins efficace et la moins
confortable) ou avec le serveur de Wanadoo (très peu performant quant au
délai d'affichage et au nombre de messages publiés).
Le serveur à utiliser : news.microsoft.com - ou cliquer directement sur
news:microsoft.public.fr.excel
Pour les débutants, voilà 5 bons trucs pour apprendre vite :
- utiliser souvent l'enregistreur de macro et analyser le code obtenu
- utiliser la touche F1 pour appeler l'aide (à propos du mot-clef, en
VBA, sur lequel se trouve le curseur)
- tester et essayer de comprendre des réponses faites à d'autres
- consulter souvent les sites renseignés
- ne jamais hésiter à poser des questions sur le forum
Voici la liste des sites dédiés à Excel, réalisés par des mpfie(ne)s et
que nous devons tous avoir dans nos favoris.
Débutant ou utilisateur confirmé, tu y trouveras de quoi apprendre,
progresser et résoudre bien des problèmes.
(la date d'une mise à jour est signalée par ** ** )
http://dj.joss.free.fr/faq.htm ** 27/07/04 **
la FAQ du forum, mise en oeuvre par Daniel et à lire absolument par tout
nouveau sur mpfe : la bonne manière de participer au forum (charte,
souriettes, abréviations...), liens, bibliographie, les réponses aux
questions le plus souvent posées, des trucs et astuces, un moteur de
recherche interne et externe (Yahoo), une page débutants
http://www.excelabo.net/xl/debuter.php ** 23/08/04 **
le site humoro-ludique de Misange : une importante rubrique "Trucs et
astuces", des classeurs à télécharger, un glossaire, une page débutants,
des jeux en VBA... et un méta-moteur de recherche sur 6 sites de cette
liste...
mais aussi tout ce qui fait "l'esprit mpfe", les perles, les gifs...
et,sur http://fotoflo.free.fr/ les photos des soupers/dîners de mpfe
http://longre.free.fr/ ** 19/03/03 **
le site de Laurent, notre Grand Chef à Quatre Plumes : de très nombreux
liens commentés, les macros pointues de Laurent... (techniques de
programmation, calculs de dates et d'heures, Api...)
http://jacxl.free.fr/mpfe/ ** 01/03/03 **
le site de : les graphiques, la bourse, le Web, un cours VBA, un
moteur de recherche à la page Aide... et le trombinoscope des
mpfien(ne)s
http://ericrenaud.free.fr/index.html ** 18/06/03 **
le site d'Eric : particulièrement destiné aux débutants (UserForm...)
http://frederic.sigonneau.free.fr** 15/08/04**
le site de Frédéric : gestions de temps, VBA pour Excel... une mine d'or
de macros
http://xlbysteph.free.fr/aideinformatique/web.htm ** 27/12/03 **
le site de Stéphane : cours VBA, Excel 4 (ou 5) et Excel 97/2000...
http://perso.club-internet.fr/bdafonse
le site de Bruno : formules, classeurs à télécharger...
http://cherbe.free.fr/ ** 26/02/04 **
le site de Christian : initiation à Excel, initiation à VBA, Excel
avancé sans VBA... (cours à télécharger)
http://www.ilyapa.net/excel/ ** 18/05/04 **
le site de Pascal : procédures VBA, composants par
l'exemple,calendriers, jeux
http://intendant.free.fr/ ** 13/03/02 **
le site de Thierry : cours VBA (début et perfectionnement), graphique,
Excel en bureautique...
http://www.polykromy.com/ ** 24/03/04**
le site de Gaëtan : cours sur Excel sans VBA, les couleurs, des astuces
animées...
http://www.gaboly.com ** 05/02/03 **
le site de Michel, cours Excel et VBA (avec un Mac)...
http://www.excel-downloads.com ** 08/03/04**
le site de David, des programmes Excel à télécharger
http://mapage.noos.fr/pnoss/excel.html ** 23/08/02 **
le site de Philippe, trucs et astuces, Exoutils (barre d'outils pour
Excel à télécharger)...
http://www.champey.com/
le site de Patrice : les langages de programmation (VB, VBS et VBA)
http://www.anthony-penel.fr.st
le site d'Anthony : des macros appliquées à la finance
http://www.fundp.ac.be/~jmlamber/
le site de Jean-Marie : initiation VBA, TCD, listes, solveur...
http://www.ibelgique.com/OfficeAssistant ** 08/08/01 **
le site de Bureauticien : nombreux exemples résolus par VBA,fonctions...
http://www.cathyastuce.com/index.htm ** 28/02/04**
le site de Cathy : cours Excel avec ou sans VBA...
http://perso.wanadoo.fr/jean.duprat
le site de Papy Jean : fiches Excel pour débutants...
http://www.ifrance.com/fleguen/excel.html
le site de Konga : des classeurs d'exercices (fonctions, macros)
Pour une collection très fouillée d'adresses (avec commentaires) :
le classeur de Clément M, à télécharger sur disciplus (Excelabo)
Favoris.xls
Et un lien à y ajouter, la liste des constantes intrinsèques de VBA avec
leur valeur numérique (par versions d'Excel) :
http://support.microsoft.com/support/kb/articles/Q112/6/71.ASP
(télécharger: wc0993.exe)
Pour le passage de Excel 4 à Excel 97, un lien proposé par Geo
http://www.microsoft.com/FRANCE/officedev/infotech/info.asp?mar=/FRANCE/
officedev/infotech/MacroXLtoVBA.html
(le lien tient sur plusieurs lignes, il se termine par html)
ou http://minilien.com/?5vyhNUG62R
Enfin, pour retrouver d'anciens messages, tu peux aller sur
http://groups.google.com/advanced_group_search
avec les conseils de Clément M pour obtenir les meilleurs résultats :
--- Là, il y a un écran "bilingue" qui permet de faire une recherche
plus ou moins pointue, selon les informations dont l'on dispose.
Une fois que l'on a repéré un message, il est possible de récupérer
l'ensemble de la ficelle, en cliquant sur "Voyez Fil de Discussion (x
articles)".
Google fonctionne très mal quand on fait une recherche avec un nom
qui contient des accents. Il semble donc préférable d'utiliser l'adresse
électronique comme nom d'auteur ; avec toutefois encore quelques réserves,
tel ou tel pseudo pouvant être préférable.
Auteur => 496
Auteur la_bonne_adresse_de jps => 5.160 messages
Auteur Sabatier => 13.600 messages
Auteur jps => 76 messages
---
Bonne lecture et à bientôt sur mpfe.
"================================fin de
copie================================="
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"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
Bonsoir Reda,
En complément des réponses déjà fournies par mes petits camarades, voici
une copie du célèbre Message de
Bienvenue rédigé par Monique (qui est bien trop occupée ces derniers temps
par ailleurs et qui nous
manque) ; il présente une belle collection de références qui devraient
t'aider à progresser.
"=============================début de
copie================================="
bienvenue sur mpfe :-)
Sur les sites proposés dans ce message d'accueil, tu découvriras des
cours (avec ou sans VBA), des classeurs d'exemples à télécharger, des
macros, des trucs et astuces...
Pour connaître les habitudes de mpfe (et les erreurs à éviter, comme les
fichiers joints...), tu peux lire ces messages publiés régulièrement
ici, avec l'un de ces intitulés
- FAQ MPFE http://dj.joss.free.fr/netiquet.htm (nétiquette, conseils...)
- [Charte] du forum MPFE
et consulter cette page
http://www.excelabo.net/mpfe/connexion.php
(connexion,conseils...), à consulter absolument si tu suis le forum
depuis un site web (la solution la moins efficace et la moins
confortable) ou avec le serveur de Wanadoo (très peu performant quant au
délai d'affichage et au nombre de messages publiés).
Le serveur à utiliser : news.microsoft.com - ou cliquer directement sur
news:microsoft.public.fr.excel
Pour les débutants, voilà 5 bons trucs pour apprendre vite :
- utiliser souvent l'enregistreur de macro et analyser le code obtenu
- utiliser la touche F1 pour appeler l'aide (à propos du mot-clef, en
VBA, sur lequel se trouve le curseur)
- tester et essayer de comprendre des réponses faites à d'autres
- consulter souvent les sites renseignés
- ne jamais hésiter à poser des questions sur le forum
Voici la liste des sites dédiés à Excel, réalisés par des mpfie(ne)s et
que nous devons tous avoir dans nos favoris.
Débutant ou utilisateur confirmé, tu y trouveras de quoi apprendre,
progresser et résoudre bien des problèmes.
(la date d'une mise à jour est signalée par ** ** )
http://dj.joss.free.fr/faq.htm ** 27/07/04 **
la FAQ du forum, mise en oeuvre par Daniel et à lire absolument par tout
nouveau sur mpfe : la bonne manière de participer au forum (charte,
souriettes, abréviations...), liens, bibliographie, les réponses aux
questions le plus souvent posées, des trucs et astuces, un moteur de
recherche interne et externe (Yahoo), une page débutants
http://www.excelabo.net/xl/debuter.php ** 23/08/04 **
le site humoro-ludique de Misange : une importante rubrique "Trucs et
astuces", des classeurs à télécharger, un glossaire, une page débutants,
des jeux en VBA... et un méta-moteur de recherche sur 6 sites de cette
liste...
mais aussi tout ce qui fait "l'esprit mpfe", les perles, les gifs...
et,sur http://fotoflo.free.fr/ les photos des soupers/dîners de mpfe
http://longre.free.fr/ ** 19/03/03 **
le site de Laurent, notre Grand Chef à Quatre Plumes : de très nombreux
liens commentés, les macros pointues de Laurent... (techniques de
programmation, calculs de dates et d'heures, Api...)
http://jacxl.free.fr/mpfe/ ** 01/03/03 **
le site de J@C : les graphiques, la bourse, le Web, un cours VBA, un
moteur de recherche à la page Aide... et le trombinoscope des
mpfien(ne)s
http://ericrenaud.free.fr/index.html ** 18/06/03 **
le site d'Eric : particulièrement destiné aux débutants (UserForm...)
http://frederic.sigonneau.free.fr** 15/08/04**
le site de Frédéric : gestions de temps, VBA pour Excel... une mine d'or
de macros
http://xlbysteph.free.fr/aideinformatique/web.htm ** 27/12/03 **
le site de Stéphane : cours VBA, Excel 4 (ou 5) et Excel 97/2000...
http://perso.club-internet.fr/bdafonse
le site de Bruno : formules, classeurs à télécharger...
http://cherbe.free.fr/ ** 26/02/04 **
le site de Christian : initiation à Excel, initiation à VBA, Excel
avancé sans VBA... (cours à télécharger)
http://www.ilyapa.net/excel/ ** 18/05/04 **
le site de Pascal : procédures VBA, composants par
l'exemple,calendriers, jeux
http://intendant.free.fr/ ** 13/03/02 **
le site de Thierry : cours VBA (début et perfectionnement), graphique,
Excel en bureautique...
http://www.polykromy.com/ ** 24/03/04**
le site de Gaëtan : cours sur Excel sans VBA, les couleurs, des astuces
animées...
http://www.gaboly.com ** 05/02/03 **
le site de Michel, cours Excel et VBA (avec un Mac)...
http://www.excel-downloads.com ** 08/03/04**
le site de David, des programmes Excel à télécharger
http://mapage.noos.fr/pnoss/excel.html ** 23/08/02 **
le site de Philippe, trucs et astuces, Exoutils (barre d'outils pour
Excel à télécharger)...
http://www.champey.com/
le site de Patrice : les langages de programmation (VB, VBS et VBA)
http://www.anthony-penel.fr.st
le site d'Anthony : des macros appliquées à la finance
http://www.fundp.ac.be/~jmlamber/
le site de Jean-Marie : initiation VBA, TCD, listes, solveur...
http://www.ibelgique.com/OfficeAssistant ** 08/08/01 **
le site de Bureauticien : nombreux exemples résolus par VBA,fonctions...
http://www.cathyastuce.com/index.htm ** 28/02/04**
le site de Cathy : cours Excel avec ou sans VBA...
http://perso.wanadoo.fr/jean.duprat
le site de Papy Jean : fiches Excel pour débutants...
http://www.ifrance.com/fleguen/excel.html
le site de Konga : des classeurs d'exercices (fonctions, macros)
Pour une collection très fouillée d'adresses (avec commentaires) :
le classeur de Clément M, à télécharger sur disciplus (Excelabo)
Favoris.xls
Et un lien à y ajouter, la liste des constantes intrinsèques de VBA avec
leur valeur numérique (par versions d'Excel) :
http://support.microsoft.com/support/kb/articles/Q112/6/71.ASP
(télécharger: wc0993.exe)
Pour le passage de Excel 4 à Excel 97, un lien proposé par Geo
http://www.microsoft.com/FRANCE/officedev/infotech/info.asp?mar=/FRANCE/
officedev/infotech/MacroXLtoVBA.html
(le lien tient sur plusieurs lignes, il se termine par html)
ou http://minilien.com/?5vyhNUG62R
Enfin, pour retrouver d'anciens messages, tu peux aller sur
http://groups.google.com/advanced_group_search
avec les conseils de Clément M pour obtenir les meilleurs résultats :
--- Là, il y a un écran "bilingue" qui permet de faire une recherche
plus ou moins pointue, selon les informations dont l'on dispose.
Une fois que l'on a repéré un message, il est possible de récupérer
l'ensemble de la ficelle, en cliquant sur "Voyez Fil de Discussion (x
articles)".
Google fonctionne très mal quand on fait une recherche avec un nom
qui contient des accents. Il semble donc préférable d'utiliser l'adresse
électronique comme nom d'auteur ; avec toutefois encore quelques réserves,
tel ou tel pseudo pouvant être préférable.
Auteur biscotteUnScudJpsabatdelaile@wanadoo.fr => 496
Auteur la_bonne_adresse_de jps => 5.160 messages
Auteur Sabatier => 13.600 messages
Auteur jps => 76 messages
---
Bonne lecture et à bientôt sur mpfe.
"================================fin de
copie================================="
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"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
Bonsoir Reda,
En complément des réponses déjà fournies par mes petits camarades, voici
une copie du célèbre Message de
Bienvenue rédigé par Monique (qui est bien trop occupée ces derniers temps
par ailleurs et qui nous
manque) ; il présente une belle collection de références qui devraient
t'aider à progresser.
"=============================début de
copie================================="
bienvenue sur mpfe :-)
Sur les sites proposés dans ce message d'accueil, tu découvriras des
cours (avec ou sans VBA), des classeurs d'exemples à télécharger, des
macros, des trucs et astuces...
Pour connaître les habitudes de mpfe (et les erreurs à éviter, comme les
fichiers joints...), tu peux lire ces messages publiés régulièrement
ici, avec l'un de ces intitulés
- FAQ MPFE http://dj.joss.free.fr/netiquet.htm (nétiquette, conseils...)
- [Charte] du forum MPFE
et consulter cette page
http://www.excelabo.net/mpfe/connexion.php
(connexion,conseils...), à consulter absolument si tu suis le forum
depuis un site web (la solution la moins efficace et la moins
confortable) ou avec le serveur de Wanadoo (très peu performant quant au
délai d'affichage et au nombre de messages publiés).
Le serveur à utiliser : news.microsoft.com - ou cliquer directement sur
news:microsoft.public.fr.excel
Pour les débutants, voilà 5 bons trucs pour apprendre vite :
- utiliser souvent l'enregistreur de macro et analyser le code obtenu
- utiliser la touche F1 pour appeler l'aide (à propos du mot-clef, en
VBA, sur lequel se trouve le curseur)
- tester et essayer de comprendre des réponses faites à d'autres
- consulter souvent les sites renseignés
- ne jamais hésiter à poser des questions sur le forum
Voici la liste des sites dédiés à Excel, réalisés par des mpfie(ne)s et
que nous devons tous avoir dans nos favoris.
Débutant ou utilisateur confirmé, tu y trouveras de quoi apprendre,
progresser et résoudre bien des problèmes.
(la date d'une mise à jour est signalée par ** ** )
http://dj.joss.free.fr/faq.htm ** 27/07/04 **
la FAQ du forum, mise en oeuvre par Daniel et à lire absolument par tout
nouveau sur mpfe : la bonne manière de participer au forum (charte,
souriettes, abréviations...), liens, bibliographie, les réponses aux
questions le plus souvent posées, des trucs et astuces, un moteur de
recherche interne et externe (Yahoo), une page débutants
http://www.excelabo.net/xl/debuter.php ** 23/08/04 **
le site humoro-ludique de Misange : une importante rubrique "Trucs et
astuces", des classeurs à télécharger, un glossaire, une page débutants,
des jeux en VBA... et un méta-moteur de recherche sur 6 sites de cette
liste...
mais aussi tout ce qui fait "l'esprit mpfe", les perles, les gifs...
et,sur http://fotoflo.free.fr/ les photos des soupers/dîners de mpfe
http://longre.free.fr/ ** 19/03/03 **
le site de Laurent, notre Grand Chef à Quatre Plumes : de très nombreux
liens commentés, les macros pointues de Laurent... (techniques de
programmation, calculs de dates et d'heures, Api...)
http://jacxl.free.fr/mpfe/ ** 01/03/03 **
le site de : les graphiques, la bourse, le Web, un cours VBA, un
moteur de recherche à la page Aide... et le trombinoscope des
mpfien(ne)s
http://ericrenaud.free.fr/index.html ** 18/06/03 **
le site d'Eric : particulièrement destiné aux débutants (UserForm...)
http://frederic.sigonneau.free.fr** 15/08/04**
le site de Frédéric : gestions de temps, VBA pour Excel... une mine d'or
de macros
http://xlbysteph.free.fr/aideinformatique/web.htm ** 27/12/03 **
le site de Stéphane : cours VBA, Excel 4 (ou 5) et Excel 97/2000...
http://perso.club-internet.fr/bdafonse
le site de Bruno : formules, classeurs à télécharger...
http://cherbe.free.fr/ ** 26/02/04 **
le site de Christian : initiation à Excel, initiation à VBA, Excel
avancé sans VBA... (cours à télécharger)
http://www.ilyapa.net/excel/ ** 18/05/04 **
le site de Pascal : procédures VBA, composants par
l'exemple,calendriers, jeux
http://intendant.free.fr/ ** 13/03/02 **
le site de Thierry : cours VBA (début et perfectionnement), graphique,
Excel en bureautique...
http://www.polykromy.com/ ** 24/03/04**
le site de Gaëtan : cours sur Excel sans VBA, les couleurs, des astuces
animées...
http://www.gaboly.com ** 05/02/03 **
le site de Michel, cours Excel et VBA (avec un Mac)...
http://www.excel-downloads.com ** 08/03/04**
le site de David, des programmes Excel à télécharger
http://mapage.noos.fr/pnoss/excel.html ** 23/08/02 **
le site de Philippe, trucs et astuces, Exoutils (barre d'outils pour
Excel à télécharger)...
http://www.champey.com/
le site de Patrice : les langages de programmation (VB, VBS et VBA)
http://www.anthony-penel.fr.st
le site d'Anthony : des macros appliquées à la finance
http://www.fundp.ac.be/~jmlamber/
le site de Jean-Marie : initiation VBA, TCD, listes, solveur...
http://www.ibelgique.com/OfficeAssistant ** 08/08/01 **
le site de Bureauticien : nombreux exemples résolus par VBA,fonctions...
http://www.cathyastuce.com/index.htm ** 28/02/04**
le site de Cathy : cours Excel avec ou sans VBA...
http://perso.wanadoo.fr/jean.duprat
le site de Papy Jean : fiches Excel pour débutants...
http://www.ifrance.com/fleguen/excel.html
le site de Konga : des classeurs d'exercices (fonctions, macros)
Pour une collection très fouillée d'adresses (avec commentaires) :
le classeur de Clément M, à télécharger sur disciplus (Excelabo)
Favoris.xls
Et un lien à y ajouter, la liste des constantes intrinsèques de VBA avec
leur valeur numérique (par versions d'Excel) :
http://support.microsoft.com/support/kb/articles/Q112/6/71.ASP
(télécharger: wc0993.exe)
Pour le passage de Excel 4 à Excel 97, un lien proposé par Geo
http://www.microsoft.com/FRANCE/officedev/infotech/info.asp?mar=/FRANCE/
officedev/infotech/MacroXLtoVBA.html
(le lien tient sur plusieurs lignes, il se termine par html)
ou http://minilien.com/?5vyhNUG62R
Enfin, pour retrouver d'anciens messages, tu peux aller sur
http://groups.google.com/advanced_group_search
avec les conseils de Clément M pour obtenir les meilleurs résultats :
--- Là, il y a un écran "bilingue" qui permet de faire une recherche
plus ou moins pointue, selon les informations dont l'on dispose.
Une fois que l'on a repéré un message, il est possible de récupérer
l'ensemble de la ficelle, en cliquant sur "Voyez Fil de Discussion (x
articles)".
Google fonctionne très mal quand on fait une recherche avec un nom
qui contient des accents. Il semble donc préférable d'utiliser l'adresse
électronique comme nom d'auteur ; avec toutefois encore quelques réserves,
tel ou tel pseudo pouvant être préférable.
Auteur => 496
Auteur la_bonne_adresse_de jps => 5.160 messages
Auteur Sabatier => 13.600 messages
Auteur jps => 76 messages
---
Bonne lecture et à bientôt sur mpfe.
"================================fin de
copie================================="
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre facilement le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"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
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
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
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
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
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
"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
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
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
"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
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
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
"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