Discussion :

[volubiliss]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci pour votre aide

[mercatog]

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.

[volubiliss]

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

Merci

[Gorfael]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[zyhack]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

bonne journée

[Gorfael]

Salut zyhack et le forum

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+

[zyhack]

Gorfael, un grand merci à toi

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

effectivement, grosse galère, 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 ce qui aurais été beaucoup plus laborieux en fin de projet.

encore merci de la remarque

[volubiliss]

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