Bonjour =E0 toutes et =E0 tous,
J'ai un petit probl=E8me quand j'affecte ma macro au bouton=20
de commande ca ne fonctionne pas et j'aimerai savoir=20
pourquoi!!! ( d'accord je d=E9bute en vba mais ceci est un=20
peu stressant)Je voudrais que quand je selectionne une ou=20
plusieurs cellules et que j'appuie sur mon bouton de=20
commande elle(s) se colore(nt) et contienne(nt) un texte.=20
Voici ma macro
Private Sub CommandButton1_Click()
Dim cell As Range
For Each cell In Selection.Areas
If Selection.Locked =3D False Then
ActiveSheet.Unprotect password:=3D"tk"
cell.FormulaR1C1 =3D "cp"
cell.Font.Color =3D RGB(135, 125, 140)
cell.Interior.Color =3D RGB(255, 204, 153)
ActiveSheet.Protect password:=3D"tk",=20
DrawingObjects:=3DTrue, Contents:=3DTrue, Scenarios:=3DTrue
Else
End If
Next
End Sub
D'avance un grand MERCI a qui peut m'aider
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonsoir, Il faut sortir du mode création (clic sur le bouton comportant l'équerre) pour le rendre opérant -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Thierry" a écrit dans le message de news: 10b801c4b9ed$69d522e0$ Bonjour à toutes et à tous, J'ai un petit problème quand j'affecte ma macro au bouton de commande ca ne fonctionne pas et j'aimerai savoir pourquoi!!! ( d'accord je débute en vba mais ceci est un peu stressant)Je voudrais que quand je selectionne une ou plusieurs cellules et que j'appuie sur mon bouton de commande elle(s) se colore(nt) et contienne(nt) un texte. Voici ma macro Private Sub CommandButton1_Click() Dim cell As Range For Each cell In Selection.Areas If Selection.Locked = False Then ActiveSheet.Unprotect password:="tk" cell.FormulaR1C1 = "cp" cell.Font.Color = RGB(135, 125, 140) cell.Interior.Color = RGB(255, 204, 153) ActiveSheet.Protect password:="tk", DrawingObjects:=True, Contents:=True, Scenarios:=True Else End If Next
End Sub D'avance un grand MERCI a qui peut m'aider
Bonsoir,
Il faut sortir du mode création (clic sur le bouton comportant l'équerre) pour le rendre opérant
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Thierry" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
10b801c4b9ed$69d522e0$a301280a@phx.gbl...
Bonjour à toutes et à tous,
J'ai un petit problème quand j'affecte ma macro au bouton
de commande ca ne fonctionne pas et j'aimerai savoir
pourquoi!!! ( d'accord je débute en vba mais ceci est un
peu stressant)Je voudrais que quand je selectionne une ou
plusieurs cellules et que j'appuie sur mon bouton de
commande elle(s) se colore(nt) et contienne(nt) un texte.
Voici ma macro
Private Sub CommandButton1_Click()
Dim cell As Range
For Each cell In Selection.Areas
If Selection.Locked = False Then
ActiveSheet.Unprotect password:="tk"
cell.FormulaR1C1 = "cp"
cell.Font.Color = RGB(135, 125, 140)
cell.Interior.Color = RGB(255, 204, 153)
ActiveSheet.Protect password:="tk",
DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
End If
Next
End Sub
D'avance un grand MERCI a qui peut m'aider
Bonsoir, Il faut sortir du mode création (clic sur le bouton comportant l'équerre) pour le rendre opérant -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Thierry" a écrit dans le message de news: 10b801c4b9ed$69d522e0$ Bonjour à toutes et à tous, J'ai un petit problème quand j'affecte ma macro au bouton de commande ca ne fonctionne pas et j'aimerai savoir pourquoi!!! ( d'accord je débute en vba mais ceci est un peu stressant)Je voudrais que quand je selectionne une ou plusieurs cellules et que j'appuie sur mon bouton de commande elle(s) se colore(nt) et contienne(nt) un texte. Voici ma macro Private Sub CommandButton1_Click() Dim cell As Range For Each cell In Selection.Areas If Selection.Locked = False Then ActiveSheet.Unprotect password:="tk" cell.FormulaR1C1 = "cp" cell.Font.Color = RGB(135, 125, 140) cell.Interior.Color = RGB(255, 204, 153) ActiveSheet.Protect password:="tk", DrawingObjects:=True, Contents:=True, Scenarios:=True Else End If Next
End Sub D'avance un grand MERCI a qui peut m'aider
Christophe JEAN
Bonsoir,
La fonction RGB ne fonctionnent pas pour les objets Cellules (Cells). Les couleurs sont numérotées de 0 à 56 (plus la couleur 'aucune' xlNone). Donc tu as tes deux lignes suivantes qui rencoient une erreur :
Qu'il faut transformer par cell.Font.ColorIndex = ... cell.Interior.ColorIndex = ...
Un conseil : évite d'utiliser une variable cell qui évoque trop l'objet Cells et pourrait porter à confusion. Utilise c .
A+
Christophe ----- Original Message ----- From: "Thierry" Newsgroups: microsoft.public.fr.excel Sent: Sunday, October 24, 2004 7:18 PM Subject: Macro avec bouton de commande
Bonjour à toutes et à tous, J'ai un petit problème quand j'affecte ma macro au bouton de commande ca ne fonctionne pas et j'aimerai savoir pourquoi!!! ( d'accord je débute en vba mais ceci est un peu stressant)Je voudrais que quand je selectionne une ou plusieurs cellules et que j'appuie sur mon bouton de commande elle(s) se colore(nt) et contienne(nt) un texte. Voici ma macro Private Sub CommandButton1_Click() Dim cell As Range For Each cell In Selection.Areas If Selection.Locked = False Then ActiveSheet.Unprotect password:="tk" cell.FormulaR1C1 = "cp" cell.Font.Color = RGB(135, 125, 140) cell.Interior.Color = RGB(255, 204, 153) ActiveSheet.Protect password:="tk", DrawingObjects:=True, Contents:=True, Scenarios:=True Else End If Next
End Sub D'avance un grand MERCI a qui peut m'aider
Bonsoir,
La fonction RGB ne fonctionnent pas pour les objets Cellules (Cells). Les
couleurs sont numérotées de 0 à 56 (plus la couleur 'aucune' xlNone). Donc
tu as tes deux lignes suivantes qui rencoient une erreur :
Qu'il faut transformer par
cell.Font.ColorIndex = ...
cell.Interior.ColorIndex = ...
Un conseil : évite d'utiliser une variable cell qui évoque trop l'objet
Cells et pourrait porter à confusion. Utilise c .
A+
Christophe
----- Original Message -----
From: "Thierry" <anonymous@discussions.microsoft.com>
Newsgroups: microsoft.public.fr.excel
Sent: Sunday, October 24, 2004 7:18 PM
Subject: Macro avec bouton de commande
Bonjour à toutes et à tous,
J'ai un petit problème quand j'affecte ma macro au bouton
de commande ca ne fonctionne pas et j'aimerai savoir
pourquoi!!! ( d'accord je débute en vba mais ceci est un
peu stressant)Je voudrais que quand je selectionne une ou
plusieurs cellules et que j'appuie sur mon bouton de
commande elle(s) se colore(nt) et contienne(nt) un texte.
Voici ma macro
Private Sub CommandButton1_Click()
Dim cell As Range
For Each cell In Selection.Areas
If Selection.Locked = False Then
ActiveSheet.Unprotect password:="tk"
cell.FormulaR1C1 = "cp"
cell.Font.Color = RGB(135, 125, 140)
cell.Interior.Color = RGB(255, 204, 153)
ActiveSheet.Protect password:="tk",
DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
End If
Next
End Sub
D'avance un grand MERCI a qui peut m'aider
La fonction RGB ne fonctionnent pas pour les objets Cellules (Cells). Les couleurs sont numérotées de 0 à 56 (plus la couleur 'aucune' xlNone). Donc tu as tes deux lignes suivantes qui rencoient une erreur :
Qu'il faut transformer par cell.Font.ColorIndex = ... cell.Interior.ColorIndex = ...
Un conseil : évite d'utiliser une variable cell qui évoque trop l'objet Cells et pourrait porter à confusion. Utilise c .
A+
Christophe ----- Original Message ----- From: "Thierry" Newsgroups: microsoft.public.fr.excel Sent: Sunday, October 24, 2004 7:18 PM Subject: Macro avec bouton de commande
Bonjour à toutes et à tous, J'ai un petit problème quand j'affecte ma macro au bouton de commande ca ne fonctionne pas et j'aimerai savoir pourquoi!!! ( d'accord je débute en vba mais ceci est un peu stressant)Je voudrais que quand je selectionne une ou plusieurs cellules et que j'appuie sur mon bouton de commande elle(s) se colore(nt) et contienne(nt) un texte. Voici ma macro Private Sub CommandButton1_Click() Dim cell As Range For Each cell In Selection.Areas If Selection.Locked = False Then ActiveSheet.Unprotect password:="tk" cell.FormulaR1C1 = "cp" cell.Font.Color = RGB(135, 125, 140) cell.Interior.Color = RGB(255, 204, 153) ActiveSheet.Protect password:="tk", DrawingObjects:=True, Contents:=True, Scenarios:=True Else End If Next
End Sub D'avance un grand MERCI a qui peut m'aider
RaMA
Bonsoir En complément de Philippe et....si j'ai bien compris ce que tu veux faire!!
Private Sub CommandButton1_Click() Dim cell As Range ActiveSheet.Unprotect Password:="tk" For Each cell In Selection If cell.Locked = False Then cell.FormulaR1C1 = "cp" cell.Font.Color = RGB(135, 125, 140) cell.Interior.Color = RGB(255, 204, 153) Else End If Next ActiveSheet.Protect Password:="tk", _ DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub
Salutations RaMa -- . "Philippe.R" a écrit dans le message de news:
Bonsoir, Il faut sortir du mode création (clic sur le bouton comportant l'équerre) pour le rendre opérant -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Thierry" a écrit dans le message de news: 10b801c4b9ed$69d522e0$ Bonjour à toutes et à tous, J'ai un petit problème quand j'affecte ma macro au bouton de commande ca ne fonctionne pas et j'aimerai savoir pourquoi!!! ( d'accord je débute en vba mais ceci est un peu stressant)Je voudrais que quand je selectionne une ou plusieurs cellules et que j'appuie sur mon bouton de commande elle(s) se colore(nt) et contienne(nt) un texte. Voici ma macro Private Sub CommandButton1_Click() Dim cell As Range For Each cell In Selection.Areas If Selection.Locked = False Then ActiveSheet.Unprotect password:="tk" cell.FormulaR1C1 = "cp" cell.Font.Color = RGB(135, 125, 140) cell.Interior.Color = RGB(255, 204, 153) ActiveSheet.Protect password:="tk", DrawingObjects:=True, Contents:=True, Scenarios:=True Else End If Next
End Sub D'avance un grand MERCI a qui peut m'aider
Bonsoir
En complément de Philippe
et....si j'ai bien compris ce que tu veux faire!!
Private Sub CommandButton1_Click()
Dim cell As Range
ActiveSheet.Unprotect Password:="tk"
For Each cell In Selection
If cell.Locked = False Then
cell.FormulaR1C1 = "cp"
cell.Font.Color = RGB(135, 125, 140)
cell.Interior.Color = RGB(255, 204, 153)
Else
End If
Next
ActiveSheet.Protect Password:="tk", _
DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Salutations
RaMa
--
.
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
ezlDWcfuEHA.2196@TK2MSFTNGP14.phx.gbl...
Bonsoir,
Il faut sortir du mode création (clic sur le bouton comportant l'équerre)
pour le rendre opérant
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Thierry" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 10b801c4b9ed$69d522e0$a301280a@phx.gbl...
Bonjour à toutes et à tous,
J'ai un petit problème quand j'affecte ma macro au bouton
de commande ca ne fonctionne pas et j'aimerai savoir
pourquoi!!! ( d'accord je débute en vba mais ceci est un
peu stressant)Je voudrais que quand je selectionne une ou
plusieurs cellules et que j'appuie sur mon bouton de
commande elle(s) se colore(nt) et contienne(nt) un texte.
Voici ma macro
Private Sub CommandButton1_Click()
Dim cell As Range
For Each cell In Selection.Areas
If Selection.Locked = False Then
ActiveSheet.Unprotect password:="tk"
cell.FormulaR1C1 = "cp"
cell.Font.Color = RGB(135, 125, 140)
cell.Interior.Color = RGB(255, 204, 153)
ActiveSheet.Protect password:="tk",
DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
End If
Next
End Sub
D'avance un grand MERCI a qui peut m'aider
Bonsoir En complément de Philippe et....si j'ai bien compris ce que tu veux faire!!
Private Sub CommandButton1_Click() Dim cell As Range ActiveSheet.Unprotect Password:="tk" For Each cell In Selection If cell.Locked = False Then cell.FormulaR1C1 = "cp" cell.Font.Color = RGB(135, 125, 140) cell.Interior.Color = RGB(255, 204, 153) Else End If Next ActiveSheet.Protect Password:="tk", _ DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub
Salutations RaMa -- . "Philippe.R" a écrit dans le message de news:
Bonsoir, Il faut sortir du mode création (clic sur le bouton comportant l'équerre) pour le rendre opérant -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Thierry" a écrit dans le message de news: 10b801c4b9ed$69d522e0$ Bonjour à toutes et à tous, J'ai un petit problème quand j'affecte ma macro au bouton de commande ca ne fonctionne pas et j'aimerai savoir pourquoi!!! ( d'accord je débute en vba mais ceci est un peu stressant)Je voudrais que quand je selectionne une ou plusieurs cellules et que j'appuie sur mon bouton de commande elle(s) se colore(nt) et contienne(nt) un texte. Voici ma macro Private Sub CommandButton1_Click() Dim cell As Range For Each cell In Selection.Areas If Selection.Locked = False Then ActiveSheet.Unprotect password:="tk" cell.FormulaR1C1 = "cp" cell.Font.Color = RGB(135, 125, 140) cell.Interior.Color = RGB(255, 204, 153) ActiveSheet.Protect password:="tk", DrawingObjects:=True, Contents:=True, Scenarios:=True Else End If Next
End Sub D'avance un grand MERCI a qui peut m'aider
