condition entre deux cellules puis afficher nom de

[RoadRunner]

Bonjour,

explication :

j'ai un classeur de 20 feuilles qui portent chacune un nom différent.
dans chaque feuilles, j'ai deux cellules (toujours les memes) B100 et C100, qui contienne une valeur en minute et seconde (ex : 00:26 et 00:20)

problème :

dans une 21eme feuille, je voudrai afficher le nom des feuilles dans lesquelles B100 est supérieur à C100.( et rien si ce n'est pas le cas)

ex : 'feuille1' B100 est > à C100 (B100=00:26 et C100=00:20)
'feuille2' B100 est > à C100 (B100=00:32 et C100=00:23)
'feuille7' B100 est > à C100 (B100=00:45 et C100=00:19)

donc dans la feuille 21 je voudrai afficher :

'feuille1' en cellule B1 et les valeurs 00:26 et 00:20 dans les cellules C1 et D1
et
'feuille2' en cellule B2 et les valeurs 00:32 et 00:23 dans les cellules C2 et D2
'feuille7' en cellule B7 et les valeurs 00:45 et 00:19 dans les cellules C7 et D7

J'espère avoir été clair dans mon explication et vous remercie d'avance de votre aide...

à bientot

 

[Farid]

Bonjour RoadRunner,

J'espère que j'ai bien compris ta demande et si tel est le cas, tu trouveras la solution dans le fichier joint.
Il ne reste plus qu'à copier les formules pour les Feuil8 à Feuil20 en remplaçant le nom des feuilles dans les cellules des colonnes B,C et D.

N'hésite pas si besoin
Farid [file name=RoadRunner.zip size=2087]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RoadRunner.zip[/file]

 

[Bebere]

bonjour RoadRunner,Fari

une solution avec vba

Sub NomFeuil()
Dim Sh As Integer, L As Integer
For Sh = 1 To Sheets.Count - 1
Nom = Sheets('Feuil' & Sh).Name
If Sheets(Nom).Range('B100').Value > Sheets(Nom).Range('C100').Value Then
L = L + 1
Sheets('Feuil21').Range('B' & L).Value = Nom
Sheets('Feuil21').Range('C' & L).Value = Sheets(Nom).Range('B100').Formula
Sheets('Feuil21').Range('D' & L).Value = Sheets(Nom).Range('C100').Formula
Sheets('Feuil21').Range('C' & L).NumberFormat = 'mm:ss'
Sheets('Feuil21').Range('D' & L).NumberFormat = 'mm:ss'
End If
Next Sh
End Sub

 

[RoadRunner]

Re:condition entre deux cellules puis afficher nom

Re

Merci aux deux réponses...

j'utiliserai la première car je ne comprends pas grand chose au vba

merci encore !