Boucle FOR NEXT

[Fadiese]

Bonjour

Je cherche à faire une boucle FOR - NEXT me permettant de selectionner
plusieurs feuilles d'un classeur pour effctuer une recherche

Merci

 

[Pascal76]

Bonjour

une boucle du style

for each ws in worksheets

if ws.name <>"toto" then

.....

End if

Next ws

Bon courage

Pascal

 

[Fadiese]

Bonjour Pascal

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

Merci

 

[Pascal76]

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

 

[Fadiese]

Bonjour Pascal

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

Merci
Fadiese

 

[Pascal76]

Bonjour

C parti

Pascal

 

[Fadiese]

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

 

[Pascal76]

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

 

[Fadiese]

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

Cdlt
Fadiese