voici mon problème :
dans un fichier, j'ai une colonne avec une validation de données (donc une
liste déroulante avec 2 choix : product et component).
je voudrais que lorsque l'utilisateur choisit "Product" dans cette cellule,
la ligne de cette cellule passe en gras. Et cela de façon automatique sans
que l'utilisateur fasse autre chose...
J'ai donc créé une macro que voici :
Sub gras()
If ActiveCell.Value = "Product" Then
Var = ActiveCell.Row
var2 = Var & ":" & Var
Rows(var2).Select
Selection.Font.Bold = True
ActiveCell.Offset(0, 1).Select
End If
End Sub
Et j'ai mis une macro à l'ouverture du fichier :
Sub auto_open()
Seulement ça ne marche pas. Autant ma macro gras() marche bien si je tape
moi-même le mot "Product" dans ma cellule et que je lance ensuite la macro...
autant elle ne s'execute pas toute seule... comme si Excel ne récupérait pas
la donnée dans la liste déroulante...
Avez-vous une idée du "pourquoi ça marche pas" ?
En espérant avoir été assez claire et précise et en vous remerciant par
avance...
Laure
oh merci ! c'est extra ça fonctionne... effectivement je n'avaisp as placé mon code au niveau de la feuille proprement dite mais dans un module...
je te remercie beaucoup Laure
Re... Regarde ici: http://cjoint.com/?efqN3EjWON
-- Salutations JJ
"Laure" a écrit dans le message de news:
non je suis en 2003... mais alors ça ne marche pas ... j'ai dû louper un truc ?! (je suis encore pas très douée avec les macros)
Re... ..>>... je souhaiterais que cette macro s'execute automatiquement ..... Ce que fait cette macro, sauf si tu as la version xl97
-- Salutations JJ
"Laure" a écrit dans le message de news:
merci... mais je souhaiterais que cette macro s'execute automatiquement au moment où l'utilisateur sélectionne "Porduct" dans la liste... et là je coince...? Laure
Re... Pour la liste de validation en colonne A sinon adapter [a:a]
'--------------- Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [a:a]) Is Nothing Then Range(Target.Row & ":" & Target.Row).Font.Bold = False If Target = "Product" Then Range(Target.Row & ":" & Target.Row).Font.Bold > >> >> True End If End Sub '-----------------
-- Salutations JJ
"Laure" a écrit dans le message de news:
le problème c'est que mon fichier a déjà 3 mises en forme conditionnelle
Bonsoir, La mise en forme conditionnelle ne fait pas ?? Les cellules liste de validation en colonne A
Sélection total des lignes par leur n° format / mise en forme conditionnelle Condition 1 =$A1="product" format etc......
A1 étant la première cellule concernée -- Salutations JJ
"Laure" a écrit dans le message de news:
bonjour à tous,
voici mon problème : dans un fichier, j'ai une colonne avec une validation de données (donc une liste déroulante avec 2 choix : product et component). je voudrais que lorsque l'utilisateur choisit "Product" dans cette cellule, la ligne de cette cellule passe en gras. Et cela de façon automatique sans que l'utilisateur fasse autre chose... J'ai donc créé une macro que voici : Sub gras()
If ActiveCell.Value = "Product" Then Var = ActiveCell.Row var2 = Var & ":" & Var Rows(var2).Select Selection.Font.Bold = True ActiveCell.Offset(0, 1).Select End If End Sub
Et j'ai mis une macro à l'ouverture du fichier : Sub auto_open()
Seulement ça ne marche pas. Autant ma macro gras() marche bien si je tape moi-même le mot "Product" dans ma cellule et que je lance ensuite la macro... autant elle ne s'execute pas toute seule... comme si Excel ne récupérait pas la donnée dans la liste déroulante...
Avez-vous une idée du "pourquoi ça marche pas" ? En espérant avoir été assez claire et précise et en vous remerciant par avance... Laure
oh merci ! c'est extra ça fonctionne... effectivement je n'avaisp as placé
mon code au niveau de la feuille proprement dite mais dans un module...
je te remercie beaucoup
Laure
Re...
Regarde ici:
http://cjoint.com/?efqN3EjWON
--
Salutations
JJ
"Laure" <Laure@discussions.microsoft.com> a écrit dans le message de news:
ACBD749C-F2EB-466C-A6AF-AF3C37D67231@microsoft.com...
non je suis en 2003... mais alors ça ne marche pas ... j'ai dû louper un
truc
?! (je suis encore pas très douée avec les macros)
Re...
..>>... je souhaiterais que cette macro s'execute automatiquement .....
Ce que fait cette macro, sauf si tu as la version xl97
--
Salutations
JJ
"Laure" <Laure@discussions.microsoft.com> a écrit dans le message de
news:
DD79CE50-7020-445A-A236-02859300204D@microsoft.com...
merci... mais je souhaiterais que cette macro s'execute automatiquement
au
moment où l'utilisateur sélectionne "Porduct" dans la liste... et là je
coince...?
Laure
Re...
Pour la liste de validation en colonne A
sinon adapter [a:a]
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a:a]) Is Nothing Then
Range(Target.Row & ":" & Target.Row).Font.Bold = False
If Target = "Product" Then Range(Target.Row & ":" &
Target.Row).Font.Bold > >> >> True
End If
End Sub
'-----------------
--
Salutations
JJ
"Laure" <Laure@discussions.microsoft.com> a écrit dans le message de
news:
41E46077-AFE7-43D5-A78A-CB36790041B8@microsoft.com...
le problème c'est que mon fichier a déjà 3 mises en forme
conditionnelle
Bonsoir,
La mise en forme conditionnelle ne fait pas ??
Les cellules liste de validation en colonne A
Sélection total des lignes par leur n°
format / mise en forme conditionnelle
Condition 1
=$A1="product"
format etc......
A1 étant la première cellule concernée
--
Salutations
JJ
"Laure" <Laure@discussions.microsoft.com> a écrit dans le message
de
news:
741EDDD2-8B96-4F8B-BD91-042FEDD433F2@microsoft.com...
bonjour à tous,
voici mon problème :
dans un fichier, j'ai une colonne avec une validation de données
(donc
une
liste déroulante avec 2 choix : product et component).
je voudrais que lorsque l'utilisateur choisit "Product" dans
cette
cellule,
la ligne de cette cellule passe en gras. Et cela de façon
automatique
sans
que l'utilisateur fasse autre chose...
J'ai donc créé une macro que voici :
Sub gras()
If ActiveCell.Value = "Product" Then
Var = ActiveCell.Row
var2 = Var & ":" & Var
Rows(var2).Select
Selection.Font.Bold = True
ActiveCell.Offset(0, 1).Select
End If
End Sub
Et j'ai mis une macro à l'ouverture du fichier :
Sub auto_open()
Seulement ça ne marche pas. Autant ma macro gras() marche bien si
je
tape
moi-même le mot "Product" dans ma cellule et que je lance ensuite
la
macro...
autant elle ne s'execute pas toute seule... comme si Excel ne
récupérait
pas
la donnée dans la liste déroulante...
Avez-vous une idée du "pourquoi ça marche pas" ?
En espérant avoir été assez claire et précise et en vous
remerciant
par
avance...
Laure
oh merci ! c'est extra ça fonctionne... effectivement je n'avaisp as placé mon code au niveau de la feuille proprement dite mais dans un module...
je te remercie beaucoup Laure
Re... Regarde ici: http://cjoint.com/?efqN3EjWON
-- Salutations JJ
"Laure" a écrit dans le message de news:
non je suis en 2003... mais alors ça ne marche pas ... j'ai dû louper un truc ?! (je suis encore pas très douée avec les macros)
Re... ..>>... je souhaiterais que cette macro s'execute automatiquement ..... Ce que fait cette macro, sauf si tu as la version xl97
-- Salutations JJ
"Laure" a écrit dans le message de news:
merci... mais je souhaiterais que cette macro s'execute automatiquement au moment où l'utilisateur sélectionne "Porduct" dans la liste... et là je coince...? Laure
Re... Pour la liste de validation en colonne A sinon adapter [a:a]
'--------------- Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [a:a]) Is Nothing Then Range(Target.Row & ":" & Target.Row).Font.Bold = False If Target = "Product" Then Range(Target.Row & ":" & Target.Row).Font.Bold > >> >> True End If End Sub '-----------------
-- Salutations JJ
"Laure" a écrit dans le message de news:
le problème c'est que mon fichier a déjà 3 mises en forme conditionnelle
Bonsoir, La mise en forme conditionnelle ne fait pas ?? Les cellules liste de validation en colonne A
Sélection total des lignes par leur n° format / mise en forme conditionnelle Condition 1 =$A1="product" format etc......
A1 étant la première cellule concernée -- Salutations JJ
"Laure" a écrit dans le message de news:
bonjour à tous,
voici mon problème : dans un fichier, j'ai une colonne avec une validation de données (donc une liste déroulante avec 2 choix : product et component). je voudrais que lorsque l'utilisateur choisit "Product" dans cette cellule, la ligne de cette cellule passe en gras. Et cela de façon automatique sans que l'utilisateur fasse autre chose... J'ai donc créé une macro que voici : Sub gras()
If ActiveCell.Value = "Product" Then Var = ActiveCell.Row var2 = Var & ":" & Var Rows(var2).Select Selection.Font.Bold = True ActiveCell.Offset(0, 1).Select End If End Sub
Et j'ai mis une macro à l'ouverture du fichier : Sub auto_open()
Seulement ça ne marche pas. Autant ma macro gras() marche bien si je tape moi-même le mot "Product" dans ma cellule et que je lance ensuite la macro... autant elle ne s'execute pas toute seule... comme si Excel ne récupérait pas la donnée dans la liste déroulante...
Avez-vous une idée du "pourquoi ça marche pas" ? En espérant avoir été assez claire et précise et en vous remerciant par avance... Laure
