Discussion :

[captaine93]

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.

[argyronet]

Bonjour,

Pour ta première question, voici une solution:

Code :

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

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

[captaine93]

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

Code :

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

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 !

[argyronet]

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

[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 !

[SfJ5Rpw8]

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 !

un truc dans le genre :

Code :

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

1
2
3
4
5
6
 w = Dir("Rps*.xls")
  While w <> ""
    Workbooks.Open w
 
   w = Dir
  Wend

[captaine93]

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