Formule contient un caractere

Bonjour.

| - si la cellule A1 contient le caractère "(", afficher la cellule dans la
| cellule B1. (Eventuellemt effacer la cellule A1 par la même occasion)

en B1:
=SI(ESTERR(CHERCHE("(";A1));"";A1)

Pour effacer A1, il faut passer par VBA:

if instr(1, Range("A1"), "(", 0) <> 0 then
range("B1") = range("A1")
range("A1") = ""
end if

| - si la cellule A1 est en gras, afficher la cellule en B1

Je ne sais pas si c'est possible par une formule (Test sur police?)

En VBA:
if Range("A1").Font.Bold then
Range("B1") = Range("A1")Else
Range("B1") = ""
End If

| - si la cellule A1 a une couleur de fond, afficher "OK" en B1

Idem. Je ne sais pas faire par formule.

En VBA:

If Range("A1").Interior.ColorIndex <0 Then
Range("B1") = "OK"
Else
Range("B1") = ""
End If

|


Le code est à mettre dans une procédure événementielle de la feuille ou du classeur
(Worksheet_SelectionChange, Worksheet_Change, Workbook_SheetCalculate,
Workbook_SheetChange, ...)

@+

Yvan

Oups!

Je ne savais pas qu'en faisant un copier/coller, j'allais mettre le tableau de
couleurs en P.J.

Si tu n'y a pas accès, je le mets là: http://cjoint.com/?idp7cT88gG

(Mais il est de toute façon dans l'aide d'Excel.)

Mille excuses et à +.

Yvan


"Help Me" <yapasdemailici@dutout.com> a écrit dans le message de news:
42f0b8d0$0$6018$626a14ce@news.free.fr...
| Merci beaucoup pour ces macros et la 1ere formule
| A tout hasard, comment sur la derniere en VBA choisi t'on une couleur
| spécifique?
| Cordialement
|
|
| "Yvan" <yvan.echanges(enlever ceci)@free.fr> a écrit dans le message de
| news: %23G2lsdBmFHA.1416@TK2MSFTNGP09.phx.gbl...
| > Bonjour.
| >
| > | - si la cellule A1 contient le caractère "(", afficher la cellule dans
| > la
| > | cellule B1. (Eventuellemt effacer la cellule A1 par la même occasion)
| >
| > en B1:
| > =SI(ESTERR(CHERCHE("(";A1));"";A1)
| >
| > Pour effacer A1, il faut passer par VBA:
| >
| > if instr(1, Range("A1"), "(", 0) <> 0 then
| > range("B1") = range("A1")
| > range("A1") = ""
| > end if
| >
| > | - si la cellule A1 est en gras, afficher la cellule en B1
| >
| > Je ne sais pas si c'est possible par une formule (Test sur police?)
| >
| > En VBA:
| > if Range("A1").Font.Bold then
| > Range("B1") = Range("A1")Else
| > Range("B1") = ""
| > End If
| >
| > | - si la cellule A1 a une couleur de fond, afficher "OK" en B1
| >
| > Idem. Je ne sais pas faire par formule.
| >
| > En VBA:
| >
| > If Range("A1").Interior.ColorIndex <0 Then
| > Range("B1") = "OK"
| > Else
| > Range("B1") = ""
| > End If
| >
| > |
| >
| >
| > Le code est à mettre dans une procédure événementielle de la feuille ou du
| > classeur
| > (Worksheet_SelectionChange, Worksheet_Change, Workbook_SheetCalculate,
| > Workbook_SheetChange, ...)
| >
| > @+
| >
| > Yvan
| >
| >
|
|

Merci beaucoup pour ces macros et la 1ere formule
A tout hasard, comment sur la derniere en VBA choisi t'on une couleur
spécifique?
Cordialement


"Yvan" <yvan.echanges(enlever ceci)@free.fr> a écrit dans le message de
news: %23G2lsdBmFHA.1416@TK2MSFTNGP09.phx.gbl...

Bonjour.

| - si la cellule A1 contient le caractère "(", afficher la cellule dans
la
| cellule B1. (Eventuellemt effacer la cellule A1 par la même occasion)

en B1:
=SI(ESTERR(CHERCHE("(";A1));"";A1)

Pour effacer A1, il faut passer par VBA:

if instr(1, Range("A1"), "(", 0) <> 0 then
range("B1") = range("A1")
range("A1") = ""
end if

| - si la cellule A1 est en gras, afficher la cellule en B1

Je ne sais pas si c'est possible par une formule (Test sur police?)

En VBA:
if Range("A1").Font.Bold then
Range("B1") = Range("A1")Else
Range("B1") = ""
End If

| - si la cellule A1 a une couleur de fond, afficher "OK" en B1

Idem. Je ne sais pas faire par formule.

En VBA:

If Range("A1").Interior.ColorIndex <0 Then
Range("B1") = "OK"
Else
Range("B1") = ""
End If

|


Le code est à mettre dans une procédure événementielle de la feuille ou du
classeur
(Worksheet_SelectionChange, Worksheet_Change, Workbook_SheetCalculate,
Workbook_SheetChange, ...)

@+

Yvan