Re : Comment indiquer dans quelles feuilles trouve-on telle valeur ?
bonjour JOB75,
En effet, une usine à gaz qui me permet de faire le point sur l'ensembles des missions réalisées.
J'ai besoin de connaitre le nombre d'heure et la date (semaine) enregistés pour tel ou tel mission.
J'ai commencé une ébauche de code, mais visiblement j'ai une erreur (1004).
Pour info, sur chacune des feuilles j'ai associée la cellule O5 au nom de la feuille.
Où est mon erreur ?
Sub Mission_feuille()
Dim mis As Range, sh As Worksheet, cel As Range,
For Each mis In Range("B8:B" & Range("B65536").End(xlUp).Row)
For Each sh In Worksheets
f = 7
If sh.Index > 6 Then
For Each cel In sh.Range("I11:I" & sh.Range("I65536").End(xlUp).Row)
If CStr(cel) = CStr(mis) Then sh.Cells(5, 15).Copy_
Destination = Worksheets("Affaires 2009").Cells(mis.Offset(0, f))
f = f + 1
Next cel
End If
Next sh
Next mis
End Sub
Merci d'avance