Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se dé roule,
choisis la commande "Visualiser le code et copie ce bout de code dans la
page blanche de l'éditeur de code.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(ActiveCell, Range("B:B"))
If Not Rg Is Nothing Then
With Rg
If .Interior.Color = vbRed Then
.Interior.Color = xlNone
Else
.Interior.Color = vbRed
End If
.Offset(, 1).Select
End With
End If
End Sub
'---------------------------
MichD
Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se dé roule,
choisis la commande "Visualiser le code et copie ce bout de code dans la
page blanche de l'éditeur de code.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(ActiveCell, Range("B:B"))
If Not Rg Is Nothing Then
With Rg
If .Interior.Color = vbRed Then
.Interior.Color = xlNone
Else
.Interior.Color = vbRed
End If
.Offset(, 1).Select
End With
End If
End Sub
'---------------------------
MichD
Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se dé roule,
choisis la commande "Visualiser le code et copie ce bout de code dans la
page blanche de l'éditeur de code.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(ActiveCell, Range("B:B"))
If Not Rg Is Nothing Then
With Rg
If .Interior.Color = vbRed Then
.Interior.Color = xlNone
Else
.Interior.Color = vbRed
End If
.Offset(, 1).Select
End With
End If
End Sub
'---------------------------
MichD
Et aussi:
Lorsque je clique en col B, je valide avec Enter. la cel sélectionnée
n'est pas celle qui suit en colB, mais celle d'à côté en colC.....
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
qfshkd$1dhf$
Bonjour Denis et Pascal
j'ai testé..... et:
-Quand j'encode en col A, c'est parfait
- quand je veux encoder en col B, il met la cel en rouge et la valeur
que je
voulais encoder en colB, il la met en colC ....
- quand je reclique en B, le rouge ne devient pas blanc (xlnone demandé
dans
macro) mais turquoise clair (colorindex 20 ou 34).
---------------------
Pour xlnone qui se change en turquoise, ce ne serait pas un réglage de
couleur de base de la feuille?
Voilà encore un mystère de plus.
Bon dimanche à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfq7kp$1f0s$
Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se déroule,
choisis la commande "Visualiser le code et copie ce bout de code dans la
page blanche de l'éditeur de code.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(ActiveCell, Range("B:B"))
If Not Rg Is Nothing Then
With Rg
If .Interior.Color = vbRed Then
.Interior.Color = xlNone
Else
.Interior.Color = vbRed
End If
.Offset(, 1).Select
End With
End If
End Sub
'---------------------------
Et aussi:
Lorsque je clique en col B, je valide avec Enter. la cel sélectionnée
n'est pas celle qui suit en colB, mais celle d'à côté en colC.....
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
qfshkd$1dhf$1@gioia.aioe.org...
Bonjour Denis et Pascal
j'ai testé..... et:
-Quand j'encode en col A, c'est parfait
- quand je veux encoder en col B, il met la cel en rouge et la valeur
que je
voulais encoder en colB, il la met en colC ....
- quand je reclique en B, le rouge ne devient pas blanc (xlnone demandé
dans
macro) mais turquoise clair (colorindex 20 ou 34).
---------------------
Pour xlnone qui se change en turquoise, ce ne serait pas un réglage de
couleur de base de la feuille?
Voilà encore un mystère de plus.
Bon dimanche à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfq7kp$1f0s$1@gioia.aioe.org...
Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se déroule,
choisis la commande "Visualiser le code et copie ce bout de code dans la
page blanche de l'éditeur de code.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(ActiveCell, Range("B:B"))
If Not Rg Is Nothing Then
With Rg
If .Interior.Color = vbRed Then
.Interior.Color = xlNone
Else
.Interior.Color = vbRed
End If
.Offset(, 1).Select
End With
End If
End Sub
'---------------------------
Et aussi:
Lorsque je clique en col B, je valide avec Enter. la cel sélectionnée
n'est pas celle qui suit en colB, mais celle d'à côté en colC.....
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
qfshkd$1dhf$
Bonjour Denis et Pascal
j'ai testé..... et:
-Quand j'encode en col A, c'est parfait
- quand je veux encoder en col B, il met la cel en rouge et la valeur
que je
voulais encoder en colB, il la met en colC ....
- quand je reclique en B, le rouge ne devient pas blanc (xlnone demandé
dans
macro) mais turquoise clair (colorindex 20 ou 34).
---------------------
Pour xlnone qui se change en turquoise, ce ne serait pas un réglage de
couleur de base de la feuille?
Voilà encore un mystère de plus.
Bon dimanche à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfq7kp$1f0s$
Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se déroule,
choisis la commande "Visualiser le code et copie ce bout de code dans la
page blanche de l'éditeur de code.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(ActiveCell, Range("B:B"))
If Not Rg Is Nothing Then
With Rg
If .Interior.Color = vbRed Then
.Interior.Color = xlNone
Else
.Interior.Color = vbRed
End If
.Offset(, 1).Select
End With
End If
End Sub
'---------------------------
Et aussi:
Lorsque je clique en col B, je valide avec Enter. la cel sélectionnée
n'est pas celle qui suit en colB, mais celle d'à côté en colC.....
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
qfshkd$1dhf$
Bonjour Denis et Pascal
j'ai testé..... et:
-Quand j'encode en col A, c'est parfait
- quand je veux encoder en col B, il met la cel en rouge et la valeur que
je
voulais encoder en colB, il la met en colC ....
- quand je reclique en B, le rouge ne devient pas blanc (xlnone demandé
dans
macro) mais turquoise clair (colorindex 20 ou 34).
---------------------
Pour xlnone qui se change en turquoise, ce ne serait pas un réglage de
couleur de base de la feuille?
Voilà encore un mystère de plus.
Bon dimanche à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfq7kp$1f0s$
Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se déroule,
choisis la commande "Visualiser le code et copie ce bout de code dans la
page blanche de l'éditeur de code.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(ActiveCell, Range("B:B"))
If Not Rg Is Nothing Then
With Rg
If .Interior.Color = vbRed Then
.Interior.Color = xlNone
Else
.Interior.Color = vbRed
End If
.Offset(, 1).Select
End With
End If
End Sub
'---------------------------
Et aussi:
Lorsque je clique en col B, je valide avec Enter. la cel sélectionnée
n'est pas celle qui suit en colB, mais celle d'à côté en colC.....
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
qfshkd$1dhf$1@gioia.aioe.org...
Bonjour Denis et Pascal
j'ai testé..... et:
-Quand j'encode en col A, c'est parfait
- quand je veux encoder en col B, il met la cel en rouge et la valeur que
je
voulais encoder en colB, il la met en colC ....
- quand je reclique en B, le rouge ne devient pas blanc (xlnone demandé
dans
macro) mais turquoise clair (colorindex 20 ou 34).
---------------------
Pour xlnone qui se change en turquoise, ce ne serait pas un réglage de
couleur de base de la feuille?
Voilà encore un mystère de plus.
Bon dimanche à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfq7kp$1f0s$1@gioia.aioe.org...
Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se déroule,
choisis la commande "Visualiser le code et copie ce bout de code dans la
page blanche de l'éditeur de code.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(ActiveCell, Range("B:B"))
If Not Rg Is Nothing Then
With Rg
If .Interior.Color = vbRed Then
.Interior.Color = xlNone
Else
.Interior.Color = vbRed
End If
.Offset(, 1).Select
End With
End If
End Sub
'---------------------------
Et aussi:
Lorsque je clique en col B, je valide avec Enter. la cel sélectionnée
n'est pas celle qui suit en colB, mais celle d'à côté en colC.....
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
qfshkd$1dhf$
Bonjour Denis et Pascal
j'ai testé..... et:
-Quand j'encode en col A, c'est parfait
- quand je veux encoder en col B, il met la cel en rouge et la valeur que
je
voulais encoder en colB, il la met en colC ....
- quand je reclique en B, le rouge ne devient pas blanc (xlnone demandé
dans
macro) mais turquoise clair (colorindex 20 ou 34).
---------------------
Pour xlnone qui se change en turquoise, ce ne serait pas un réglage de
couleur de base de la feuille?
Voilà encore un mystère de plus.
Bon dimanche à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfq7kp$1f0s$
Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se déroule,
choisis la commande "Visualiser le code et copie ce bout de code dans la
page blanche de l'éditeur de code.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(ActiveCell, Range("B:B"))
If Not Rg Is Nothing Then
With Rg
If .Interior.Color = vbRed Then
.Interior.Color = xlNone
Else
.Interior.Color = vbRed
End If
.Offset(, 1).Select
End With
End If
End Sub
'---------------------------
Mais, pourquoi le "" .Interior.Color = xlNone "" n'est-il pas
"interior.colorIndex"? et aussi et surtout, pourquoi le xlnone
colorie-t-il en turquoise?
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfsm3u$1sh$
Le 07/07/19 à 07:23, Jacquouille a écrit :Et aussi:
Lorsque je clique en col B, je valide avec Enter. la cel sélectionnée
n'est pas celle qui suit en colB, mais celle d'à côté en colC.....
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
qfshkd$1dhf$
Bonjour Denis et Pascal
j'ai testé..... et:
-Quand j'encode en col A, c'est parfait
- quand je veux encoder en col B, il met la cel en rouge et la valeur
que je
voulais encoder en colB, il la met en colC ....
- quand je reclique en B, le rouge ne devient pas blanc (xlnone
demandé dans
macro) mais turquoise clair (colorindex 20 ou 34).
---------------------
Pour xlnone qui se change en turquoise, ce ne serait pas un réglage de
couleur de base de la feuille?
Voilà encore un mystère de plus.
Bon dimanche à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfq7kp$1f0s$
Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se déroule,
choisis la commande "Visualiser le code et copie ce bout de code dans la
page blanche de l'éditeur de code.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(ActiveCell, Range("B:B"))
If Not Rg Is Nothing Then
With Rg
If .Interior.Color = vbRed Then
.Interior.Color = xlNone
Else
.Interior.Color = vbRed
End If
.Offset(, 1).Select
End With
End If
End Sub
'---------------------------
Bonjour,
Cela répond au besoin du demandeur.
La procédure fait ceci :
Chaque fois que tu cliques sur une cellule de la colonne B, la couleur
de fond de la cellule alterne entre le rouge et l'absence de couleur et
la cellule active devient la cellule C sur la même ligne de la cellule
sélectionnée. La ligne de code responsable de cela est : .Offset(,
1).Select
Si tu enlèves cette ligne de code et que tu sélectionnes une cellule de
la colonne B, cette cellule va changer de couleur. SAUF SI TU CLIQUES
UNE DEUXIÈME FOIS dans la même cellule, la couleur de cette dernière ne
changera pas, car le fait de cliquer une deuxième fois sur la même
cellule, cela ne déclenche pas la procédure événementielle
Worksheet_SelectionChange...
Il faut alors sélectionner une autre cellule et revenir cliquer dans la
cellule de la colonne B. À toi de choisir ce qui te convient.
MichD
Mais, pourquoi le "" .Interior.Color = xlNone "" n'est-il pas
"interior.colorIndex"? et aussi et surtout, pourquoi le xlnone
colorie-t-il en turquoise?
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfsm3u$1sh$1@gioia.aioe.org...
Le 07/07/19 à 07:23, Jacquouille a écrit :
Et aussi:
Lorsque je clique en col B, je valide avec Enter. la cel sélectionnée
n'est pas celle qui suit en colB, mais celle d'à côté en colC.....
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
qfshkd$1dhf$1@gioia.aioe.org...
Bonjour Denis et Pascal
j'ai testé..... et:
-Quand j'encode en col A, c'est parfait
- quand je veux encoder en col B, il met la cel en rouge et la valeur
que je
voulais encoder en colB, il la met en colC ....
- quand je reclique en B, le rouge ne devient pas blanc (xlnone
demandé dans
macro) mais turquoise clair (colorindex 20 ou 34).
---------------------
Pour xlnone qui se change en turquoise, ce ne serait pas un réglage de
couleur de base de la feuille?
Voilà encore un mystère de plus.
Bon dimanche à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfq7kp$1f0s$1@gioia.aioe.org...
Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se déroule,
choisis la commande "Visualiser le code et copie ce bout de code dans la
page blanche de l'éditeur de code.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(ActiveCell, Range("B:B"))
If Not Rg Is Nothing Then
With Rg
If .Interior.Color = vbRed Then
.Interior.Color = xlNone
Else
.Interior.Color = vbRed
End If
.Offset(, 1).Select
End With
End If
End Sub
'---------------------------
Bonjour,
Cela répond au besoin du demandeur.
La procédure fait ceci :
Chaque fois que tu cliques sur une cellule de la colonne B, la couleur
de fond de la cellule alterne entre le rouge et l'absence de couleur et
la cellule active devient la cellule C sur la même ligne de la cellule
sélectionnée. La ligne de code responsable de cela est : .Offset(,
1).Select
Si tu enlèves cette ligne de code et que tu sélectionnes une cellule de
la colonne B, cette cellule va changer de couleur. SAUF SI TU CLIQUES
UNE DEUXIÈME FOIS dans la même cellule, la couleur de cette dernière ne
changera pas, car le fait de cliquer une deuxième fois sur la même
cellule, cela ne déclenche pas la procédure événementielle
Worksheet_SelectionChange...
Il faut alors sélectionner une autre cellule et revenir cliquer dans la
cellule de la colonne B. À toi de choisir ce qui te convient.
MichD
Mais, pourquoi le "" .Interior.Color = xlNone "" n'est-il pas
"interior.colorIndex"? et aussi et surtout, pourquoi le xlnone
colorie-t-il en turquoise?
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfsm3u$1sh$
Le 07/07/19 à 07:23, Jacquouille a écrit :Et aussi:
Lorsque je clique en col B, je valide avec Enter. la cel sélectionnée
n'est pas celle qui suit en colB, mais celle d'à côté en colC.....
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
qfshkd$1dhf$
Bonjour Denis et Pascal
j'ai testé..... et:
-Quand j'encode en col A, c'est parfait
- quand je veux encoder en col B, il met la cel en rouge et la valeur
que je
voulais encoder en colB, il la met en colC ....
- quand je reclique en B, le rouge ne devient pas blanc (xlnone
demandé dans
macro) mais turquoise clair (colorindex 20 ou 34).
---------------------
Pour xlnone qui se change en turquoise, ce ne serait pas un réglage de
couleur de base de la feuille?
Voilà encore un mystère de plus.
Bon dimanche à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfq7kp$1f0s$
Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se déroule,
choisis la commande "Visualiser le code et copie ce bout de code dans la
page blanche de l'éditeur de code.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(ActiveCell, Range("B:B"))
If Not Rg Is Nothing Then
With Rg
If .Interior.Color = vbRed Then
.Interior.Color = xlNone
Else
.Interior.Color = vbRed
End If
.Offset(, 1).Select
End With
End If
End Sub
'---------------------------
Bonjour,
Cela répond au besoin du demandeur.
La procédure fait ceci :
Chaque fois que tu cliques sur une cellule de la colonne B, la couleur
de fond de la cellule alterne entre le rouge et l'absence de couleur et
la cellule active devient la cellule C sur la même ligne de la cellule
sélectionnée. La ligne de code responsable de cela est : .Offset(,
1).Select
Si tu enlèves cette ligne de code et que tu sélectionnes une cellule de
la colonne B, cette cellule va changer de couleur. SAUF SI TU CLIQUES
UNE DEUXIÈME FOIS dans la même cellule, la couleur de cette dernière ne
changera pas, car le fait de cliquer une deuxième fois sur la même
cellule, cela ne déclenche pas la procédure événementielle
Worksheet_SelectionChange...
Il faut alors sélectionner une autre cellule et revenir cliquer dans la
cellule de la colonne B. À toi de choisir ce qui te convient.
MichD
.Interior.Color = xlNone ----> en .Interior.ColorIndex=xlnone
et cela se remet en blanc quand je valide.
Mais, pourquoi le "" .Interior.Color = xlNone "" n'est-il pas
"interior.colorIndex"? et aussi et surtout, pourquoi le xlnone
colorie-t-il en turquoise?
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfsm3u$1sh$
Le 07/07/19 à 07:23, Jacquouille a écrit :Et aussi:
Lorsque je clique en col B, je valide avec Enter. la cel sélectionnée
n'est pas celle qui suit en colB, mais celle d'à côté en colC.....
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
qfshkd$1dhf$
Bonjour Denis et Pascal
j'ai testé..... et:
-Quand j'encode en col A, c'est parfait
- quand je veux encoder en col B, il met la cel en rouge et la valeur que
je
voulais encoder en colB, il la met en colC ....
- quand je reclique en B, le rouge ne devient pas blanc (xlnone demandé
dans
macro) mais turquoise clair (colorindex 20 ou 34).
---------------------
Pour xlnone qui se change en turquoise, ce ne serait pas un réglage de
couleur de base de la feuille?
Voilà encore un mystère de plus.
Bon dimanche à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfq7kp$1f0s$
Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se déroule,
choisis la commande "Visualiser le code et copie ce bout de code dans la
page blanche de l'éditeur de code.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(ActiveCell, Range("B:B"))
If Not Rg Is Nothing Then
With Rg
If .Interior.Color = vbRed Then
.Interior.Color = xlNone
Else
.Interior.Color = vbRed
End If
.Offset(, 1).Select
End With
End If
End Sub
'---------------------------
Bonjour,
Cela répond au besoin du demandeur.
La procédure fait ceci :
Chaque fois que tu cliques sur une cellule de la colonne B, la couleur
de fond de la cellule alterne entre le rouge et l'absence de couleur et
la cellule active devient la cellule C sur la même ligne de la cellule
sélectionnée. La ligne de code responsable de cela est : .Offset(,
1).Select
Si tu enlèves cette ligne de code et que tu sélectionnes une cellule de
la colonne B, cette cellule va changer de couleur. SAUF SI TU CLIQUES
UNE DEUXIÈME FOIS dans la même cellule, la couleur de cette dernière ne
changera pas, car le fait de cliquer une deuxième fois sur la même
cellule, cela ne déclenche pas la procédure événementielle
Worksheet_SelectionChange...
Il faut alors sélectionner une autre cellule et revenir cliquer dans la
cellule de la colonne B. À toi de choisir ce qui te convient.
MichD
.Interior.Color = xlNone ----> en .Interior.ColorIndex=xlnone
et cela se remet en blanc quand je valide.
Mais, pourquoi le "" .Interior.Color = xlNone "" n'est-il pas
"interior.colorIndex"? et aussi et surtout, pourquoi le xlnone
colorie-t-il en turquoise?
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfsm3u$1sh$1@gioia.aioe.org...
Le 07/07/19 à 07:23, Jacquouille a écrit :
Et aussi:
Lorsque je clique en col B, je valide avec Enter. la cel sélectionnée
n'est pas celle qui suit en colB, mais celle d'à côté en colC.....
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
qfshkd$1dhf$1@gioia.aioe.org...
Bonjour Denis et Pascal
j'ai testé..... et:
-Quand j'encode en col A, c'est parfait
- quand je veux encoder en col B, il met la cel en rouge et la valeur que
je
voulais encoder en colB, il la met en colC ....
- quand je reclique en B, le rouge ne devient pas blanc (xlnone demandé
dans
macro) mais turquoise clair (colorindex 20 ou 34).
---------------------
Pour xlnone qui se change en turquoise, ce ne serait pas un réglage de
couleur de base de la feuille?
Voilà encore un mystère de plus.
Bon dimanche à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfq7kp$1f0s$1@gioia.aioe.org...
Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se déroule,
choisis la commande "Visualiser le code et copie ce bout de code dans la
page blanche de l'éditeur de code.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(ActiveCell, Range("B:B"))
If Not Rg Is Nothing Then
With Rg
If .Interior.Color = vbRed Then
.Interior.Color = xlNone
Else
.Interior.Color = vbRed
End If
.Offset(, 1).Select
End With
End If
End Sub
'---------------------------
Bonjour,
Cela répond au besoin du demandeur.
La procédure fait ceci :
Chaque fois que tu cliques sur une cellule de la colonne B, la couleur
de fond de la cellule alterne entre le rouge et l'absence de couleur et
la cellule active devient la cellule C sur la même ligne de la cellule
sélectionnée. La ligne de code responsable de cela est : .Offset(,
1).Select
Si tu enlèves cette ligne de code et que tu sélectionnes une cellule de
la colonne B, cette cellule va changer de couleur. SAUF SI TU CLIQUES
UNE DEUXIÈME FOIS dans la même cellule, la couleur de cette dernière ne
changera pas, car le fait de cliquer une deuxième fois sur la même
cellule, cela ne déclenche pas la procédure événementielle
Worksheet_SelectionChange...
Il faut alors sélectionner une autre cellule et revenir cliquer dans la
cellule de la colonne B. À toi de choisir ce qui te convient.
MichD
.Interior.Color = xlNone ----> en .Interior.ColorIndex=xlnone
et cela se remet en blanc quand je valide.
Mais, pourquoi le "" .Interior.Color = xlNone "" n'est-il pas
"interior.colorIndex"? et aussi et surtout, pourquoi le xlnone
colorie-t-il en turquoise?
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfsm3u$1sh$
Le 07/07/19 à 07:23, Jacquouille a écrit :Et aussi:
Lorsque je clique en col B, je valide avec Enter. la cel sélectionnée
n'est pas celle qui suit en colB, mais celle d'à côté en colC.....
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
qfshkd$1dhf$
Bonjour Denis et Pascal
j'ai testé..... et:
-Quand j'encode en col A, c'est parfait
- quand je veux encoder en col B, il met la cel en rouge et la valeur que
je
voulais encoder en colB, il la met en colC ....
- quand je reclique en B, le rouge ne devient pas blanc (xlnone demandé
dans
macro) mais turquoise clair (colorindex 20 ou 34).
---------------------
Pour xlnone qui se change en turquoise, ce ne serait pas un réglage de
couleur de base de la feuille?
Voilà encore un mystère de plus.
Bon dimanche à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfq7kp$1f0s$
Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se déroule,
choisis la commande "Visualiser le code et copie ce bout de code dans la
page blanche de l'éditeur de code.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(ActiveCell, Range("B:B"))
If Not Rg Is Nothing Then
With Rg
If .Interior.Color = vbRed Then
.Interior.Color = xlNone
Else
.Interior.Color = vbRed
End If
.Offset(, 1).Select
End With
End If
End Sub
'---------------------------
Bonjour,
Cela répond au besoin du demandeur.
La procédure fait ceci :
Chaque fois que tu cliques sur une cellule de la colonne B, la couleur
de fond de la cellule alterne entre le rouge et l'absence de couleur et
la cellule active devient la cellule C sur la même ligne de la cellule
sélectionnée. La ligne de code responsable de cela est : .Offset(,
1).Select
Si tu enlèves cette ligne de code et que tu sélectionnes une cellule de
la colonne B, cette cellule va changer de couleur. SAUF SI TU CLIQUES
UNE DEUXIÈME FOIS dans la même cellule, la couleur de cette dernière ne
changera pas, car le fait de cliquer une deuxième fois sur la même
cellule, cela ne déclenche pas la procédure événementielle
Worksheet_SelectionChange...
Il faut alors sélectionner une autre cellule et revenir cliquer dans la
cellule de la colonne B. À toi de choisir ce qui te convient.
MichD
Re
J'ai donc refait le test.
1er clic en colB et cela se met en rouge ---> OK
2ème clic sur cel rouge ------> cela se met en turquoise.
Dans ta macro, j'ai ajouté index à ...
If .Interior.Color = vbRed Then.Interior.Color = xlNone ----> en
.Interior.ColorIndex=xlnone et cela se remet en blanc quand je valide.
Donc, je repose ma question: pourquoi, sur mon PC, .Interior.Color =
xlNone donne-t-il du turquoise?
Je ne pense pas avoir personnalisé aucune couleur que ce soit.
Déjà merci
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qftcim$15j5$Mais, pourquoi le "" .Interior.Color = xlNone "" n'est-il pas
"interior.colorIndex"? et aussi et surtout, pourquoi le xlnone
colorie-t-il en turquoise?
XlNone = "Aucun remplissage"
Il y a 2 propriétés différentes pour colorer le fond d'une cellule.
ColorIndex : cela fait référence aux couleurs que l'usager a définies
dans la palette de couleurs du fichier (ou celui par défaut)
Color : c'est la valeur en hexadécimal d'une couleur (Si tu définis une
couleur personnalisée dans la fenêtre des palettes de couleurs, tu peux
voir la valeur hexadécimale de la couleur retenue) ou on peut utiliser
l'une des 8 constantes de l'application.
VbWhite, VbBlack, VbBlue, Vbred, Vbgreen, Vbyellow, Vbmagenta, VbCyan
MichDJacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfsm3u$1sh$
Le 07/07/19 à 07:23, Jacquouille a écrit :Et aussi:
Lorsque je clique en col B, je valide avec Enter. la cel
sélectionnée n'est pas celle qui suit en colB, mais celle d'à côté en
colC.....
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
qfshkd$1dhf$
Bonjour Denis et Pascal
j'ai testé..... et:
-Quand j'encode en col A, c'est parfait
- quand je veux encoder en col B, il met la cel en rouge et la valeur
que je
voulais encoder en colB, il la met en colC ....
- quand je reclique en B, le rouge ne devient pas blanc (xlnone
demandé dans
macro) mais turquoise clair (colorindex 20 ou 34).
---------------------
Pour xlnone qui se change en turquoise, ce ne serait pas un réglage de
couleur de base de la feuille?
Voilà encore un mystère de plus.
Bon dimanche à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfq7kp$1f0s$
Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se déroule,
choisis la commande "Visualiser le code et copie ce bout de code dans la
page blanche de l'éditeur de code.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(ActiveCell, Range("B:B"))
If Not Rg Is Nothing Then
With Rg
If .Interior.Color = vbRed Then
.Interior.Color = xlNone
Else
.Interior.Color = vbRed
End If
.Offset(, 1).Select
End With
End If
End Sub
'---------------------------
Bonjour,
Cela répond au besoin du demandeur.
La procédure fait ceci :
Chaque fois que tu cliques sur une cellule de la colonne B, la couleur
de fond de la cellule alterne entre le rouge et l'absence de couleur et
la cellule active devient la cellule C sur la même ligne de la cellule
sélectionnée. La ligne de code responsable de cela est : .Offset(,
1).Select
Si tu enlèves cette ligne de code et que tu sélectionnes une cellule de
la colonne B, cette cellule va changer de couleur. SAUF SI TU CLIQUES
UNE DEUXIÈME FOIS dans la même cellule, la couleur de cette dernière ne
changera pas, car le fait de cliquer une deuxième fois sur la même
cellule, cela ne déclenche pas la procédure événementielle
Worksheet_SelectionChange...
Il faut alors sélectionner une autre cellule et revenir cliquer dans la
cellule de la colonne B. À toi de choisir ce qui te convient.
MichD
Re
J'ai donc refait le test.
1er clic en colB et cela se met en rouge ---> OK
2ème clic sur cel rouge ------> cela se met en turquoise.
Dans ta macro, j'ai ajouté index à ...
If .Interior.Color = vbRed Then
.Interior.Color = xlNone ----> en
.Interior.ColorIndex=xlnone et cela se remet en blanc quand je valide.
Donc, je repose ma question: pourquoi, sur mon PC, .Interior.Color =
xlNone donne-t-il du turquoise?
Je ne pense pas avoir personnalisé aucune couleur que ce soit.
Déjà merci
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qftcim$15j5$1@gioia.aioe.org...
Mais, pourquoi le "" .Interior.Color = xlNone "" n'est-il pas
"interior.colorIndex"? et aussi et surtout, pourquoi le xlnone
colorie-t-il en turquoise?
XlNone = "Aucun remplissage"
Il y a 2 propriétés différentes pour colorer le fond d'une cellule.
ColorIndex : cela fait référence aux couleurs que l'usager a définies
dans la palette de couleurs du fichier (ou celui par défaut)
Color : c'est la valeur en hexadécimal d'une couleur (Si tu définis une
couleur personnalisée dans la fenêtre des palettes de couleurs, tu peux
voir la valeur hexadécimale de la couleur retenue) ou on peut utiliser
l'une des 8 constantes de l'application.
VbWhite, VbBlack, VbBlue, Vbred, Vbgreen, Vbyellow, Vbmagenta, VbCyan
MichD
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfsm3u$1sh$1@gioia.aioe.org...
Le 07/07/19 à 07:23, Jacquouille a écrit :
Et aussi:
Lorsque je clique en col B, je valide avec Enter. la cel
sélectionnée n'est pas celle qui suit en colB, mais celle d'à côté en
colC.....
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
qfshkd$1dhf$1@gioia.aioe.org...
Bonjour Denis et Pascal
j'ai testé..... et:
-Quand j'encode en col A, c'est parfait
- quand je veux encoder en col B, il met la cel en rouge et la valeur
que je
voulais encoder en colB, il la met en colC ....
- quand je reclique en B, le rouge ne devient pas blanc (xlnone
demandé dans
macro) mais turquoise clair (colorindex 20 ou 34).
---------------------
Pour xlnone qui se change en turquoise, ce ne serait pas un réglage de
couleur de base de la feuille?
Voilà encore un mystère de plus.
Bon dimanche à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfq7kp$1f0s$1@gioia.aioe.org...
Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se déroule,
choisis la commande "Visualiser le code et copie ce bout de code dans la
page blanche de l'éditeur de code.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(ActiveCell, Range("B:B"))
If Not Rg Is Nothing Then
With Rg
If .Interior.Color = vbRed Then
.Interior.Color = xlNone
Else
.Interior.Color = vbRed
End If
.Offset(, 1).Select
End With
End If
End Sub
'---------------------------
Bonjour,
Cela répond au besoin du demandeur.
La procédure fait ceci :
Chaque fois que tu cliques sur une cellule de la colonne B, la couleur
de fond de la cellule alterne entre le rouge et l'absence de couleur et
la cellule active devient la cellule C sur la même ligne de la cellule
sélectionnée. La ligne de code responsable de cela est : .Offset(,
1).Select
Si tu enlèves cette ligne de code et que tu sélectionnes une cellule de
la colonne B, cette cellule va changer de couleur. SAUF SI TU CLIQUES
UNE DEUXIÈME FOIS dans la même cellule, la couleur de cette dernière ne
changera pas, car le fait de cliquer une deuxième fois sur la même
cellule, cela ne déclenche pas la procédure événementielle
Worksheet_SelectionChange...
Il faut alors sélectionner une autre cellule et revenir cliquer dans la
cellule de la colonne B. À toi de choisir ce qui te convient.
MichD
Re
J'ai donc refait le test.
1er clic en colB et cela se met en rouge ---> OK
2ème clic sur cel rouge ------> cela se met en turquoise.
Dans ta macro, j'ai ajouté index à ...
If .Interior.Color = vbRed Then.Interior.Color = xlNone ----> en
.Interior.ColorIndex=xlnone et cela se remet en blanc quand je valide.
Donc, je repose ma question: pourquoi, sur mon PC, .Interior.Color =
xlNone donne-t-il du turquoise?
Je ne pense pas avoir personnalisé aucune couleur que ce soit.
Déjà merci
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qftcim$15j5$Mais, pourquoi le "" .Interior.Color = xlNone "" n'est-il pas
"interior.colorIndex"? et aussi et surtout, pourquoi le xlnone
colorie-t-il en turquoise?
XlNone = "Aucun remplissage"
Il y a 2 propriétés différentes pour colorer le fond d'une cellule.
ColorIndex : cela fait référence aux couleurs que l'usager a définies
dans la palette de couleurs du fichier (ou celui par défaut)
Color : c'est la valeur en hexadécimal d'une couleur (Si tu définis une
couleur personnalisée dans la fenêtre des palettes de couleurs, tu peux
voir la valeur hexadécimale de la couleur retenue) ou on peut utiliser
l'une des 8 constantes de l'application.
VbWhite, VbBlack, VbBlue, Vbred, Vbgreen, Vbyellow, Vbmagenta, VbCyan
MichDJacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfsm3u$1sh$
Le 07/07/19 à 07:23, Jacquouille a écrit :Et aussi:
Lorsque je clique en col B, je valide avec Enter. la cel
sélectionnée n'est pas celle qui suit en colB, mais celle d'à côté en
colC.....
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
qfshkd$1dhf$
Bonjour Denis et Pascal
j'ai testé..... et:
-Quand j'encode en col A, c'est parfait
- quand je veux encoder en col B, il met la cel en rouge et la valeur
que je
voulais encoder en colB, il la met en colC ....
- quand je reclique en B, le rouge ne devient pas blanc (xlnone
demandé dans
macro) mais turquoise clair (colorindex 20 ou 34).
---------------------
Pour xlnone qui se change en turquoise, ce ne serait pas un réglage de
couleur de base de la feuille?
Voilà encore un mystère de plus.
Bon dimanche à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfq7kp$1f0s$
Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se déroule,
choisis la commande "Visualiser le code et copie ce bout de code dans la
page blanche de l'éditeur de code.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(ActiveCell, Range("B:B"))
If Not Rg Is Nothing Then
With Rg
If .Interior.Color = vbRed Then
.Interior.Color = xlNone
Else
.Interior.Color = vbRed
End If
.Offset(, 1).Select
End With
End If
End Sub
'---------------------------
Bonjour,
Cela répond au besoin du demandeur.
La procédure fait ceci :
Chaque fois que tu cliques sur une cellule de la colonne B, la couleur
de fond de la cellule alterne entre le rouge et l'absence de couleur et
la cellule active devient la cellule C sur la même ligne de la cellule
sélectionnée. La ligne de code responsable de cela est : .Offset(,
1).Select
Si tu enlèves cette ligne de code et que tu sélectionnes une cellule de
la colonne B, cette cellule va changer de couleur. SAUF SI TU CLIQUES
UNE DEUXIÈME FOIS dans la même cellule, la couleur de cette dernière ne
changera pas, car le fait de cliquer une deuxième fois sur la même
cellule, cela ne déclenche pas la procédure événementielle
Worksheet_SelectionChange...
Il faut alors sélectionner une autre cellule et revenir cliquer dans la
cellule de la colonne B. À toi de choisir ce qui te convient.
MichD
Re
J'ai donc refait le test.
1er clic en colB et cela se met en rouge ---> OK
2ème clic sur cel rouge ------> cela se met en turquoise.
Dans ta macro, j'ai ajouté index à ...
If .Interior.Color = vbRed Then.Interior.Color = xlNone ----> en
.Interior.ColorIndex=xlnone et cela se remet en blanc quand je valide.
Donc, je repose ma question: pourquoi, sur mon PC, .Interior.Color =
xlNone donne-t-il du turquoise?
Je ne pense pas avoir personnalisé aucune couleur que ce soit.
Déjà merci
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qftcim$15j5$Mais, pourquoi le "" .Interior.Color = xlNone "" n'est-il pas
"interior.colorIndex"? et aussi et surtout, pourquoi le xlnone
colorie-t-il en turquoise?
XlNone = "Aucun remplissage"
Il y a 2 propriétés différentes pour colorer le fond d'une cellule.
ColorIndex : cela fait référence aux couleurs que l'usager a définies
dans la palette de couleurs du fichier (ou celui par défaut)
Color : c'est la valeur en hexadécimal d'une couleur (Si tu définis une
couleur personnalisée dans la fenêtre des palettes de couleurs, tu peux
voir la valeur hexadécimale de la couleur retenue) ou on peut utiliser
l'une des 8 constantes de l'application.
VbWhite, VbBlack, VbBlue, Vbred, Vbgreen, Vbyellow, Vbmagenta, VbCyan
MichDJacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfsm3u$1sh$
Le 07/07/19 à 07:23, Jacquouille a écrit :Et aussi:
Lorsque je clique en col B, je valide avec Enter. la cel sélectionnée
n'est pas celle qui suit en colB, mais celle d'à côté en colC.....
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
qfshkd$1dhf$
Bonjour Denis et Pascal
j'ai testé..... et:
-Quand j'encode en col A, c'est parfait
- quand je veux encoder en col B, il met la cel en rouge et la valeur
que je
voulais encoder en colB, il la met en colC ....
- quand je reclique en B, le rouge ne devient pas blanc (xlnone demandé
dans
macro) mais turquoise clair (colorindex 20 ou 34).
---------------------
Pour xlnone qui se change en turquoise, ce ne serait pas un réglage de
couleur de base de la feuille?
Voilà encore un mystère de plus.
Bon dimanche à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfq7kp$1f0s$
Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se déroule,
choisis la commande "Visualiser le code et copie ce bout de code dans la
page blanche de l'éditeur de code.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(ActiveCell, Range("B:B"))
If Not Rg Is Nothing Then
With Rg
If .Interior.Color = vbRed Then
.Interior.Color = xlNone
Else
.Interior.Color = vbRed
End If
.Offset(, 1).Select
End With
End If
End Sub
'---------------------------
Bonjour,
Cela répond au besoin du demandeur.
La procédure fait ceci :
Chaque fois que tu cliques sur une cellule de la colonne B, la couleur
de fond de la cellule alterne entre le rouge et l'absence de couleur et
la cellule active devient la cellule C sur la même ligne de la cellule
sélectionnée. La ligne de code responsable de cela est : .Offset(,
1).Select
Si tu enlèves cette ligne de code et que tu sélectionnes une cellule de
la colonne B, cette cellule va changer de couleur. SAUF SI TU CLIQUES
UNE DEUXIÈME FOIS dans la même cellule, la couleur de cette dernière ne
changera pas, car le fait de cliquer une deuxième fois sur la même
cellule, cela ne déclenche pas la procédure événementielle
Worksheet_SelectionChange...
Il faut alors sélectionner une autre cellule et revenir cliquer dans la
cellule de la colonne B. À toi de choisir ce qui te convient.
MichD
Re
J'ai donc refait le test.
1er clic en colB et cela se met en rouge ---> OK
2ème clic sur cel rouge ------> cela se met en turquoise.
Dans ta macro, j'ai ajouté index à ...
If .Interior.Color = vbRed Then
.Interior.Color = xlNone ----> en
.Interior.ColorIndex=xlnone et cela se remet en blanc quand je valide.
Donc, je repose ma question: pourquoi, sur mon PC, .Interior.Color =
xlNone donne-t-il du turquoise?
Je ne pense pas avoir personnalisé aucune couleur que ce soit.
Déjà merci
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qftcim$15j5$1@gioia.aioe.org...
Mais, pourquoi le "" .Interior.Color = xlNone "" n'est-il pas
"interior.colorIndex"? et aussi et surtout, pourquoi le xlnone
colorie-t-il en turquoise?
XlNone = "Aucun remplissage"
Il y a 2 propriétés différentes pour colorer le fond d'une cellule.
ColorIndex : cela fait référence aux couleurs que l'usager a définies
dans la palette de couleurs du fichier (ou celui par défaut)
Color : c'est la valeur en hexadécimal d'une couleur (Si tu définis une
couleur personnalisée dans la fenêtre des palettes de couleurs, tu peux
voir la valeur hexadécimale de la couleur retenue) ou on peut utiliser
l'une des 8 constantes de l'application.
VbWhite, VbBlack, VbBlue, Vbred, Vbgreen, Vbyellow, Vbmagenta, VbCyan
MichD
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfsm3u$1sh$1@gioia.aioe.org...
Le 07/07/19 à 07:23, Jacquouille a écrit :
Et aussi:
Lorsque je clique en col B, je valide avec Enter. la cel sélectionnée
n'est pas celle qui suit en colB, mais celle d'à côté en colC.....
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
qfshkd$1dhf$1@gioia.aioe.org...
Bonjour Denis et Pascal
j'ai testé..... et:
-Quand j'encode en col A, c'est parfait
- quand je veux encoder en col B, il met la cel en rouge et la valeur
que je
voulais encoder en colB, il la met en colC ....
- quand je reclique en B, le rouge ne devient pas blanc (xlnone demandé
dans
macro) mais turquoise clair (colorindex 20 ou 34).
---------------------
Pour xlnone qui se change en turquoise, ce ne serait pas un réglage de
couleur de base de la feuille?
Voilà encore un mystère de plus.
Bon dimanche à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfq7kp$1f0s$1@gioia.aioe.org...
Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se déroule,
choisis la commande "Visualiser le code et copie ce bout de code dans la
page blanche de l'éditeur de code.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(ActiveCell, Range("B:B"))
If Not Rg Is Nothing Then
With Rg
If .Interior.Color = vbRed Then
.Interior.Color = xlNone
Else
.Interior.Color = vbRed
End If
.Offset(, 1).Select
End With
End If
End Sub
'---------------------------
Bonjour,
Cela répond au besoin du demandeur.
La procédure fait ceci :
Chaque fois que tu cliques sur une cellule de la colonne B, la couleur
de fond de la cellule alterne entre le rouge et l'absence de couleur et
la cellule active devient la cellule C sur la même ligne de la cellule
sélectionnée. La ligne de code responsable de cela est : .Offset(,
1).Select
Si tu enlèves cette ligne de code et que tu sélectionnes une cellule de
la colonne B, cette cellule va changer de couleur. SAUF SI TU CLIQUES
UNE DEUXIÈME FOIS dans la même cellule, la couleur de cette dernière ne
changera pas, car le fait de cliquer une deuxième fois sur la même
cellule, cela ne déclenche pas la procédure événementielle
Worksheet_SelectionChange...
Il faut alors sélectionner une autre cellule et revenir cliquer dans la
cellule de la colonne B. À toi de choisir ce qui te convient.
MichD
Re
J'ai donc refait le test.
1er clic en colB et cela se met en rouge ---> OK
2ème clic sur cel rouge ------> cela se met en turquoise.
Dans ta macro, j'ai ajouté index à ...
If .Interior.Color = vbRed Then.Interior.Color = xlNone ----> en
.Interior.ColorIndex=xlnone et cela se remet en blanc quand je valide.
Donc, je repose ma question: pourquoi, sur mon PC, .Interior.Color =
xlNone donne-t-il du turquoise?
Je ne pense pas avoir personnalisé aucune couleur que ce soit.
Déjà merci
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qftcim$15j5$Mais, pourquoi le "" .Interior.Color = xlNone "" n'est-il pas
"interior.colorIndex"? et aussi et surtout, pourquoi le xlnone
colorie-t-il en turquoise?
XlNone = "Aucun remplissage"
Il y a 2 propriétés différentes pour colorer le fond d'une cellule.
ColorIndex : cela fait référence aux couleurs que l'usager a définies
dans la palette de couleurs du fichier (ou celui par défaut)
Color : c'est la valeur en hexadécimal d'une couleur (Si tu définis une
couleur personnalisée dans la fenêtre des palettes de couleurs, tu peux
voir la valeur hexadécimale de la couleur retenue) ou on peut utiliser
l'une des 8 constantes de l'application.
VbWhite, VbBlack, VbBlue, Vbred, Vbgreen, Vbyellow, Vbmagenta, VbCyan
MichDJacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfsm3u$1sh$
Le 07/07/19 à 07:23, Jacquouille a écrit :Et aussi:
Lorsque je clique en col B, je valide avec Enter. la cel sélectionnée
n'est pas celle qui suit en colB, mais celle d'à côté en colC.....
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
qfshkd$1dhf$
Bonjour Denis et Pascal
j'ai testé..... et:
-Quand j'encode en col A, c'est parfait
- quand je veux encoder en col B, il met la cel en rouge et la valeur
que je
voulais encoder en colB, il la met en colC ....
- quand je reclique en B, le rouge ne devient pas blanc (xlnone demandé
dans
macro) mais turquoise clair (colorindex 20 ou 34).
---------------------
Pour xlnone qui se change en turquoise, ce ne serait pas un réglage de
couleur de base de la feuille?
Voilà encore un mystère de plus.
Bon dimanche à tous.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
qfq7kp$1f0s$
Bonjour,
Fais un clic droit sur l'onglet de la feuille où l'action se déroule,
choisis la commande "Visualiser le code et copie ce bout de code dans la
page blanche de l'éditeur de code.
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(ActiveCell, Range("B:B"))
If Not Rg Is Nothing Then
With Rg
If .Interior.Color = vbRed Then
.Interior.Color = xlNone
Else
.Interior.Color = vbRed
End If
.Offset(, 1).Select
End With
End If
End Sub
'---------------------------
Bonjour,
Cela répond au besoin du demandeur.
La procédure fait ceci :
Chaque fois que tu cliques sur une cellule de la colonne B, la couleur
de fond de la cellule alterne entre le rouge et l'absence de couleur et
la cellule active devient la cellule C sur la même ligne de la cellule
sélectionnée. La ligne de code responsable de cela est : .Offset(,
1).Select
Si tu enlèves cette ligne de code et que tu sélectionnes une cellule de
la colonne B, cette cellule va changer de couleur. SAUF SI TU CLIQUES
UNE DEUXIÈME FOIS dans la même cellule, la couleur de cette dernière ne
changera pas, car le fait de cliquer une deuxième fois sur la même
cellule, cela ne déclenche pas la procédure événementielle
Worksheet_SelectionChange...
Il faut alors sélectionner une autre cellule et revenir cliquer dans la
cellule de la colonne B. À toi de choisir ce qui te convient.
MichD