Je veux donner une valeur si le fond de ma cellule est rouge, une autre
valeur s'il est vert ??? comment faire ? Merci
Je veux donner une valeur si le fond de ma cellule est rouge, une autre
valeur s'il est vert ??? comment faire ? Merci
Je veux donner une valeur si le fond de ma cellule est rouge, une autre
valeur s'il est vert ??? comment faire ? Merci
Bonjour.
Essaie, en adaptant à tes colorindexes :
Sub ValeurSelonCouleur()
Dim c As Range
For Each c In Selection
Select Case c.Interior.ColorIndex
Case 3: c = 1
Case 4: c = 2
Case 5: c = 3
Case 6: c = 4
Case Else: c = 50
End Select
Next c
End Sub
Cordialement.
Daniel
"bernbret" a écrit dans le message de
news:Je veux donner une valeur si le fond de ma cellule est rouge, une autre
valeur s'il est vert ??? comment faire ? Merci
Bonjour.
Essaie, en adaptant à tes colorindexes :
Sub ValeurSelonCouleur()
Dim c As Range
For Each c In Selection
Select Case c.Interior.ColorIndex
Case 3: c = 1
Case 4: c = 2
Case 5: c = 3
Case 6: c = 4
Case Else: c = 50
End Select
Next c
End Sub
Cordialement.
Daniel
"bernbret" <bernbret@discussions.microsoft.com> a écrit dans le message de
news: 97D0A8CA-76BC-4DB4-BD22-0FDCBCF9FA16@microsoft.com...
Je veux donner une valeur si le fond de ma cellule est rouge, une autre
valeur s'il est vert ??? comment faire ? Merci
Bonjour.
Essaie, en adaptant à tes colorindexes :
Sub ValeurSelonCouleur()
Dim c As Range
For Each c In Selection
Select Case c.Interior.ColorIndex
Case 3: c = 1
Case 4: c = 2
Case 5: c = 3
Case 6: c = 4
Case Else: c = 50
End Select
Next c
End Sub
Cordialement.
Daniel
"bernbret" a écrit dans le message de
news:Je veux donner une valeur si le fond de ma cellule est rouge, une autre
valeur s'il est vert ??? comment faire ? Merci
Je veux donner une valeur si le fond de ma cellule est rouge, une autre
valeur s'il est vert ??? comment faire ? Merci
Je veux donner une valeur si le fond de ma cellule est rouge, une autre
valeur s'il est vert ??? comment faire ? Merci
Je veux donner une valeur si le fond de ma cellule est rouge, une autre
valeur s'il est vert ??? comment faire ? Merci
Désolé je ne comprends pas Que dois- je marquer exactement dans des
cellules?
pour par exemple indiquer 1 si elle est rouge
et 2 si elle est verte ?
Merci beaucoupBonjour.
Essaie, en adaptant à tes colorindexes :
Sub ValeurSelonCouleur()
Dim c As Range
For Each c In Selection
Select Case c.Interior.ColorIndex
Case 3: c = 1
Case 4: c = 2
Case 5: c = 3
Case 6: c = 4
Case Else: c = 50
End Select
Next c
End Sub
Cordialement.
Daniel
"bernbret" a écrit dans le message
de
news:Je veux donner une valeur si le fond de ma cellule est rouge, une autre
valeur s'il est vert ??? comment faire ? Merci
Désolé je ne comprends pas Que dois- je marquer exactement dans des
cellules?
pour par exemple indiquer 1 si elle est rouge
et 2 si elle est verte ?
Merci beaucoup
Bonjour.
Essaie, en adaptant à tes colorindexes :
Sub ValeurSelonCouleur()
Dim c As Range
For Each c In Selection
Select Case c.Interior.ColorIndex
Case 3: c = 1
Case 4: c = 2
Case 5: c = 3
Case 6: c = 4
Case Else: c = 50
End Select
Next c
End Sub
Cordialement.
Daniel
"bernbret" <bernbret@discussions.microsoft.com> a écrit dans le message
de
news: 97D0A8CA-76BC-4DB4-BD22-0FDCBCF9FA16@microsoft.com...
Je veux donner une valeur si le fond de ma cellule est rouge, une autre
valeur s'il est vert ??? comment faire ? Merci
Désolé je ne comprends pas Que dois- je marquer exactement dans des
cellules?
pour par exemple indiquer 1 si elle est rouge
et 2 si elle est verte ?
Merci beaucoupBonjour.
Essaie, en adaptant à tes colorindexes :
Sub ValeurSelonCouleur()
Dim c As Range
For Each c In Selection
Select Case c.Interior.ColorIndex
Case 3: c = 1
Case 4: c = 2
Case 5: c = 3
Case 6: c = 4
Case Else: c = 50
End Select
Next c
End Sub
Cordialement.
Daniel
"bernbret" a écrit dans le message
de
news:Je veux donner une valeur si le fond de ma cellule est rouge, une autre
valeur s'il est vert ??? comment faire ? Merci
Désolé je ne comprends pas Que dois- je marquer exactement dans des cellules?
pour par exemple indiquer 1 si elle est rouge
et 2 si elle est verte ?
Merci beaucoupBonjour.
Essaie, en adaptant à tes colorindexes :
Sub ValeurSelonCouleur()
Dim c As Range
For Each c In Selection
Select Case c.Interior.ColorIndex
Case 3: c = 1
Case 4: c = 2
Case 5: c = 3
Case 6: c = 4
Case Else: c = 50
End Select
Next c
End Sub
Cordialement.
Daniel
"bernbret" a écrit dans le message de
news:Je veux donner une valeur si le fond de ma cellule est rouge, une autre
valeur s'il est vert ??? comment faire ? Merci
Désolé je ne comprends pas Que dois- je marquer exactement dans des cellules?
pour par exemple indiquer 1 si elle est rouge
et 2 si elle est verte ?
Merci beaucoup
Bonjour.
Essaie, en adaptant à tes colorindexes :
Sub ValeurSelonCouleur()
Dim c As Range
For Each c In Selection
Select Case c.Interior.ColorIndex
Case 3: c = 1
Case 4: c = 2
Case 5: c = 3
Case 6: c = 4
Case Else: c = 50
End Select
Next c
End Sub
Cordialement.
Daniel
"bernbret" <bernbret@discussions.microsoft.com> a écrit dans le message de
news: 97D0A8CA-76BC-4DB4-BD22-0FDCBCF9FA16@microsoft.com...
Je veux donner une valeur si le fond de ma cellule est rouge, une autre
valeur s'il est vert ??? comment faire ? Merci
Désolé je ne comprends pas Que dois- je marquer exactement dans des cellules?
pour par exemple indiquer 1 si elle est rouge
et 2 si elle est verte ?
Merci beaucoupBonjour.
Essaie, en adaptant à tes colorindexes :
Sub ValeurSelonCouleur()
Dim c As Range
For Each c In Selection
Select Case c.Interior.ColorIndex
Case 3: c = 1
Case 4: c = 2
Case 5: c = 3
Case 6: c = 4
Case Else: c = 50
End Select
Next c
End Sub
Cordialement.
Daniel
"bernbret" a écrit dans le message de
news:Je veux donner une valeur si le fond de ma cellule est rouge, une autre
valeur s'il est vert ??? comment faire ? Merci
Désolé je ne comprends pas Que dois- je marquer exactement dans des cellules?
pour par exemple indiquer 1 si elle est rouge
et 2 si elle est verte ?
Merci beaucoupBonjour.
Essaie, en adaptant à tes colorindexes :
Sub ValeurSelonCouleur()
Dim c As Range
For Each c In Selection
Select Case c.Interior.ColorIndex
Case 3: c = 1
Case 4: c = 2
Case 5: c = 3
Case 6: c = 4
Case Else: c = 50
End Select
Next c
End Sub
Cordialement.
Daniel
"bernbret" a écrit dans le message de
news:Je veux donner une valeur si le fond de ma cellule est rouge, une autre
valeur s'il est vert ??? comment faire ? Merci
Désolé je ne comprends pas Que dois- je marquer exactement dans des cellules?
pour par exemple indiquer 1 si elle est rouge
et 2 si elle est verte ?
Merci beaucoup
Bonjour.
Essaie, en adaptant à tes colorindexes :
Sub ValeurSelonCouleur()
Dim c As Range
For Each c In Selection
Select Case c.Interior.ColorIndex
Case 3: c = 1
Case 4: c = 2
Case 5: c = 3
Case 6: c = 4
Case Else: c = 50
End Select
Next c
End Sub
Cordialement.
Daniel
"bernbret" <bernbret@discussions.microsoft.com> a écrit dans le message de
news: 97D0A8CA-76BC-4DB4-BD22-0FDCBCF9FA16@microsoft.com...
Je veux donner une valeur si le fond de ma cellule est rouge, une autre
valeur s'il est vert ??? comment faire ? Merci
Désolé je ne comprends pas Que dois- je marquer exactement dans des cellules?
pour par exemple indiquer 1 si elle est rouge
et 2 si elle est verte ?
Merci beaucoupBonjour.
Essaie, en adaptant à tes colorindexes :
Sub ValeurSelonCouleur()
Dim c As Range
For Each c In Selection
Select Case c.Interior.ColorIndex
Case 3: c = 1
Case 4: c = 2
Case 5: c = 3
Case 6: c = 4
Case Else: c = 50
End Select
Next c
End Sub
Cordialement.
Daniel
"bernbret" a écrit dans le message de
news:Je veux donner une valeur si le fond de ma cellule est rouge, une autre
valeur s'il est vert ??? comment faire ? Merci
Je veux donner une valeur si le fond de ma cellule est rouge, une
autre valeur s'il est vert ??? comment faire ? Merci
Je veux donner une valeur si le fond de ma cellule est rouge, une
autre valeur s'il est vert ??? comment faire ? Merci
Je veux donner une valeur si le fond de ma cellule est rouge, une
autre valeur s'il est vert ??? comment faire ? Merci
Bonsour® bernbret avec ferveur ;o))) vous nous disiez :Je veux donner une valeur si le fond de ma cellule est rouge, une
autre valeur s'il est vert ??? comment faire ? Merci
par exemple, pour afficher en B1 le colorindex de la cellule se trouvant
immédiatement à gauche (donc en A1).
Sélectionnez B1 et déroulez Insertion, Nom, Définir.
Dans le champ Noms dans le classeur, tapez COULEUR.
Dans le champ Fait référence à, saisissez =LIRE.CELLULE(38;!A1)+(0*ALEA()) puis
appuyez
sur OK.
nb : le 0*ALEA() ne sert qu'a forcer la révaluation de la formule lors d'un
recalcul (voir restriction ci-dessous)
Tapez maintenant en B1 la formule =COULEUR et validez.
Le n° du colorIndex de la cellule A1 apparaît maintenant en B1.
Désormais, si vous tapez =COULEUR dans n'importe quelle cellule du tableau,
vous verrez s'afficher le colorindex de la cellule placée à sa gauche.
Restriction !!!!!!!!!!!!!!!!!!!!!!
ce résultat n'est hélas évalué que lors de la validation de cette unique
cellule contenant "=COULEUR"
si d'autres cellules contiennent "=COULEUR"
il faudra :
soit valider chacune tour à tour ...
soit forcer le recalcul de la feuille par la touche F9
:-((
dans l'exemple tel que demandé
=SI(COULEUR=3;"Bravo";"Plouf")
la formule teste la couleur de la cellule située immédiatement à gauche et
affiche Bravo si rouge, plouf sinon
;o)))
@+
;o)))
Bonsour® bernbret avec ferveur ;o))) vous nous disiez :
Je veux donner une valeur si le fond de ma cellule est rouge, une
autre valeur s'il est vert ??? comment faire ? Merci
par exemple, pour afficher en B1 le colorindex de la cellule se trouvant
immédiatement à gauche (donc en A1).
Sélectionnez B1 et déroulez Insertion, Nom, Définir.
Dans le champ Noms dans le classeur, tapez COULEUR.
Dans le champ Fait référence à, saisissez =LIRE.CELLULE(38;!A1)+(0*ALEA()) puis
appuyez
sur OK.
nb : le 0*ALEA() ne sert qu'a forcer la révaluation de la formule lors d'un
recalcul (voir restriction ci-dessous)
Tapez maintenant en B1 la formule =COULEUR et validez.
Le n° du colorIndex de la cellule A1 apparaît maintenant en B1.
Désormais, si vous tapez =COULEUR dans n'importe quelle cellule du tableau,
vous verrez s'afficher le colorindex de la cellule placée à sa gauche.
Restriction !!!!!!!!!!!!!!!!!!!!!!
ce résultat n'est hélas évalué que lors de la validation de cette unique
cellule contenant "=COULEUR"
si d'autres cellules contiennent "=COULEUR"
il faudra :
soit valider chacune tour à tour ...
soit forcer le recalcul de la feuille par la touche F9
:-((
dans l'exemple tel que demandé
=SI(COULEUR=3;"Bravo";"Plouf")
la formule teste la couleur de la cellule située immédiatement à gauche et
affiche Bravo si rouge, plouf sinon
;o)))
@+
;o)))
Bonsour® bernbret avec ferveur ;o))) vous nous disiez :Je veux donner une valeur si le fond de ma cellule est rouge, une
autre valeur s'il est vert ??? comment faire ? Merci
par exemple, pour afficher en B1 le colorindex de la cellule se trouvant
immédiatement à gauche (donc en A1).
Sélectionnez B1 et déroulez Insertion, Nom, Définir.
Dans le champ Noms dans le classeur, tapez COULEUR.
Dans le champ Fait référence à, saisissez =LIRE.CELLULE(38;!A1)+(0*ALEA()) puis
appuyez
sur OK.
nb : le 0*ALEA() ne sert qu'a forcer la révaluation de la formule lors d'un
recalcul (voir restriction ci-dessous)
Tapez maintenant en B1 la formule =COULEUR et validez.
Le n° du colorIndex de la cellule A1 apparaît maintenant en B1.
Désormais, si vous tapez =COULEUR dans n'importe quelle cellule du tableau,
vous verrez s'afficher le colorindex de la cellule placée à sa gauche.
Restriction !!!!!!!!!!!!!!!!!!!!!!
ce résultat n'est hélas évalué que lors de la validation de cette unique
cellule contenant "=COULEUR"
si d'autres cellules contiennent "=COULEUR"
il faudra :
soit valider chacune tour à tour ...
soit forcer le recalcul de la feuille par la touche F9
:-((
dans l'exemple tel que demandé
=SI(COULEUR=3;"Bravo";"Plouf")
la formule teste la couleur de la cellule située immédiatement à gauche et
affiche Bravo si rouge, plouf sinon
;o)))
@+
;o)))
Excel4 n'a jamais fini de nous rappeler son existence. Apanage de
l'age peut-être ( Rires) ?
Excel4 n'a jamais fini de nous rappeler son existence. Apanage de
l'age peut-être ( Rires) ?
Excel4 n'a jamais fini de nous rappeler son existence. Apanage de
l'age peut-être ( Rires) ?
Bonsour® anonymousA avec ferveur ;o))) vous nous disiez :Excel4 n'a jamais fini de nous rappeler son existence. Apanage de
l'age peut-être ( Rires) ?
;o))) ;o))) ;o)))
../..
mais il n'est pas possible de faire ce que tu demandes avec une formule
quelconque
qu'on tape dans une cellule de la feuille de calcul.
../..
ce n'était qu'un gentil clin d'oeil à la petite algarade en cours ...
../..
Ce qui a beaucoup diminué ce sont les joutes excelliennes entre contributeurs
pour titiller l'autre sur sa solution.
../..
j'espére avoir bien interprété le sens de cette derniere citation ;o)))
--
--
@+
;o)))
Bonsour® anonymousA avec ferveur ;o))) vous nous disiez :
Excel4 n'a jamais fini de nous rappeler son existence. Apanage de
l'age peut-être ( Rires) ?
;o))) ;o))) ;o)))
../..
mais il n'est pas possible de faire ce que tu demandes avec une formule
quelconque
qu'on tape dans une cellule de la feuille de calcul.
../..
ce n'était qu'un gentil clin d'oeil à la petite algarade en cours ...
../..
Ce qui a beaucoup diminué ce sont les joutes excelliennes entre contributeurs
pour titiller l'autre sur sa solution.
../..
j'espére avoir bien interprété le sens de cette derniere citation ;o)))
--
--
@+
;o)))
Bonsour® anonymousA avec ferveur ;o))) vous nous disiez :Excel4 n'a jamais fini de nous rappeler son existence. Apanage de
l'age peut-être ( Rires) ?
;o))) ;o))) ;o)))
../..
mais il n'est pas possible de faire ce que tu demandes avec une formule
quelconque
qu'on tape dans une cellule de la feuille de calcul.
../..
ce n'était qu'un gentil clin d'oeil à la petite algarade en cours ...
../..
Ce qui a beaucoup diminué ce sont les joutes excelliennes entre contributeurs
pour titiller l'autre sur sa solution.
../..
j'espére avoir bien interprété le sens de cette derniere citation ;o)))
--
--
@+
;o)))