Lorsque je fais une s=E9lection de cellules.... dire :
Pour chaque cellule de la s=E9lection,
Si le ColorIndex de la cellue =3D 1 =3D> tu me la mets en ColorIndex =3D 2
Si le ColorIndex <> 1 de la cellue =3D> ExitSub
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
JB
Bonjour,
For Each c In Selection If c.Interior.ColorIndex = 1 Then c.Interior.ColorIndex = 2 Else Exit Sub End If Next c
JB
On 31 juil, 08:52, wrote:
Bonjour à tous,
Comment faire pour...
Lorsque je fais une sélection de cellules.... dire :
Pour chaque cellule de la sélection, Si le ColorIndex de la cellue = 1 => tu me la mets en ColorIndex = 2 Si le ColorIndex <> 1 de la cellue => ExitSub
Merci pour votre aide.
Bonne journée. Xavier
Bonjour,
For Each c In Selection
If c.Interior.ColorIndex = 1 Then
c.Interior.ColorIndex = 2
Else
Exit Sub
End If
Next c
JB
On 31 juil, 08:52, domi...@hotmail.com wrote:
Bonjour à tous,
Comment faire pour...
Lorsque je fais une sélection de cellules.... dire :
Pour chaque cellule de la sélection,
Si le ColorIndex de la cellue = 1 => tu me la mets en ColorIndex = 2
Si le ColorIndex <> 1 de la cellue => ExitSub
For Each c In Selection If c.Interior.ColorIndex = 1 Then c.Interior.ColorIndex = 2 Else Exit Sub End If Next c
JB
On 31 juil, 08:52, wrote:
Bonjour à tous,
Comment faire pour...
Lorsque je fais une sélection de cellules.... dire :
Pour chaque cellule de la sélection, Si le ColorIndex de la cellue = 1 => tu me la mets en ColorIndex = 2 Si le ColorIndex <> 1 de la cellue => ExitSub
Merci pour votre aide.
Bonne journée. Xavier
domivax
On 31 juil, 09:01, JB wrote:
Bonjour,
For Each c In Selection If c.Interior.ColorIndex = 1 Then c.Interior.ColorIndex = 2 Else Exit Sub End If Next c
JB
On 31 juil, 08:52, wrote:
Bonjour à tous,
Comment faire pour...
Lorsque je fais une sélection de cellules.... dire :
Pour chaque cellule de la sélection, Si le ColorIndex de la cellue = 1 => tu me la mets en ColorIndex = 2 Si le ColorIndex <> 1 de la cellue => ExitSub
Merci pour votre aide.
Bonne journée. Xavier- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci beaucoup
On 31 juil, 09:01, JB <boisgont...@hotmail.com> wrote:
Bonjour,
For Each c In Selection
If c.Interior.ColorIndex = 1 Then
c.Interior.ColorIndex = 2
Else
Exit Sub
End If
Next c
JB
On 31 juil, 08:52, domi...@hotmail.com wrote:
Bonjour à tous,
Comment faire pour...
Lorsque je fais une sélection de cellules.... dire :
Pour chaque cellule de la sélection,
Si le ColorIndex de la cellue = 1 => tu me la mets en ColorIndex = 2
Si le ColorIndex <> 1 de la cellue => ExitSub
Merci pour votre aide.
Bonne journée.
Xavier- Masquer le texte des messages précédents -
For Each c In Selection If c.Interior.ColorIndex = 1 Then c.Interior.ColorIndex = 2 Else Exit Sub End If Next c
JB
On 31 juil, 08:52, wrote:
Bonjour à tous,
Comment faire pour...
Lorsque je fais une sélection de cellules.... dire :
Pour chaque cellule de la sélection, Si le ColorIndex de la cellue = 1 => tu me la mets en ColorIndex = 2 Si le ColorIndex <> 1 de la cellue => ExitSub
Merci pour votre aide.
Bonne journée. Xavier- Masquer le texte des messages précédents -