[VBA-E] Mise en forme conditionelle

Version imprimable

22/09/2005, 15h45
captaine93

[VBA-E] Mise en forme conditionelle

bonjour !
J aimerai surligner toutes les cellules d'une colonne qui contiennent T1...
Mes cellules se nomment 3061T1,2 ; 3061T2,2.....
Excel ne permet pas de faire ca directement donc qqn a t il une ptite idée.
J aimerai aussi savoir comment appeler tous les fichiers contenant...ex :dans un meme dossier, j ai des fichiers nommés Rpsng1, Rps1, Rpsng2, Rps2...je voudrais juste ouvrir les fichiers Rpsng...
Je sais que ce sont des questions de gros novices mais je n'ai pas trouvé mon bonheur sur les différents forums.
Merci à tous d'avance. :roll:

Bonjour,

Pour ta première question, voici une solution:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub ColorierCellule(ByVal Critere As String, ByVal ColonneNo As Integer, ByVal Couleur As Integer)
Dim oPlage As Range
Dim oCellule As Range
 
    Columns(ColonneNo).Select
    Set oPlage = Selection
    For Each oCellule In oPlage
      If oCellule.Row > oCellule.SpecialCells(xlCellTypeLastCell).Row Then Exit Sub
      If InStr(1, oCellule.Value, Critere, vbTextCompare) Then
            With oCellule.Interior
                .ColorIndex = Couleur
                .Pattern = xlSolid
            End With
      End If
    Next
    Set oPlage = Nothing
End Sub
 
Sub Exemple()
Const JAUNE = 6
  '5 = Colonne E
  ColorierCellule "T1", 5, JAUNE
End Sub

Pour ta seconde, j'ai pas bien compris ce que tu veux...

Argy

salut !
En fait j ai trouvé + court pour ma première question (mise en forme conditionnelle)...voici :
Code:

1 2 3 4 5 6 Columns("A:A").Select Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=TROUVE(""T1"";A1:A1000)" Selection.FormatConditions(1).Interior.ColorIndex = 27 End Sub
Quant à ma 2ème question, je voudrais la commande qui permet d'ouvrir tous les fichiers d'un dossier commencant par "Rps"...donc un truc genre dir (Rps*) mais j ai pas la bonne syntaxe...

Merci à tous ceux qui m'aideront ! :lol:

23/09/2005, 10h28
argyronet

Citation:

Envoyé par captaine93

je voudrais la commande qui permet d'ouvrir tous les fichiers d'un dossier commencant par "Rps"...

1/ Les ouvrir tous ensemble ?
2/ Ce sont des fichiers Excel ?

Argy
23/09/2005, 14h08
captaine93

bonjour !
Désolé pour le manque de précisions...
Je voudrais ouvrir tous les fichiers en meme temps...(y a 5-6 fichiers en général)
Oui ce sont des fichiers au format excel.
Merci de ton aide ! :lol:
23/09/2005, 14h28
SfJ5Rpw8
Citation:

Envoyé par captaine93

bonjour !
Désolé pour le manque de précisions...
Je voudrais ouvrir tous les fichiers en meme temps...(y a 5-6 fichiers en général)
Oui ce sont des fichiers au format excel.
Merci de ton aide ! :lol:

un truc dans le genre :
Code:

1 2 3 4 5 6 w = Dir("Rps*.xls") While w <> "" Workbooks.Open w w = Dir Wend
:wink:
23/09/2005, 15h55
captaine93

c'est tout à fait ça !
Merci à toi :D :o 8)
Longue vie au forum !