Bonjour,
je souhaiterai que, lorsque je sélectionne une cellule et que je la remplie
d'une couleur, une valeur lui soit attribué.
Pour l'instant avec le code suivant:
Private Sub CommandButton1_Click()
If Selection.Interior.ColorIndex = xlNone Then Selection.Interior.ColorIndex
= 3 Else If Selection.Interior.ColorIndex = 3 Then
Selection.Interior.ColorIndex = xlNone
End Sub
, une couleur est attribué ou retirée à chaque click mais je n'arrive pas à
trouver la syntase correcte pour insérer ou retirer la valeur de 0,5 par
exemple.
Merci de votre aide
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
Daniel
Bonjour. Si j'ai bien compris : If Selection.Interior.ColorIndex = xlNone Then Selection.Interior.ColorIndex = 3 Selection.Value = 0.5 ElseIf Selection.Interior.ColorIndex = 3 Then Selection.Interior.ColorIndex = xlNone Selection.ClearContents End If Cordialement. Daniel
"Jeff_68400" a écrit dans le message de news: d1racs$ghu$
Bonjour, je souhaiterai que, lorsque je sélectionne une cellule et que je la remplie d'une couleur, une valeur lui soit attribué. Pour l'instant avec le code suivant:
Private Sub CommandButton1_Click() If Selection.Interior.ColorIndex = xlNone Then Selection.Interior.ColorIndex = 3 Else If Selection.Interior.ColorIndex = 3 Then Selection.Interior.ColorIndex = xlNone
End Sub
, une couleur est attribué ou retirée à chaque click mais je n'arrive pas à trouver la syntase correcte pour insérer ou retirer la valeur de 0,5 par exemple. Merci de votre aide
Bonjour.
Si j'ai bien compris :
If Selection.Interior.ColorIndex = xlNone Then
Selection.Interior.ColorIndex = 3
Selection.Value = 0.5
ElseIf Selection.Interior.ColorIndex = 3 Then
Selection.Interior.ColorIndex = xlNone
Selection.ClearContents
End If
Cordialement.
Daniel
"Jeff_68400" <jeff68400_nospam@sfr.fr> a écrit dans le message de news:
d1racs$ghu$1@feed.teaser.net...
Bonjour,
je souhaiterai que, lorsque je sélectionne une cellule et que je la
remplie d'une couleur, une valeur lui soit attribué.
Pour l'instant avec le code suivant:
Private Sub CommandButton1_Click()
If Selection.Interior.ColorIndex = xlNone Then
Selection.Interior.ColorIndex = 3 Else If Selection.Interior.ColorIndex =
3 Then Selection.Interior.ColorIndex = xlNone
End Sub
, une couleur est attribué ou retirée à chaque click mais je n'arrive pas
à trouver la syntase correcte pour insérer ou retirer la valeur de 0,5 par
exemple.
Merci de votre aide
Bonjour. Si j'ai bien compris : If Selection.Interior.ColorIndex = xlNone Then Selection.Interior.ColorIndex = 3 Selection.Value = 0.5 ElseIf Selection.Interior.ColorIndex = 3 Then Selection.Interior.ColorIndex = xlNone Selection.ClearContents End If Cordialement. Daniel
"Jeff_68400" a écrit dans le message de news: d1racs$ghu$
Bonjour, je souhaiterai que, lorsque je sélectionne une cellule et que je la remplie d'une couleur, une valeur lui soit attribué. Pour l'instant avec le code suivant:
Private Sub CommandButton1_Click() If Selection.Interior.ColorIndex = xlNone Then Selection.Interior.ColorIndex = 3 Else If Selection.Interior.ColorIndex = 3 Then Selection.Interior.ColorIndex = xlNone
End Sub
, une couleur est attribué ou retirée à chaque click mais je n'arrive pas à trouver la syntase correcte pour insérer ou retirer la valeur de 0,5 par exemple. Merci de votre aide
Jeff_68400
Merci pour cette réponse ultra-rapide. Vous avez très bien compris...ça marche. Par contre la valeur dans la cellule est visible...j'aurai voulu qu'elle soit invisible, par ex. écriture en rouge sur fond rouge dans cet exemple. Merci encore.
"Daniel" a écrit dans le message de news:
Bonjour. Si j'ai bien compris : If Selection.Interior.ColorIndex = xlNone Then Selection.Interior.ColorIndex = 3 Selection.Value = 0.5 ElseIf Selection.Interior.ColorIndex = 3 Then Selection.Interior.ColorIndex = xlNone Selection.ClearContents End If Cordialement. Daniel
"Jeff_68400" a écrit dans le message de news: d1racs$ghu$
Bonjour, je souhaiterai que, lorsque je sélectionne une cellule et que je la remplie d'une couleur, une valeur lui soit attribué. Pour l'instant avec le code suivant:
Private Sub CommandButton1_Click() If Selection.Interior.ColorIndex = xlNone Then Selection.Interior.ColorIndex = 3 Else If Selection.Interior.ColorIndex = 3 Then Selection.Interior.ColorIndex = xlNone
End Sub
, une couleur est attribué ou retirée à chaque click mais je n'arrive pas à trouver la syntase correcte pour insérer ou retirer la valeur de 0,5 par exemple. Merci de votre aide
Merci pour cette réponse ultra-rapide.
Vous avez très bien compris...ça marche. Par contre la valeur dans la
cellule est visible...j'aurai voulu qu'elle soit invisible, par ex. écriture
en rouge sur fond rouge dans cet exemple.
Merci encore.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
unAELh4LFHA.2888@TK2MSFTNGP12.phx.gbl...
Bonjour.
Si j'ai bien compris :
If Selection.Interior.ColorIndex = xlNone Then
Selection.Interior.ColorIndex = 3
Selection.Value = 0.5
ElseIf Selection.Interior.ColorIndex = 3 Then
Selection.Interior.ColorIndex = xlNone
Selection.ClearContents
End If
Cordialement.
Daniel
"Jeff_68400" <jeff68400_nospam@sfr.fr> a écrit dans le message de news:
d1racs$ghu$1@feed.teaser.net...
Bonjour,
je souhaiterai que, lorsque je sélectionne une cellule et que je la
remplie d'une couleur, une valeur lui soit attribué.
Pour l'instant avec le code suivant:
Private Sub CommandButton1_Click()
If Selection.Interior.ColorIndex = xlNone Then
Selection.Interior.ColorIndex = 3 Else If Selection.Interior.ColorIndex =
3 Then Selection.Interior.ColorIndex = xlNone
End Sub
, une couleur est attribué ou retirée à chaque click mais je n'arrive pas
à trouver la syntase correcte pour insérer ou retirer la valeur de 0,5
par exemple.
Merci de votre aide
Merci pour cette réponse ultra-rapide. Vous avez très bien compris...ça marche. Par contre la valeur dans la cellule est visible...j'aurai voulu qu'elle soit invisible, par ex. écriture en rouge sur fond rouge dans cet exemple. Merci encore.
"Daniel" a écrit dans le message de news:
Bonjour. Si j'ai bien compris : If Selection.Interior.ColorIndex = xlNone Then Selection.Interior.ColorIndex = 3 Selection.Value = 0.5 ElseIf Selection.Interior.ColorIndex = 3 Then Selection.Interior.ColorIndex = xlNone Selection.ClearContents End If Cordialement. Daniel
"Jeff_68400" a écrit dans le message de news: d1racs$ghu$
Bonjour, je souhaiterai que, lorsque je sélectionne une cellule et que je la remplie d'une couleur, une valeur lui soit attribué. Pour l'instant avec le code suivant:
Private Sub CommandButton1_Click() If Selection.Interior.ColorIndex = xlNone Then Selection.Interior.ColorIndex = 3 Else If Selection.Interior.ColorIndex = 3 Then Selection.Interior.ColorIndex = xlNone
End Sub
, une couleur est attribué ou retirée à chaque click mais je n'arrive pas à trouver la syntase correcte pour insérer ou retirer la valeur de 0,5 par exemple. Merci de votre aide
Daniel
If Selection.Interior.ColorIndex = xlNone Then With Selection .Interior.ColorIndex = 3 .Value = 0.5 .Font.ColorIndex = 3 End With ElseIf Selection.Interior.ColorIndex = 3 Then Selection.Interior.ColorIndex = xlNone Selection.ClearContents End If Cordialement. Daniel "Jeff_68400" a écrit dans le message de news: d1rdgd$mim$
Merci pour cette réponse ultra-rapide. Vous avez très bien compris...ça marche. Par contre la valeur dans la cellule est visible...j'aurai voulu qu'elle soit invisible, par ex. écriture en rouge sur fond rouge dans cet exemple. Merci encore.
"Daniel" a écrit dans le message de news:
Bonjour. Si j'ai bien compris : If Selection.Interior.ColorIndex = xlNone Then Selection.Interior.ColorIndex = 3 Selection.Value = 0.5 ElseIf Selection.Interior.ColorIndex = 3 Then Selection.Interior.ColorIndex = xlNone Selection.ClearContents End If Cordialement. Daniel
"Jeff_68400" a écrit dans le message de news: d1racs$ghu$
Bonjour, je souhaiterai que, lorsque je sélectionne une cellule et que je la remplie d'une couleur, une valeur lui soit attribué. Pour l'instant avec le code suivant:
Private Sub CommandButton1_Click() If Selection.Interior.ColorIndex = xlNone Then Selection.Interior.ColorIndex = 3 Else If Selection.Interior.ColorIndex = 3 Then Selection.Interior.ColorIndex = xlNone
End Sub
, une couleur est attribué ou retirée à chaque click mais je n'arrive pas à trouver la syntase correcte pour insérer ou retirer la valeur de 0,5 par exemple. Merci de votre aide
If Selection.Interior.ColorIndex = xlNone Then
With Selection
.Interior.ColorIndex = 3
.Value = 0.5
.Font.ColorIndex = 3
End With
ElseIf Selection.Interior.ColorIndex = 3 Then
Selection.Interior.ColorIndex = xlNone
Selection.ClearContents
End If
Cordialement.
Daniel
"Jeff_68400" <jeff68400_nospam@sfr.fr> a écrit dans le message de news:
d1rdgd$mim$1@feed.teaser.net...
Merci pour cette réponse ultra-rapide.
Vous avez très bien compris...ça marche. Par contre la valeur dans la
cellule est visible...j'aurai voulu qu'elle soit invisible, par ex.
écriture en rouge sur fond rouge dans cet exemple.
Merci encore.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
unAELh4LFHA.2888@TK2MSFTNGP12.phx.gbl...
Bonjour.
Si j'ai bien compris :
If Selection.Interior.ColorIndex = xlNone Then
Selection.Interior.ColorIndex = 3
Selection.Value = 0.5
ElseIf Selection.Interior.ColorIndex = 3 Then
Selection.Interior.ColorIndex = xlNone
Selection.ClearContents
End If
Cordialement.
Daniel
"Jeff_68400" <jeff68400_nospam@sfr.fr> a écrit dans le message de news:
d1racs$ghu$1@feed.teaser.net...
Bonjour,
je souhaiterai que, lorsque je sélectionne une cellule et que je la
remplie d'une couleur, une valeur lui soit attribué.
Pour l'instant avec le code suivant:
Private Sub CommandButton1_Click()
If Selection.Interior.ColorIndex = xlNone Then
Selection.Interior.ColorIndex = 3 Else If Selection.Interior.ColorIndex
= 3 Then Selection.Interior.ColorIndex = xlNone
End Sub
, une couleur est attribué ou retirée à chaque click mais je n'arrive
pas à trouver la syntase correcte pour insérer ou retirer la valeur de
0,5 par exemple.
Merci de votre aide
If Selection.Interior.ColorIndex = xlNone Then With Selection .Interior.ColorIndex = 3 .Value = 0.5 .Font.ColorIndex = 3 End With ElseIf Selection.Interior.ColorIndex = 3 Then Selection.Interior.ColorIndex = xlNone Selection.ClearContents End If Cordialement. Daniel "Jeff_68400" a écrit dans le message de news: d1rdgd$mim$
Merci pour cette réponse ultra-rapide. Vous avez très bien compris...ça marche. Par contre la valeur dans la cellule est visible...j'aurai voulu qu'elle soit invisible, par ex. écriture en rouge sur fond rouge dans cet exemple. Merci encore.
"Daniel" a écrit dans le message de news:
Bonjour. Si j'ai bien compris : If Selection.Interior.ColorIndex = xlNone Then Selection.Interior.ColorIndex = 3 Selection.Value = 0.5 ElseIf Selection.Interior.ColorIndex = 3 Then Selection.Interior.ColorIndex = xlNone Selection.ClearContents End If Cordialement. Daniel
"Jeff_68400" a écrit dans le message de news: d1racs$ghu$
Bonjour, je souhaiterai que, lorsque je sélectionne une cellule et que je la remplie d'une couleur, une valeur lui soit attribué. Pour l'instant avec le code suivant:
Private Sub CommandButton1_Click() If Selection.Interior.ColorIndex = xlNone Then Selection.Interior.ColorIndex = 3 Else If Selection.Interior.ColorIndex = 3 Then Selection.Interior.ColorIndex = xlNone
End Sub
, une couleur est attribué ou retirée à chaque click mais je n'arrive pas à trouver la syntase correcte pour insérer ou retirer la valeur de 0,5 par exemple. Merci de votre aide
