création d'un colonne formule sous vba

Bonsoir
Je commence mon apprentissage de vba, et je bloque sur la manière de conduire la logique d'une routine je m'explique:
j'ai sur une feuille excel 2 colonnes A et B
la colonne A comporte une série de nombre.
En fonction du nombre dans la colonne A - dans la colonne B, je voudrais intégrer une formule qui permette lorsque j'écris "OK" sur une des cellules de cette colonne qu'elle se remplisse de couleur jaune (interior.colorIndex=4) la seule chose que je puisse faire a mon niveau de novice c'est de selectionner une plage d'un nombre égal de cellules entre la colonne A et B comment puis je faire pour intégrer une formule pour la colonne B

Code:

---

1 2 3 4

Sub test()   Range("A1").Select Range(Selection, Selection.End(xlDown)).Offset(-1, 1)

---

Merci pour votre aide

Bonjour Si Brahim,
C'est incompréhensible; j'ai beau tourné pour comprendre un minimum de choses mais en vain.
Si vous pouvez expliquer avec des phrases claires et concises, ça serait plus facile de t'aider.

bonsoir
en effet je me rend compte que ce n'est pas très clair
pour simplifier je voudrai savoir comment intégrer à une colonne entière une formule qui puisse permettre de colorer une cellule quand t'on y écris un terme ( en l'occurence ici "OK" )
En fait il sagit de faire interagir le terme OK avec une cellule coloré dans la colonne B j'espère que c'est plus clair :roll:

Merci

Salut volubiliss et le forum
Clic-droit sur le nom d'onglet>>Visualiser le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Worksheet_Change(ByVal Target As Range) Dim Cel As Range, Plage As Range If Intersect(Target, Columns(2)) Is Nothing Then Exit Sub Set Plage = Intersect(Target, Columns(2)) For Each Cel In Plage If UCase(Cel) = "OK" Then Cel.Interior.ColorIndex = 4 Else Cel.Interior.ColorIndex = xlNone End If Next Cel End Sub

---

Si tu inscris OK en colonne B, la cellule se colore en very sinon elle devient automatique.
Une pseudo MFC, pas aussi performante qu'une MFC, mais permettant d'utiliser la couleur de fond, ce que ne permet pas une MFC.
A+

Bonjour volubiliss, Gorfael

il y a aussi moyen de creer une mise en forme conditionnelle sur la colonne B, ce code n'a besoin d'être executer qu'une fois au démarrage

Code:

---

1 2 3 4 5

With Columns("B:B") .FormatConditions.Delete .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""OK""" .FormatConditions(1).Interior.ColorIndex = 4 End With

---

Citation:

---

Une pseudo MFC, pas aussi performante qu'une MFC, mais permettant d'utiliser la couleur de fond, ce que ne permet pas une MFC.

---

Sans vouloir te contredir Gorfael la MFC modifie aussi la couleur du fond :ccool:

bonne journée

ca marche très bien
Merci infiniment pour votre aide !

Salut zyhack et le forum

Citation:

---

Sans vouloir te contredir Gorfael la MFC modifie aussi la couleur du fond

---

Fait donc un comptage par VBA des cellules mises en couleur de fond rouge par MFC, et on en reparle.
A+

Gorfael, un grand merci à toi

Citation:

---

Fait donc un comptage par VBA des cellules mises en couleur de fond rouge par MFC, et on en reparle.

---

effectivement, grosse galère:calim2:, je suis actuellement sur un gros projet pour mon boulot et j'étais partis sur la mauvaise solution, j'ai passé deux heures à faire des recherches sur internet et une de plus à effectuer les modifications dans mon programme:aie: ce qui aurais été beaucoup plus laborieux en fin de projet.

encore merci de la remarque :ccool:

Salut zyhack et le forum

Citation:

---

j'étais partis sur la mauvaise solution

---

Pas forcemment : Il faut simplement garder à l'esprit que ce qui sert à l'affichage ne concerne souvent que l'affichage et qu'il ne faut pas toujours en tenir compte quand tu passes en VBA. Les MFC ne sont qu'un exemple.
A+