Format cellule et recherches

Bonjour MrTea,


Réponse 1.

Soit une liste de tes noms regroupé sous une plage nommée "Liste"
Dans la colonne de droite, immédiatement à celle de la liste se retrouve
le nom de la feuille où apparaît ce nom.

Cette procédure doit se situer dans le feuille module où l'action se déroule ... c'est à dire la mise à jour de la
cellule contenant la liste de validation. Je crois me souvenir que dans certaines versions d'excel, la mise à jour de la
liste de validation ne déclenche pas l'événement "Worksheet_Change" ... si c'est le cas... il existe une parade, le cas
échéant !

'---------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

Dim A As Variant, S As Integer, G As Variant
A = Range("G1").Value
S = Application.Match(A, Range("liste"), 0)
G = Range("Liste")(s).Offset(, 1)
MsgBox "Le nom de la feuille est : " & G
End Sub
'---------------------------


Réponse 2.

Tu peux utiliser une mise en forme conditionnelle pour obtenir ce que tu veux :

Sélectionne A2, Barre des menus / format / Mise en forme conditonnelle /

La formule est : ¢-A1>7 et tu choisis le format que tu désires appliquer voir bouton format de la fenêtre.

Cette formule suppose que tes cellules contenant des dates sont dans un format "Date" que reconnaît excel.



Salutations!



"MrTea" <anonymous@discussions.microsoft.com> a écrit dans le message de news:170001c4b9c6$4775c460$a401280a@phx.gbl...
Question1:
J'ai un classeur avec une série de feuilles(60) dans
chacune de ces feuilles
apparaissent des noms qui proviennent d'une liste nomée
"Noms"
((Données->Autoriser:Liste de choix->Noms)
,la liste "noms" se trouvent dans une feuille a part nomées
"Données".
Je voudrais faire une recherche (et éventuellement la
sauvegarder dans une
feuille) pour savoir dans quelles feuilles on retrouve le
nom "Gaston"
La question étant difficille j'espere avoir été clair.

Question 2:
Quelle serait quelle serait la formule pour formater une
cellule en rouge si
la date affichée entre une cellule et une autre est soit
supérieur à 7 jours
ou est vide
Ex:A1:17/10/04 A2:19/10/04 Donc A2 reste blanche
A1:17/10/04 A2:Vide Donc A2 rouge
A1:10/10/04 A2:19/10/04 Donc A2 rouge

D'avance merci

Question1:
Je voudrais faire une recherche (et éventuellement la
sauvegarder dans une feuille) pour savoir dans quelles feuilles on retrouve le
nom "Gaston"

Sub Cherche_Gaston_Eperdument()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Sheets("LIST").Delete
Sheets.Add.Name = "LIST": x = 2
[A1] = "La Feuille": [B1] = "La Cellule"

Dim PremCell As String
Dim Cell As Range
For Each F In ActiveWorkbook.Worksheets
If F.Name = "LIST" Then GoTo suite:
Set Cell = F.Cells.Find("Gaston")
If Not Cell Is Nothing Then
PremCell = Cell.Address
Do
With Sheets("LIST")
.Cells(x, 1) = F.Name
.Cells(x, 2) = Cell.Address
End With
Set Cell = F.Cells.FindNext(Cell)
x = x + 1
Loop Until Cell.Address = PremCell
End If
suite:
Next
If x = 2 Then Sheets("LIST").Delete
Application.DisplayAlerts = True
End Sub

AV