Boucle FOR NEXT

Bonjour

une boucle du style

for each ws in worksheets

if ws.name <>"toto" then

.....

End if

Next ws

Bon courage

Pascal

Bonjour Pascal

Je te joins le codage
Comme tu vois je voudrais eviter le fait de repeter la recherche

Merci

Bon je t'ai surligné en jaune les ajouts

Mais bon ce n'est pas testé en format word c'est difficile

Bon courage

Pascal

Bonjour Pascal

Apparement le site me refuse le telechargement, peux tu m'envoyer le fichier sur ma BAL

Merci
Fadiese

Bonjour

C parti

Pascal

Apparement ce n'est pas le site mais le firewall qui bloque peux tu me remttre les lignes modifiees et simplement la premiere ligne de mon codage

Merci

voici le code

Sub Planning()
'
' Planning Macro


Dim NomUtil As Variant
Dim DateDeb, DateFin As Date
Dim Num, Nbre, MaCol As Integer

ChDir "C:\Conges"
Workbooks.Open FileName:="C:\Conges\Planning_prod_2004.xls"
Windows("Conges.xls").Activate

NomUtil = Range("C8").Value & " " & Range("C6").Value
DateDeb = Range("C14").Value
DateFin = Range("E14").Value

Windows("Planning_prod_2004.xls").Activate

For each ws in worksheets
If ws.name="Semestre1" or ws.name="Semestre2" then '<<<<Ligne que tu peux enlever si tu n'as que les 2 feuilles semestre1 et 2

Ws.select

Num = 5
For Each c In Range("A5:A25")
If LCase(c.Value) = LCase(NomUtil) Then
Nbre = Num
Else
Num = Num + 1
End If
Next c

MaCol = 2
For Each d In Range("B4:Z4")
If CDate(d.Value) = CDate(DateDeb) Then
ColDeb = MaCol
Else
MaCol = MaCol + 1
End If
Next d

MaCol = 2
For Each d In Range("B4:Z4")
If CDate(d.Value) = CDate(DateFin) Then
ColFin = MaCol
Else
MaCol = MaCol + 1
End If
Next d

If ColDeb <> "" Then
For boucle = ColDeb To ColFin
Cells(Nbre, boucle).Select
Selection.Style = "P_Conges"
Next boucle
End If

End if

Next ws


'ActiveWorkbook.Save
'ActiveWindow.Close

End Sub

Bon courage

Pascal

Ok merci Pascal pour ton aide et ta patience
ca marche
à une prochaine fois

Cdlt
Fadiese