Bonsoir ,
Je relance un nouveau post
Philippe ayant saturé sur mon cas et je peux le comprendre, alors merci aux
bonnes ames pleines de compassion qui pourraient terminer de m'aider...
Je re-explique brievement
liste produits une page qui recapitule tous les produits dispo
si les lignes sont utiles la colonne A affiche "oui " dans ce cas sur la
feuille "cmptage stock" (presque identique a "liste produits") les lignes
notées oui sont visibles et si "non" sont masquées
dans les pages cadencier pur classees surgeles, 'viandes plat salades' ,
fromage dessert, sec, frais generaux... chaque prdt utilise 6 colonnes qui
doivent etre masquees aussi si "non"dans "liste produits"
J'ai remis le code a la fin du message et le probleme est que
tout se deroule bien pour page 'surgeles' puis 'viandes plat salades' et sur
'fromage dessert' alors que le code est le meme tout foctionne jusqu'à ce
que i8 (c"2) et là j'ai un message :
erreur 1004
erreur definie par l'application ou par l'objet
J'ai executé en pas a pas mais je vois pas ce qui cloche...
Merci de m'aider une fois de plus
Lionel
Dim i As Integer, c As Integer
For i = 2 To 42 ' Surgeles
If Sheets("Liste Produits").Range("a" & i) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden = False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SURGELES").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden = True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SURGELES").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' VIANDES PLATS SALADES
If Sheets("Liste Produits").Range("a" & i + 42) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 42).EntireRow.Hidden > False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden > False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 42).EntireRow.Hidden > True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' FROMAGES DESSERTS
If Sheets("Liste Produits").Range("a" & i + 84) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 84).EntireRow.Hidden > False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 84).EntireRow.Hidden > True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' SEC
If Sheets("Liste Produits").Range("a" & i + 126) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 126).EntireRow.Hidden > False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SEC").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 126).EntireRow.Hidden > True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SEC").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' FRAIS GENERAUX
If Sheets("Liste Produits").Range("a" & i + 169) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 169).EntireRow.Hidden > False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 169).EntireRow.Hidden > True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
End Sub
Cordialement Lionel
Bonsoir ,
Je relance un nouveau post
Philippe ayant saturé sur mon cas et je peux le comprendre, alors merci aux
bonnes ames pleines de compassion qui pourraient terminer de m'aider...
Je re-explique brievement
liste produits une page qui recapitule tous les produits dispo
si les lignes sont utiles la colonne A affiche "oui " dans ce cas sur la
feuille "cmptage stock" (presque identique a "liste produits") les lignes
notées oui sont visibles et si "non" sont masquées
dans les pages cadencier pur classees surgeles, 'viandes plat salades' ,
fromage dessert, sec, frais generaux... chaque prdt utilise 6 colonnes qui
doivent etre masquees aussi si "non"dans "liste produits"
J'ai remis le code a la fin du message et le probleme est que
tout se deroule bien pour page 'surgeles' puis 'viandes plat salades' et sur
'fromage dessert' alors que le code est le meme tout foctionne jusqu'à ce
que i8 (c"2) et là j'ai un message :
erreur 1004
erreur definie par l'application ou par l'objet
J'ai executé en pas a pas mais je vois pas ce qui cloche...
Merci de m'aider une fois de plus
Lionel
Dim i As Integer, c As Integer
For i = 2 To 42 ' Surgeles
If Sheets("Liste Produits").Range("a" & i) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden = False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SURGELES").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden = True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SURGELES").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' VIANDES PLATS SALADES
If Sheets("Liste Produits").Range("a" & i + 42) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 42).EntireRow.Hidden > False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden > False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 42).EntireRow.Hidden > True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' FROMAGES DESSERTS
If Sheets("Liste Produits").Range("a" & i + 84) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 84).EntireRow.Hidden > False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 84).EntireRow.Hidden > True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' SEC
If Sheets("Liste Produits").Range("a" & i + 126) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 126).EntireRow.Hidden > False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SEC").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 126).EntireRow.Hidden > True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SEC").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' FRAIS GENERAUX
If Sheets("Liste Produits").Range("a" & i + 169) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 169).EntireRow.Hidden > False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 169).EntireRow.Hidden > True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
End Sub
Cordialement Lionel
Bonsoir ,
Je relance un nouveau post
Philippe ayant saturé sur mon cas et je peux le comprendre, alors merci aux
bonnes ames pleines de compassion qui pourraient terminer de m'aider...
Je re-explique brievement
liste produits une page qui recapitule tous les produits dispo
si les lignes sont utiles la colonne A affiche "oui " dans ce cas sur la
feuille "cmptage stock" (presque identique a "liste produits") les lignes
notées oui sont visibles et si "non" sont masquées
dans les pages cadencier pur classees surgeles, 'viandes plat salades' ,
fromage dessert, sec, frais generaux... chaque prdt utilise 6 colonnes qui
doivent etre masquees aussi si "non"dans "liste produits"
J'ai remis le code a la fin du message et le probleme est que
tout se deroule bien pour page 'surgeles' puis 'viandes plat salades' et sur
'fromage dessert' alors que le code est le meme tout foctionne jusqu'à ce
que i8 (c"2) et là j'ai un message :
erreur 1004
erreur definie par l'application ou par l'objet
J'ai executé en pas a pas mais je vois pas ce qui cloche...
Merci de m'aider une fois de plus
Lionel
Dim i As Integer, c As Integer
For i = 2 To 42 ' Surgeles
If Sheets("Liste Produits").Range("a" & i) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden = False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SURGELES").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden = True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SURGELES").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' VIANDES PLATS SALADES
If Sheets("Liste Produits").Range("a" & i + 42) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 42).EntireRow.Hidden > False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden > False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 42).EntireRow.Hidden > True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' FROMAGES DESSERTS
If Sheets("Liste Produits").Range("a" & i + 84) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 84).EntireRow.Hidden > False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 84).EntireRow.Hidden > True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' SEC
If Sheets("Liste Produits").Range("a" & i + 126) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 126).EntireRow.Hidden > False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SEC").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 126).EntireRow.Hidden > True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SEC").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' FRAIS GENERAUX
If Sheets("Liste Produits").Range("a" & i + 169) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 169).EntireRow.Hidden > False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 169).EntireRow.Hidden > True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
End Sub
Cordialement Lionel
bonjour Lionel,
peut être vaudrait t'il mieux publier le fichier sur ci-joint pour que
l'on puisse visualiser le problème dans son ensemble,
à te lire
isabelle
Lionel a écrit :
> Bonsoir ,
> Je relance un nouveau post
> Philippe ayant saturé sur mon cas et je peux le comprendre, alors merci
> bonnes ames pleines de compassion qui pourraient terminer de m'aider...
> Je re-explique brievement
> liste produits une page qui recapitule tous les produits dispo
> si les lignes sont utiles la colonne A affiche "oui " dans ce cas sur
> feuille "cmptage stock" (presque identique a "liste produits") les
> notées oui sont visibles et si "non" sont masquées
> dans les pages cadencier pur classees surgeles, 'viandes plat salades'
> fromage dessert, sec, frais generaux... chaque prdt utilise 6 colonnes
> doivent etre masquees aussi si "non"dans "liste produits"
> J'ai remis le code a la fin du message et le probleme est que
> tout se deroule bien pour page 'surgeles' puis 'viandes plat salades' et
> 'fromage dessert' alors que le code est le meme tout foctionne jusqu'à
> que i8 (c"2) et là j'ai un message :
> erreur 1004
> erreur definie par l'application ou par l'objet
>
> J'ai executé en pas a pas mais je vois pas ce qui cloche...
> Merci de m'aider une fois de plus
> Lionel
>
> Dim i As Integer, c As Integer
> For i = 2 To 42 ' Surgeles
> If Sheets("Liste Produits").Range("a" & i) = "Oui" Then
> Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden False
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("SURGELES").Columns(c).EntireColumn.Hidden = False
> Next
> Else
> Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden True
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("SURGELES").Columns(c).EntireColumn.Hidden = True
> Next
> End If
> Next i
> For i = 2 To 42 ' VIANDES PLATS SALADES
> If Sheets("Liste Produits").Range("a" & i + 42) = "Oui" Then
> Sheets("Feuille de comptage stock").Rows(i + 42).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden > > False
> Next
> Else
> Sheets("Feuille de comptage stock").Rows(i + 42).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden True
> Next
> End If
> Next i
> For i = 2 To 42 ' FROMAGES DESSERTS
> If Sheets("Liste Produits").Range("a" & i + 84) = "Oui" Then
> Sheets("Feuille de comptage stock").Rows(i + 84).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden False
> Next
> Else
> Sheets("Feuille de comptage stock").Rows(i + 84).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden = True
> Next
> End If
> Next i
> For i = 2 To 42 ' SEC
> If Sheets("Liste Produits").Range("a" & i + 126) = "Oui" Then
> Sheets("Feuille de comptage stock").Rows(i + 126).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("SEC").Columns(c).EntireColumn.Hidden = False
> Next
> Else
> Sheets("Feuille de comptage stock").Rows(i + 126).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("SEC").Columns(c).EntireColumn.Hidden = True
> Next
> End If
> Next i
> For i = 2 To 42 ' FRAIS GENERAUX
> If Sheets("Liste Produits").Range("a" & i + 169) = "Oui" Then
> Sheets("Feuille de comptage stock").Rows(i + 169).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = False
> Next
> Else
> Sheets("Feuille de comptage stock").Rows(i + 169).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = True
> Next
> End If
> Next i
> End Sub
>
> Cordialement Lionel
>
>
>
bonjour Lionel,
peut être vaudrait t'il mieux publier le fichier sur ci-joint pour que
l'on puisse visualiser le problème dans son ensemble,
à te lire
isabelle
Lionel a écrit :
> Bonsoir ,
> Je relance un nouveau post
> Philippe ayant saturé sur mon cas et je peux le comprendre, alors merci
> bonnes ames pleines de compassion qui pourraient terminer de m'aider...
> Je re-explique brievement
> liste produits une page qui recapitule tous les produits dispo
> si les lignes sont utiles la colonne A affiche "oui " dans ce cas sur
> feuille "cmptage stock" (presque identique a "liste produits") les
> notées oui sont visibles et si "non" sont masquées
> dans les pages cadencier pur classees surgeles, 'viandes plat salades'
> fromage dessert, sec, frais generaux... chaque prdt utilise 6 colonnes
> doivent etre masquees aussi si "non"dans "liste produits"
> J'ai remis le code a la fin du message et le probleme est que
> tout se deroule bien pour page 'surgeles' puis 'viandes plat salades' et
> 'fromage dessert' alors que le code est le meme tout foctionne jusqu'à
> que i8 (c"2) et là j'ai un message :
> erreur 1004
> erreur definie par l'application ou par l'objet
>
> J'ai executé en pas a pas mais je vois pas ce qui cloche...
> Merci de m'aider une fois de plus
> Lionel
>
> Dim i As Integer, c As Integer
> For i = 2 To 42 ' Surgeles
> If Sheets("Liste Produits").Range("a" & i) = "Oui" Then
> Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden False
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("SURGELES").Columns(c).EntireColumn.Hidden = False
> Next
> Else
> Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden True
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("SURGELES").Columns(c).EntireColumn.Hidden = True
> Next
> End If
> Next i
> For i = 2 To 42 ' VIANDES PLATS SALADES
> If Sheets("Liste Produits").Range("a" & i + 42) = "Oui" Then
> Sheets("Feuille de comptage stock").Rows(i + 42).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden > > False
> Next
> Else
> Sheets("Feuille de comptage stock").Rows(i + 42).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden True
> Next
> End If
> Next i
> For i = 2 To 42 ' FROMAGES DESSERTS
> If Sheets("Liste Produits").Range("a" & i + 84) = "Oui" Then
> Sheets("Feuille de comptage stock").Rows(i + 84).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden False
> Next
> Else
> Sheets("Feuille de comptage stock").Rows(i + 84).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden = True
> Next
> End If
> Next i
> For i = 2 To 42 ' SEC
> If Sheets("Liste Produits").Range("a" & i + 126) = "Oui" Then
> Sheets("Feuille de comptage stock").Rows(i + 126).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("SEC").Columns(c).EntireColumn.Hidden = False
> Next
> Else
> Sheets("Feuille de comptage stock").Rows(i + 126).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("SEC").Columns(c).EntireColumn.Hidden = True
> Next
> End If
> Next i
> For i = 2 To 42 ' FRAIS GENERAUX
> If Sheets("Liste Produits").Range("a" & i + 169) = "Oui" Then
> Sheets("Feuille de comptage stock").Rows(i + 169).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = False
> Next
> Else
> Sheets("Feuille de comptage stock").Rows(i + 169).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = True
> Next
> End If
> Next i
> End Sub
>
> Cordialement Lionel
>
>
>
bonjour Lionel,
peut être vaudrait t'il mieux publier le fichier sur ci-joint pour que
l'on puisse visualiser le problème dans son ensemble,
à te lire
isabelle
Lionel a écrit :
> Bonsoir ,
> Je relance un nouveau post
> Philippe ayant saturé sur mon cas et je peux le comprendre, alors merci
> bonnes ames pleines de compassion qui pourraient terminer de m'aider...
> Je re-explique brievement
> liste produits une page qui recapitule tous les produits dispo
> si les lignes sont utiles la colonne A affiche "oui " dans ce cas sur
> feuille "cmptage stock" (presque identique a "liste produits") les
> notées oui sont visibles et si "non" sont masquées
> dans les pages cadencier pur classees surgeles, 'viandes plat salades'
> fromage dessert, sec, frais generaux... chaque prdt utilise 6 colonnes
> doivent etre masquees aussi si "non"dans "liste produits"
> J'ai remis le code a la fin du message et le probleme est que
> tout se deroule bien pour page 'surgeles' puis 'viandes plat salades' et
> 'fromage dessert' alors que le code est le meme tout foctionne jusqu'à
> que i8 (c"2) et là j'ai un message :
> erreur 1004
> erreur definie par l'application ou par l'objet
>
> J'ai executé en pas a pas mais je vois pas ce qui cloche...
> Merci de m'aider une fois de plus
> Lionel
>
> Dim i As Integer, c As Integer
> For i = 2 To 42 ' Surgeles
> If Sheets("Liste Produits").Range("a" & i) = "Oui" Then
> Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden False
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("SURGELES").Columns(c).EntireColumn.Hidden = False
> Next
> Else
> Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden True
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("SURGELES").Columns(c).EntireColumn.Hidden = True
> Next
> End If
> Next i
> For i = 2 To 42 ' VIANDES PLATS SALADES
> If Sheets("Liste Produits").Range("a" & i + 42) = "Oui" Then
> Sheets("Feuille de comptage stock").Rows(i + 42).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden > > False
> Next
> Else
> Sheets("Feuille de comptage stock").Rows(i + 42).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden True
> Next
> End If
> Next i
> For i = 2 To 42 ' FROMAGES DESSERTS
> If Sheets("Liste Produits").Range("a" & i + 84) = "Oui" Then
> Sheets("Feuille de comptage stock").Rows(i + 84).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden False
> Next
> Else
> Sheets("Feuille de comptage stock").Rows(i + 84).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden = True
> Next
> End If
> Next i
> For i = 2 To 42 ' SEC
> If Sheets("Liste Produits").Range("a" & i + 126) = "Oui" Then
> Sheets("Feuille de comptage stock").Rows(i + 126).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("SEC").Columns(c).EntireColumn.Hidden = False
> Next
> Else
> Sheets("Feuille de comptage stock").Rows(i + 126).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("SEC").Columns(c).EntireColumn.Hidden = True
> Next
> End If
> Next i
> For i = 2 To 42 ' FRAIS GENERAUX
> If Sheets("Liste Produits").Range("a" & i + 169) = "Oui" Then
> Sheets("Feuille de comptage stock").Rows(i + 169).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = False
> Next
> Else
> Sheets("Feuille de comptage stock").Rows(i + 169).EntireRow.Hidden
> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
> Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = True
> Next
> End If
> Next i
> End Sub
>
> Cordialement Lionel
>
>
>
Bonjour,
Voila le fichier zippé pour un probleme de poids !
http://www.cijoint.fr/cjlink.php?file=cj200912/cijJgFdOAS.zip
Merci pour l'aide et l'attention apportées
Lionel
"isabelle" a écrit dans le message de
news:%bonjour Lionel,
peut être vaudrait t'il mieux publier le fichier sur ci-joint pour que
l'on puisse visualiser le problème dans son ensemble,
à te lire
isabelle
Lionel a écrit :Bonsoir ,
Je relance un nouveau post
Philippe ayant saturé sur mon cas et je peux le comprendre, alors merci
auxbonnes ames pleines de compassion qui pourraient terminer de m'aider...
Je re-explique brievement
liste produits une page qui recapitule tous les produits dispo
si les lignes sont utiles la colonne A affiche "oui " dans ce cas sur
lafeuille "cmptage stock" (presque identique a "liste produits") les
lignesnotées oui sont visibles et si "non" sont masquées
dans les pages cadencier pur classees surgeles, 'viandes plat salades'
,fromage dessert, sec, frais generaux... chaque prdt utilise 6 colonnes
quidoivent etre masquees aussi si "non"dans "liste produits"
J'ai remis le code a la fin du message et le probleme est que
tout se deroule bien pour page 'surgeles' puis 'viandes plat salades' et
sur'fromage dessert' alors que le code est le meme tout foctionne jusqu'à
ceque i8 (c"2) et là j'ai un message :
erreur 1004
erreur definie par l'application ou par l'objet
J'ai executé en pas a pas mais je vois pas ce qui cloche...
Merci de m'aider une fois de plus
Lionel
Dim i As Integer, c As Integer
For i = 2 To 42 ' Surgeles
If Sheets("Liste Produits").Range("a" & i) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden > False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SURGELES").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden > True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SURGELES").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' VIANDES PLATS SALADES
If Sheets("Liste Produits").Range("a" & i + 42) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 42).EntireRow.Hidden
>>> FalseFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden >>> False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 42).EntireRow.Hidden
>>> TrueFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden > True
Next
End If
Next i
For i = 2 To 42 ' FROMAGES DESSERTS
If Sheets("Liste Produits").Range("a" & i + 84) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 84).EntireRow.Hidden
>>> FalseFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden > False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 84).EntireRow.Hidden
>>> TrueFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' SEC
If Sheets("Liste Produits").Range("a" & i + 126) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 126).EntireRow.Hidden
>>> FalseFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SEC").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 126).EntireRow.Hidden
>>> TrueFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SEC").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' FRAIS GENERAUX
If Sheets("Liste Produits").Range("a" & i + 169) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 169).EntireRow.Hidden
>>> FalseFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 169).EntireRow.Hidden
>>> TrueFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
End Sub
Cordialement Lionel
Bonjour,
Voila le fichier zippé pour un probleme de poids !
http://www.cijoint.fr/cjlink.php?file=cj200912/cijJgFdOAS.zip
Merci pour l'aide et l'attention apportées
Lionel
"isabelle" <i@v> a écrit dans le message de
news:%23p22BWgfKHA.5228@TK2MSFTNGP06.phx.gbl...
bonjour Lionel,
peut être vaudrait t'il mieux publier le fichier sur ci-joint pour que
l'on puisse visualiser le problème dans son ensemble,
à te lire
isabelle
Lionel a écrit :
Bonsoir ,
Je relance un nouveau post
Philippe ayant saturé sur mon cas et je peux le comprendre, alors merci
aux
bonnes ames pleines de compassion qui pourraient terminer de m'aider...
Je re-explique brievement
liste produits une page qui recapitule tous les produits dispo
si les lignes sont utiles la colonne A affiche "oui " dans ce cas sur
la
feuille "cmptage stock" (presque identique a "liste produits") les
lignes
notées oui sont visibles et si "non" sont masquées
dans les pages cadencier pur classees surgeles, 'viandes plat salades'
,
fromage dessert, sec, frais generaux... chaque prdt utilise 6 colonnes
qui
doivent etre masquees aussi si "non"dans "liste produits"
J'ai remis le code a la fin du message et le probleme est que
tout se deroule bien pour page 'surgeles' puis 'viandes plat salades' et
sur
'fromage dessert' alors que le code est le meme tout foctionne jusqu'à
ce
que i8 (c"2) et là j'ai un message :
erreur 1004
erreur definie par l'application ou par l'objet
J'ai executé en pas a pas mais je vois pas ce qui cloche...
Merci de m'aider une fois de plus
Lionel
Dim i As Integer, c As Integer
For i = 2 To 42 ' Surgeles
If Sheets("Liste Produits").Range("a" & i) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden > False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SURGELES").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden > True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SURGELES").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' VIANDES PLATS SALADES
If Sheets("Liste Produits").Range("a" & i + 42) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 42).EntireRow.Hidden
>>> False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden >>> False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 42).EntireRow.Hidden
>>> True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden > True
Next
End If
Next i
For i = 2 To 42 ' FROMAGES DESSERTS
If Sheets("Liste Produits").Range("a" & i + 84) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 84).EntireRow.Hidden
>>> False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden > False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 84).EntireRow.Hidden
>>> True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' SEC
If Sheets("Liste Produits").Range("a" & i + 126) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 126).EntireRow.Hidden
>>> False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SEC").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 126).EntireRow.Hidden
>>> True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SEC").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' FRAIS GENERAUX
If Sheets("Liste Produits").Range("a" & i + 169) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 169).EntireRow.Hidden
>>> False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 169).EntireRow.Hidden
>>> True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
End Sub
Cordialement Lionel
Bonjour,
Voila le fichier zippé pour un probleme de poids !
http://www.cijoint.fr/cjlink.php?file=cj200912/cijJgFdOAS.zip
Merci pour l'aide et l'attention apportées
Lionel
"isabelle" a écrit dans le message de
news:%bonjour Lionel,
peut être vaudrait t'il mieux publier le fichier sur ci-joint pour que
l'on puisse visualiser le problème dans son ensemble,
à te lire
isabelle
Lionel a écrit :Bonsoir ,
Je relance un nouveau post
Philippe ayant saturé sur mon cas et je peux le comprendre, alors merci
auxbonnes ames pleines de compassion qui pourraient terminer de m'aider...
Je re-explique brievement
liste produits une page qui recapitule tous les produits dispo
si les lignes sont utiles la colonne A affiche "oui " dans ce cas sur
lafeuille "cmptage stock" (presque identique a "liste produits") les
lignesnotées oui sont visibles et si "non" sont masquées
dans les pages cadencier pur classees surgeles, 'viandes plat salades'
,fromage dessert, sec, frais generaux... chaque prdt utilise 6 colonnes
quidoivent etre masquees aussi si "non"dans "liste produits"
J'ai remis le code a la fin du message et le probleme est que
tout se deroule bien pour page 'surgeles' puis 'viandes plat salades' et
sur'fromage dessert' alors que le code est le meme tout foctionne jusqu'à
ceque i8 (c"2) et là j'ai un message :
erreur 1004
erreur definie par l'application ou par l'objet
J'ai executé en pas a pas mais je vois pas ce qui cloche...
Merci de m'aider une fois de plus
Lionel
Dim i As Integer, c As Integer
For i = 2 To 42 ' Surgeles
If Sheets("Liste Produits").Range("a" & i) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden > False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SURGELES").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden > True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SURGELES").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' VIANDES PLATS SALADES
If Sheets("Liste Produits").Range("a" & i + 42) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 42).EntireRow.Hidden
>>> FalseFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden >>> False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 42).EntireRow.Hidden
>>> TrueFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden > True
Next
End If
Next i
For i = 2 To 42 ' FROMAGES DESSERTS
If Sheets("Liste Produits").Range("a" & i + 84) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 84).EntireRow.Hidden
>>> FalseFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden > False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 84).EntireRow.Hidden
>>> TrueFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' SEC
If Sheets("Liste Produits").Range("a" & i + 126) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 126).EntireRow.Hidden
>>> FalseFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SEC").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 126).EntireRow.Hidden
>>> TrueFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SEC").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' FRAIS GENERAUX
If Sheets("Liste Produits").Range("a" & i + 169) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i + 169).EntireRow.Hidden
>>> FalseFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i + 169).EntireRow.Hidden
>>> TrueFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
End Sub
Cordialement Lionel
Bonjour Lionel,
J'ai fait tourner la mise à jour et n'ai rencontré aucun problème
Philippe
Lionel a écrit :Bonjour,
Voila le fichier zippé pour un probleme de poids !
http://www.cijoint.fr/cjlink.php?file=cj200912/cijJgFdOAS.zip
Merci pour l'aide et l'attention apportées
Lionel
"isabelle" a écrit dans le message de
news:%bonjour Lionel,
peut être vaudrait t'il mieux publier le fichier sur ci-joint pour que
l'on puisse visualiser le problème dans son ensemble,
à te lire
isabelle
Lionel a écrit :Bonsoir ,
Je relance un nouveau post
Philippe ayant saturé sur mon cas et je peux le comprendre, alors
merci
auxbonnes ames pleines de compassion qui pourraient terminer de
m'aider...
Je re-explique brievement
liste produits une page qui recapitule tous les produits dispo
si les lignes sont utiles la colonne A affiche "oui " dans ce cas sur
lafeuille "cmptage stock" (presque identique a "liste produits") les
lignesnotées oui sont visibles et si "non" sont masquées
dans les pages cadencier pur classees surgeles, 'viandes plat
salades'
,fromage dessert, sec, frais generaux... chaque prdt utilise 6 colonnes
quidoivent etre masquees aussi si "non"dans "liste produits"
J'ai remis le code a la fin du message et le probleme est que
tout se deroule bien pour page 'surgeles' puis 'viandes plat
salades' et
sur'fromage dessert' alors que le code est le meme tout foctionne jusqu'à
ceque i8 (c"2) et là j'ai un message :
erreur 1004
erreur definie par l'application ou par l'objet
J'ai executé en pas a pas mais je vois pas ce qui cloche...
Merci de m'aider une fois de plus
Lionel
Dim i As Integer, c As Integer
For i = 2 To 42 ' Surgeles
If Sheets("Liste Produits").Range("a" & i) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden >> False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SURGELES").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden >> True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SURGELES").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' VIANDES PLATS SALADES
If Sheets("Liste Produits").Range("a" & i + 42) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i +
42).EntireRow.Hidden
>>>> FalseFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("VIANDES PLATS
SALADES").Columns(c).EntireColumn.Hidden >>>> False
Next
Else
Sheets("Feuille de comptage stock").Rows(i +
42).EntireRow.Hidden
>>>> TrueFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("VIANDES PLATS
SALADES").Columns(c).EntireColumn.Hidden >> True
Next
End If
Next i
For i = 2 To 42 ' FROMAGES DESSERTS
If Sheets("Liste Produits").Range("a" & i + 84) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i +
84).EntireRow.Hidden
>>>> FalseFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden >> False
Next
Else
Sheets("Feuille de comptage stock").Rows(i +
84).EntireRow.Hidden
>>>> TrueFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden =
True
Next
End If
Next i
For i = 2 To 42 ' SEC
If Sheets("Liste Produits").Range("a" & i + 126) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i +
126).EntireRow.Hidden
>>>> FalseFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SEC").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i +
126).EntireRow.Hidden
>>>> TrueFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SEC").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' FRAIS GENERAUX
If Sheets("Liste Produits").Range("a" & i + 169) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i +
169).EntireRow.Hidden
>>>> FalseFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i +
169).EntireRow.Hidden
>>>> TrueFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
End Sub
Cordialement Lionel
Bonjour Lionel,
J'ai fait tourner la mise à jour et n'ai rencontré aucun problème
Philippe
Lionel a écrit :
Bonjour,
Voila le fichier zippé pour un probleme de poids !
http://www.cijoint.fr/cjlink.php?file=cj200912/cijJgFdOAS.zip
Merci pour l'aide et l'attention apportées
Lionel
"isabelle" <i@v> a écrit dans le message de
news:%23p22BWgfKHA.5228@TK2MSFTNGP06.phx.gbl...
bonjour Lionel,
peut être vaudrait t'il mieux publier le fichier sur ci-joint pour que
l'on puisse visualiser le problème dans son ensemble,
à te lire
isabelle
Lionel a écrit :
Bonsoir ,
Je relance un nouveau post
Philippe ayant saturé sur mon cas et je peux le comprendre, alors
merci
aux
bonnes ames pleines de compassion qui pourraient terminer de
m'aider...
Je re-explique brievement
liste produits une page qui recapitule tous les produits dispo
si les lignes sont utiles la colonne A affiche "oui " dans ce cas sur
la
feuille "cmptage stock" (presque identique a "liste produits") les
lignes
notées oui sont visibles et si "non" sont masquées
dans les pages cadencier pur classees surgeles, 'viandes plat
salades'
,
fromage dessert, sec, frais generaux... chaque prdt utilise 6 colonnes
qui
doivent etre masquees aussi si "non"dans "liste produits"
J'ai remis le code a la fin du message et le probleme est que
tout se deroule bien pour page 'surgeles' puis 'viandes plat
salades' et
sur
'fromage dessert' alors que le code est le meme tout foctionne jusqu'à
ce
que i8 (c"2) et là j'ai un message :
erreur 1004
erreur definie par l'application ou par l'objet
J'ai executé en pas a pas mais je vois pas ce qui cloche...
Merci de m'aider une fois de plus
Lionel
Dim i As Integer, c As Integer
For i = 2 To 42 ' Surgeles
If Sheets("Liste Produits").Range("a" & i) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden >> False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SURGELES").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden >> True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SURGELES").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' VIANDES PLATS SALADES
If Sheets("Liste Produits").Range("a" & i + 42) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i +
42).EntireRow.Hidden
>>>> False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("VIANDES PLATS
SALADES").Columns(c).EntireColumn.Hidden >>>> False
Next
Else
Sheets("Feuille de comptage stock").Rows(i +
42).EntireRow.Hidden
>>>> True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("VIANDES PLATS
SALADES").Columns(c).EntireColumn.Hidden >> True
Next
End If
Next i
For i = 2 To 42 ' FROMAGES DESSERTS
If Sheets("Liste Produits").Range("a" & i + 84) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i +
84).EntireRow.Hidden
>>>> False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden >> False
Next
Else
Sheets("Feuille de comptage stock").Rows(i +
84).EntireRow.Hidden
>>>> True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden =
True
Next
End If
Next i
For i = 2 To 42 ' SEC
If Sheets("Liste Produits").Range("a" & i + 126) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i +
126).EntireRow.Hidden
>>>> False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SEC").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i +
126).EntireRow.Hidden
>>>> True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SEC").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' FRAIS GENERAUX
If Sheets("Liste Produits").Range("a" & i + 169) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i +
169).EntireRow.Hidden
>>>> False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i +
169).EntireRow.Hidden
>>>> True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
End Sub
Cordialement Lionel
Bonjour Lionel,
J'ai fait tourner la mise à jour et n'ai rencontré aucun problème
Philippe
Lionel a écrit :Bonjour,
Voila le fichier zippé pour un probleme de poids !
http://www.cijoint.fr/cjlink.php?file=cj200912/cijJgFdOAS.zip
Merci pour l'aide et l'attention apportées
Lionel
"isabelle" a écrit dans le message de
news:%bonjour Lionel,
peut être vaudrait t'il mieux publier le fichier sur ci-joint pour que
l'on puisse visualiser le problème dans son ensemble,
à te lire
isabelle
Lionel a écrit :Bonsoir ,
Je relance un nouveau post
Philippe ayant saturé sur mon cas et je peux le comprendre, alors
merci
auxbonnes ames pleines de compassion qui pourraient terminer de
m'aider...
Je re-explique brievement
liste produits une page qui recapitule tous les produits dispo
si les lignes sont utiles la colonne A affiche "oui " dans ce cas sur
lafeuille "cmptage stock" (presque identique a "liste produits") les
lignesnotées oui sont visibles et si "non" sont masquées
dans les pages cadencier pur classees surgeles, 'viandes plat
salades'
,fromage dessert, sec, frais generaux... chaque prdt utilise 6 colonnes
quidoivent etre masquees aussi si "non"dans "liste produits"
J'ai remis le code a la fin du message et le probleme est que
tout se deroule bien pour page 'surgeles' puis 'viandes plat
salades' et
sur'fromage dessert' alors que le code est le meme tout foctionne jusqu'à
ceque i8 (c"2) et là j'ai un message :
erreur 1004
erreur definie par l'application ou par l'objet
J'ai executé en pas a pas mais je vois pas ce qui cloche...
Merci de m'aider une fois de plus
Lionel
Dim i As Integer, c As Integer
For i = 2 To 42 ' Surgeles
If Sheets("Liste Produits").Range("a" & i) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden >> False
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SURGELES").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden >> True
For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SURGELES").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' VIANDES PLATS SALADES
If Sheets("Liste Produits").Range("a" & i + 42) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i +
42).EntireRow.Hidden
>>>> FalseFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("VIANDES PLATS
SALADES").Columns(c).EntireColumn.Hidden >>>> False
Next
Else
Sheets("Feuille de comptage stock").Rows(i +
42).EntireRow.Hidden
>>>> TrueFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("VIANDES PLATS
SALADES").Columns(c).EntireColumn.Hidden >> True
Next
End If
Next i
For i = 2 To 42 ' FROMAGES DESSERTS
If Sheets("Liste Produits").Range("a" & i + 84) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i +
84).EntireRow.Hidden
>>>> FalseFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden >> False
Next
Else
Sheets("Feuille de comptage stock").Rows(i +
84).EntireRow.Hidden
>>>> TrueFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden =
True
Next
End If
Next i
For i = 2 To 42 ' SEC
If Sheets("Liste Produits").Range("a" & i + 126) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i +
126).EntireRow.Hidden
>>>> FalseFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SEC").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i +
126).EntireRow.Hidden
>>>> TrueFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("SEC").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
For i = 2 To 42 ' FRAIS GENERAUX
If Sheets("Liste Produits").Range("a" & i + 169) = "Oui" Then
Sheets("Feuille de comptage stock").Rows(i +
169).EntireRow.Hidden
>>>> FalseFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = False
Next
Else
Sheets("Feuille de comptage stock").Rows(i +
169).EntireRow.Hidden
>>>> TrueFor c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = True
Next
End If
Next i
End Sub
Cordialement Lionel
bonjour,
j'ai réussi a ouvrir le fichier mais il y a un rectangle gris qui couvre
la moitié de l'écran et je n'arrive pas à le faire disparaitre j'ai du
fermer excel
car ce rectangle apparaissait sur tout mes classeurs, et la même chose
s'est reproduit à ma deuxième tentative. (xl2002)
isabelle
Corona a écrit :
> Bonjour Lionel,
> J'ai fait tourner la mise à jour et n'ai rencontré aucun problème
> Philippe
> Lionel a écrit :
>> Bonjour,
>>
>> Voila le fichier zippé pour un probleme de poids !
>> http://www.cijoint.fr/cjlink.php?file=cj200912/cijJgFdOAS.zip
>>
>> Merci pour l'aide et l'attention apportées
>> Lionel
>> "isabelle" a écrit dans le message de
>> news:%
>>> bonjour Lionel,
>>>
>>> peut être vaudrait t'il mieux publier le fichier sur ci-joint pour que
>>> l'on puisse visualiser le problème dans son ensemble,
>>> à te lire
>>> isabelle
>>>
>>> Lionel a écrit :
>>>> Bonsoir ,
>>>> Je relance un nouveau post
>>>> Philippe ayant saturé sur mon cas et je peux le comprendre, alors
>>>> merci
>> aux
>>>> bonnes ames pleines de compassion qui pourraient terminer de
>>>> m'aider...
>>>> Je re-explique brievement
>>>> liste produits une page qui recapitule tous les produits dispo
>>>> si les lignes sont utiles la colonne A affiche "oui " dans ce cas
>> la
>>>> feuille "cmptage stock" (presque identique a "liste produits") les
>> lignes
>>>> notées oui sont visibles et si "non" sont masquées
>>>> dans les pages cadencier pur classees surgeles, 'viandes plat
>>>> salades'
>> ,
>>>> fromage dessert, sec, frais generaux... chaque prdt utilise 6
>> qui
>>>> doivent etre masquees aussi si "non"dans "liste produits"
>>>> J'ai remis le code a la fin du message et le probleme est que
>>>> tout se deroule bien pour page 'surgeles' puis 'viandes plat
>>>> salades' et
>> sur
>>>> 'fromage dessert' alors que le code est le meme tout foctionne
>> ce
>>>> que i8 (c"2) et là j'ai un message :
>>>> erreur 1004
>>>> erreur definie par l'application ou par l'objet
>>>>
>>>> J'ai executé en pas a pas mais je vois pas ce qui cloche...
>>>> Merci de m'aider une fois de plus
>>>> Lionel
>>>>
>>>> Dim i As Integer, c As Integer
>>>> For i = 2 To 42 ' Surgeles
>>>> If Sheets("Liste Produits").Range("a" & i) = "Oui" Then
>>>> Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden > >> False
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("SURGELES").Columns(c).EntireColumn.Hidden = False
>>>> Next
>>>> Else
>>>> Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden > >> True
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("SURGELES").Columns(c).EntireColumn.Hidden = True
>>>> Next
>>>> End If
>>>> Next i
>>>> For i = 2 To 42 ' VIANDES PLATS SALADES
>>>> If Sheets("Liste Produits").Range("a" & i + 42) = "Oui" Then
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 42).EntireRow.Hidden
>> > >>>> False
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("VIANDES PLATS
>>>> SALADES").Columns(c).EntireColumn.Hidden > >>>> False
>>>> Next
>>>> Else
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 42).EntireRow.Hidden
>> > >>>> True
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("VIANDES PLATS
>>>> SALADES").Columns(c).EntireColumn.Hidden > >> True
>>>> Next
>>>> End If
>>>> Next i
>>>> For i = 2 To 42 ' FROMAGES DESSERTS
>>>> If Sheets("Liste Produits").Range("a" & i + 84) = "Oui" Then
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 84).EntireRow.Hidden
>> > >>>> False
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden > >> False
>>>> Next
>>>> Else
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 84).EntireRow.Hidden
>> > >>>> True
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden > >>>> True
>>>> Next
>>>> End If
>>>> Next i
>>>> For i = 2 To 42 ' SEC
>>>> If Sheets("Liste Produits").Range("a" & i + 126) = "Oui" Then
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 126).EntireRow.Hidden
>> > >>>> False
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("SEC").Columns(c).EntireColumn.Hidden = False
>>>> Next
>>>> Else
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 126).EntireRow.Hidden
>> > >>>> True
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("SEC").Columns(c).EntireColumn.Hidden = True
>>>> Next
>>>> End If
>>>> Next i
>>>> For i = 2 To 42 ' FRAIS GENERAUX
>>>> If Sheets("Liste Produits").Range("a" & i + 169) = "Oui" Then
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 169).EntireRow.Hidden
>> > >>>> False
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden False
>>>> Next
>>>> Else
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 169).EntireRow.Hidden
>> > >>>> True
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = True
>>>> Next
>>>> End If
>>>> Next i
>>>> End Sub
>>>>
>>>> Cordialement Lionel
>>>>
>>>>
>>>>
>>
>>
bonjour,
j'ai réussi a ouvrir le fichier mais il y a un rectangle gris qui couvre
la moitié de l'écran et je n'arrive pas à le faire disparaitre j'ai du
fermer excel
car ce rectangle apparaissait sur tout mes classeurs, et la même chose
s'est reproduit à ma deuxième tentative. (xl2002)
isabelle
Corona a écrit :
> Bonjour Lionel,
> J'ai fait tourner la mise à jour et n'ai rencontré aucun problème
> Philippe
> Lionel a écrit :
>> Bonjour,
>>
>> Voila le fichier zippé pour un probleme de poids !
>> http://www.cijoint.fr/cjlink.php?file=cj200912/cijJgFdOAS.zip
>>
>> Merci pour l'aide et l'attention apportées
>> Lionel
>> "isabelle" <i@v> a écrit dans le message de
>> news:%23p22BWgfKHA.5228@TK2MSFTNGP06.phx.gbl...
>>> bonjour Lionel,
>>>
>>> peut être vaudrait t'il mieux publier le fichier sur ci-joint pour que
>>> l'on puisse visualiser le problème dans son ensemble,
>>> à te lire
>>> isabelle
>>>
>>> Lionel a écrit :
>>>> Bonsoir ,
>>>> Je relance un nouveau post
>>>> Philippe ayant saturé sur mon cas et je peux le comprendre, alors
>>>> merci
>> aux
>>>> bonnes ames pleines de compassion qui pourraient terminer de
>>>> m'aider...
>>>> Je re-explique brievement
>>>> liste produits une page qui recapitule tous les produits dispo
>>>> si les lignes sont utiles la colonne A affiche "oui " dans ce cas
>> la
>>>> feuille "cmptage stock" (presque identique a "liste produits") les
>> lignes
>>>> notées oui sont visibles et si "non" sont masquées
>>>> dans les pages cadencier pur classees surgeles, 'viandes plat
>>>> salades'
>> ,
>>>> fromage dessert, sec, frais generaux... chaque prdt utilise 6
>> qui
>>>> doivent etre masquees aussi si "non"dans "liste produits"
>>>> J'ai remis le code a la fin du message et le probleme est que
>>>> tout se deroule bien pour page 'surgeles' puis 'viandes plat
>>>> salades' et
>> sur
>>>> 'fromage dessert' alors que le code est le meme tout foctionne
>> ce
>>>> que i8 (c"2) et là j'ai un message :
>>>> erreur 1004
>>>> erreur definie par l'application ou par l'objet
>>>>
>>>> J'ai executé en pas a pas mais je vois pas ce qui cloche...
>>>> Merci de m'aider une fois de plus
>>>> Lionel
>>>>
>>>> Dim i As Integer, c As Integer
>>>> For i = 2 To 42 ' Surgeles
>>>> If Sheets("Liste Produits").Range("a" & i) = "Oui" Then
>>>> Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden > >> False
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("SURGELES").Columns(c).EntireColumn.Hidden = False
>>>> Next
>>>> Else
>>>> Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden > >> True
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("SURGELES").Columns(c).EntireColumn.Hidden = True
>>>> Next
>>>> End If
>>>> Next i
>>>> For i = 2 To 42 ' VIANDES PLATS SALADES
>>>> If Sheets("Liste Produits").Range("a" & i + 42) = "Oui" Then
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 42).EntireRow.Hidden
>> > >>>> False
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("VIANDES PLATS
>>>> SALADES").Columns(c).EntireColumn.Hidden > >>>> False
>>>> Next
>>>> Else
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 42).EntireRow.Hidden
>> > >>>> True
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("VIANDES PLATS
>>>> SALADES").Columns(c).EntireColumn.Hidden > >> True
>>>> Next
>>>> End If
>>>> Next i
>>>> For i = 2 To 42 ' FROMAGES DESSERTS
>>>> If Sheets("Liste Produits").Range("a" & i + 84) = "Oui" Then
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 84).EntireRow.Hidden
>> > >>>> False
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden > >> False
>>>> Next
>>>> Else
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 84).EntireRow.Hidden
>> > >>>> True
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden > >>>> True
>>>> Next
>>>> End If
>>>> Next i
>>>> For i = 2 To 42 ' SEC
>>>> If Sheets("Liste Produits").Range("a" & i + 126) = "Oui" Then
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 126).EntireRow.Hidden
>> > >>>> False
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("SEC").Columns(c).EntireColumn.Hidden = False
>>>> Next
>>>> Else
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 126).EntireRow.Hidden
>> > >>>> True
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("SEC").Columns(c).EntireColumn.Hidden = True
>>>> Next
>>>> End If
>>>> Next i
>>>> For i = 2 To 42 ' FRAIS GENERAUX
>>>> If Sheets("Liste Produits").Range("a" & i + 169) = "Oui" Then
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 169).EntireRow.Hidden
>> > >>>> False
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden False
>>>> Next
>>>> Else
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 169).EntireRow.Hidden
>> > >>>> True
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = True
>>>> Next
>>>> End If
>>>> Next i
>>>> End Sub
>>>>
>>>> Cordialement Lionel
>>>>
>>>>
>>>>
>>
>>
bonjour,
j'ai réussi a ouvrir le fichier mais il y a un rectangle gris qui couvre
la moitié de l'écran et je n'arrive pas à le faire disparaitre j'ai du
fermer excel
car ce rectangle apparaissait sur tout mes classeurs, et la même chose
s'est reproduit à ma deuxième tentative. (xl2002)
isabelle
Corona a écrit :
> Bonjour Lionel,
> J'ai fait tourner la mise à jour et n'ai rencontré aucun problème
> Philippe
> Lionel a écrit :
>> Bonjour,
>>
>> Voila le fichier zippé pour un probleme de poids !
>> http://www.cijoint.fr/cjlink.php?file=cj200912/cijJgFdOAS.zip
>>
>> Merci pour l'aide et l'attention apportées
>> Lionel
>> "isabelle" a écrit dans le message de
>> news:%
>>> bonjour Lionel,
>>>
>>> peut être vaudrait t'il mieux publier le fichier sur ci-joint pour que
>>> l'on puisse visualiser le problème dans son ensemble,
>>> à te lire
>>> isabelle
>>>
>>> Lionel a écrit :
>>>> Bonsoir ,
>>>> Je relance un nouveau post
>>>> Philippe ayant saturé sur mon cas et je peux le comprendre, alors
>>>> merci
>> aux
>>>> bonnes ames pleines de compassion qui pourraient terminer de
>>>> m'aider...
>>>> Je re-explique brievement
>>>> liste produits une page qui recapitule tous les produits dispo
>>>> si les lignes sont utiles la colonne A affiche "oui " dans ce cas
>> la
>>>> feuille "cmptage stock" (presque identique a "liste produits") les
>> lignes
>>>> notées oui sont visibles et si "non" sont masquées
>>>> dans les pages cadencier pur classees surgeles, 'viandes plat
>>>> salades'
>> ,
>>>> fromage dessert, sec, frais generaux... chaque prdt utilise 6
>> qui
>>>> doivent etre masquees aussi si "non"dans "liste produits"
>>>> J'ai remis le code a la fin du message et le probleme est que
>>>> tout se deroule bien pour page 'surgeles' puis 'viandes plat
>>>> salades' et
>> sur
>>>> 'fromage dessert' alors que le code est le meme tout foctionne
>> ce
>>>> que i8 (c"2) et là j'ai un message :
>>>> erreur 1004
>>>> erreur definie par l'application ou par l'objet
>>>>
>>>> J'ai executé en pas a pas mais je vois pas ce qui cloche...
>>>> Merci de m'aider une fois de plus
>>>> Lionel
>>>>
>>>> Dim i As Integer, c As Integer
>>>> For i = 2 To 42 ' Surgeles
>>>> If Sheets("Liste Produits").Range("a" & i) = "Oui" Then
>>>> Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden > >> False
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("SURGELES").Columns(c).EntireColumn.Hidden = False
>>>> Next
>>>> Else
>>>> Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden > >> True
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("SURGELES").Columns(c).EntireColumn.Hidden = True
>>>> Next
>>>> End If
>>>> Next i
>>>> For i = 2 To 42 ' VIANDES PLATS SALADES
>>>> If Sheets("Liste Produits").Range("a" & i + 42) = "Oui" Then
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 42).EntireRow.Hidden
>> > >>>> False
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("VIANDES PLATS
>>>> SALADES").Columns(c).EntireColumn.Hidden > >>>> False
>>>> Next
>>>> Else
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 42).EntireRow.Hidden
>> > >>>> True
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("VIANDES PLATS
>>>> SALADES").Columns(c).EntireColumn.Hidden > >> True
>>>> Next
>>>> End If
>>>> Next i
>>>> For i = 2 To 42 ' FROMAGES DESSERTS
>>>> If Sheets("Liste Produits").Range("a" & i + 84) = "Oui" Then
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 84).EntireRow.Hidden
>> > >>>> False
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden > >> False
>>>> Next
>>>> Else
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 84).EntireRow.Hidden
>> > >>>> True
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden > >>>> True
>>>> Next
>>>> End If
>>>> Next i
>>>> For i = 2 To 42 ' SEC
>>>> If Sheets("Liste Produits").Range("a" & i + 126) = "Oui" Then
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 126).EntireRow.Hidden
>> > >>>> False
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("SEC").Columns(c).EntireColumn.Hidden = False
>>>> Next
>>>> Else
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 126).EntireRow.Hidden
>> > >>>> True
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("SEC").Columns(c).EntireColumn.Hidden = True
>>>> Next
>>>> End If
>>>> Next i
>>>> For i = 2 To 42 ' FRAIS GENERAUX
>>>> If Sheets("Liste Produits").Range("a" & i + 169) = "Oui" Then
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 169).EntireRow.Hidden
>> > >>>> False
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden False
>>>> Next
>>>> Else
>>>> Sheets("Feuille de comptage stock").Rows(i +
>>>> 169).EntireRow.Hidden
>> > >>>> True
>>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>>> Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = True
>>>> Next
>>>> End If
>>>> Next i
>>>> End Sub
>>>>
>>>> Cordialement Lionel
>>>>
>>>>
>>>>
>>
>>
Bonjour Lionel,
J'ai fait tourner la mise à jour et n'ai rencontré aucun problème
Philippe
Lionel a écrit :
> Bonjour,
>
> Voila le fichier zippé pour un probleme de poids !
> http://www.cijoint.fr/cjlink.php?file=cj200912/cijJgFdOAS.zip
>
> Merci pour l'aide et l'attention apportées
> Lionel
> "isabelle" a écrit dans le message de
> news:%
>> bonjour Lionel,
>>
>> peut être vaudrait t'il mieux publier le fichier sur ci-joint pour que
>> l'on puisse visualiser le problème dans son ensemble,
>> à te lire
>> isabelle
>>
>> Lionel a écrit :
>>> Bonsoir ,
>>> Je relance un nouveau post
>>> Philippe ayant saturé sur mon cas et je peux le comprendre, alors
> aux
>>> bonnes ames pleines de compassion qui pourraient terminer de
>>> Je re-explique brievement
>>> liste produits une page qui recapitule tous les produits dispo
>>> si les lignes sont utiles la colonne A affiche "oui " dans ce cas sur
> la
>>> feuille "cmptage stock" (presque identique a "liste produits") les
> lignes
>>> notées oui sont visibles et si "non" sont masquées
>>> dans les pages cadencier pur classees surgeles, 'viandes plat
> ,
>>> fromage dessert, sec, frais generaux... chaque prdt utilise 6 colonnes
> qui
>>> doivent etre masquees aussi si "non"dans "liste produits"
>>> J'ai remis le code a la fin du message et le probleme est que
>>> tout se deroule bien pour page 'surgeles' puis 'viandes plat salades'
> sur
>>> 'fromage dessert' alors que le code est le meme tout foctionne jusqu'à
> ce
>>> que i8 (c"2) et là j'ai un message :
>>> erreur 1004
>>> erreur definie par l'application ou par l'objet
>>>
>>> J'ai executé en pas a pas mais je vois pas ce qui cloche...
>>> Merci de m'aider une fois de plus
>>> Lionel
>>>
>>> Dim i As Integer, c As Integer
>>> For i = 2 To 42 ' Surgeles
>>> If Sheets("Liste Produits").Range("a" & i) = "Oui" Then
>>> Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden > > False
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("SURGELES").Columns(c).EntireColumn.Hidden = False
>>> Next
>>> Else
>>> Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden > > True
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("SURGELES").Columns(c).EntireColumn.Hidden = True
>>> Next
>>> End If
>>> Next i
>>> For i = 2 To 42 ' VIANDES PLATS SALADES
>>> If Sheets("Liste Produits").Range("a" & i + 42) = "Oui" Then
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> False
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden
>>> Next
>>> Else
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> True
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden
>>> Next
>>> End If
>>> Next i
>>> For i = 2 To 42 ' FROMAGES DESSERTS
>>> If Sheets("Liste Produits").Range("a" & i + 84) = "Oui" Then
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> False
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden > > False
>>> Next
>>> Else
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> True
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden True
>>> Next
>>> End If
>>> Next i
>>> For i = 2 To 42 ' SEC
>>> If Sheets("Liste Produits").Range("a" & i + 126) = "Oui" Then
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> False
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("SEC").Columns(c).EntireColumn.Hidden = False
>>> Next
>>> Else
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> True
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("SEC").Columns(c).EntireColumn.Hidden = True
>>> Next
>>> End If
>>> Next i
>>> For i = 2 To 42 ' FRAIS GENERAUX
>>> If Sheets("Liste Produits").Range("a" & i + 169) = "Oui" Then
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> False
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = False
>>> Next
>>> Else
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> True
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = True
>>> Next
>>> End If
>>> Next i
>>> End Sub
>>>
>>> Cordialement Lionel
>>>
>>>
>>>
>
>
Bonjour Lionel,
J'ai fait tourner la mise à jour et n'ai rencontré aucun problème
Philippe
Lionel a écrit :
> Bonjour,
>
> Voila le fichier zippé pour un probleme de poids !
> http://www.cijoint.fr/cjlink.php?file=cj200912/cijJgFdOAS.zip
>
> Merci pour l'aide et l'attention apportées
> Lionel
> "isabelle" <i@v> a écrit dans le message de
> news:%23p22BWgfKHA.5228@TK2MSFTNGP06.phx.gbl...
>> bonjour Lionel,
>>
>> peut être vaudrait t'il mieux publier le fichier sur ci-joint pour que
>> l'on puisse visualiser le problème dans son ensemble,
>> à te lire
>> isabelle
>>
>> Lionel a écrit :
>>> Bonsoir ,
>>> Je relance un nouveau post
>>> Philippe ayant saturé sur mon cas et je peux le comprendre, alors
> aux
>>> bonnes ames pleines de compassion qui pourraient terminer de
>>> Je re-explique brievement
>>> liste produits une page qui recapitule tous les produits dispo
>>> si les lignes sont utiles la colonne A affiche "oui " dans ce cas sur
> la
>>> feuille "cmptage stock" (presque identique a "liste produits") les
> lignes
>>> notées oui sont visibles et si "non" sont masquées
>>> dans les pages cadencier pur classees surgeles, 'viandes plat
> ,
>>> fromage dessert, sec, frais generaux... chaque prdt utilise 6 colonnes
> qui
>>> doivent etre masquees aussi si "non"dans "liste produits"
>>> J'ai remis le code a la fin du message et le probleme est que
>>> tout se deroule bien pour page 'surgeles' puis 'viandes plat salades'
> sur
>>> 'fromage dessert' alors que le code est le meme tout foctionne jusqu'à
> ce
>>> que i8 (c"2) et là j'ai un message :
>>> erreur 1004
>>> erreur definie par l'application ou par l'objet
>>>
>>> J'ai executé en pas a pas mais je vois pas ce qui cloche...
>>> Merci de m'aider une fois de plus
>>> Lionel
>>>
>>> Dim i As Integer, c As Integer
>>> For i = 2 To 42 ' Surgeles
>>> If Sheets("Liste Produits").Range("a" & i) = "Oui" Then
>>> Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden > > False
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("SURGELES").Columns(c).EntireColumn.Hidden = False
>>> Next
>>> Else
>>> Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden > > True
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("SURGELES").Columns(c).EntireColumn.Hidden = True
>>> Next
>>> End If
>>> Next i
>>> For i = 2 To 42 ' VIANDES PLATS SALADES
>>> If Sheets("Liste Produits").Range("a" & i + 42) = "Oui" Then
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> False
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden
>>> Next
>>> Else
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> True
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden
>>> Next
>>> End If
>>> Next i
>>> For i = 2 To 42 ' FROMAGES DESSERTS
>>> If Sheets("Liste Produits").Range("a" & i + 84) = "Oui" Then
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> False
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden > > False
>>> Next
>>> Else
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> True
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden True
>>> Next
>>> End If
>>> Next i
>>> For i = 2 To 42 ' SEC
>>> If Sheets("Liste Produits").Range("a" & i + 126) = "Oui" Then
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> False
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("SEC").Columns(c).EntireColumn.Hidden = False
>>> Next
>>> Else
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> True
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("SEC").Columns(c).EntireColumn.Hidden = True
>>> Next
>>> End If
>>> Next i
>>> For i = 2 To 42 ' FRAIS GENERAUX
>>> If Sheets("Liste Produits").Range("a" & i + 169) = "Oui" Then
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> False
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = False
>>> Next
>>> Else
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> True
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = True
>>> Next
>>> End If
>>> Next i
>>> End Sub
>>>
>>> Cordialement Lionel
>>>
>>>
>>>
>
>
Bonjour Lionel,
J'ai fait tourner la mise à jour et n'ai rencontré aucun problème
Philippe
Lionel a écrit :
> Bonjour,
>
> Voila le fichier zippé pour un probleme de poids !
> http://www.cijoint.fr/cjlink.php?file=cj200912/cijJgFdOAS.zip
>
> Merci pour l'aide et l'attention apportées
> Lionel
> "isabelle" a écrit dans le message de
> news:%
>> bonjour Lionel,
>>
>> peut être vaudrait t'il mieux publier le fichier sur ci-joint pour que
>> l'on puisse visualiser le problème dans son ensemble,
>> à te lire
>> isabelle
>>
>> Lionel a écrit :
>>> Bonsoir ,
>>> Je relance un nouveau post
>>> Philippe ayant saturé sur mon cas et je peux le comprendre, alors
> aux
>>> bonnes ames pleines de compassion qui pourraient terminer de
>>> Je re-explique brievement
>>> liste produits une page qui recapitule tous les produits dispo
>>> si les lignes sont utiles la colonne A affiche "oui " dans ce cas sur
> la
>>> feuille "cmptage stock" (presque identique a "liste produits") les
> lignes
>>> notées oui sont visibles et si "non" sont masquées
>>> dans les pages cadencier pur classees surgeles, 'viandes plat
> ,
>>> fromage dessert, sec, frais generaux... chaque prdt utilise 6 colonnes
> qui
>>> doivent etre masquees aussi si "non"dans "liste produits"
>>> J'ai remis le code a la fin du message et le probleme est que
>>> tout se deroule bien pour page 'surgeles' puis 'viandes plat salades'
> sur
>>> 'fromage dessert' alors que le code est le meme tout foctionne jusqu'à
> ce
>>> que i8 (c"2) et là j'ai un message :
>>> erreur 1004
>>> erreur definie par l'application ou par l'objet
>>>
>>> J'ai executé en pas a pas mais je vois pas ce qui cloche...
>>> Merci de m'aider une fois de plus
>>> Lionel
>>>
>>> Dim i As Integer, c As Integer
>>> For i = 2 To 42 ' Surgeles
>>> If Sheets("Liste Produits").Range("a" & i) = "Oui" Then
>>> Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden > > False
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("SURGELES").Columns(c).EntireColumn.Hidden = False
>>> Next
>>> Else
>>> Sheets("Feuille de comptage stock").Rows(i).EntireRow.Hidden > > True
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("SURGELES").Columns(c).EntireColumn.Hidden = True
>>> Next
>>> End If
>>> Next i
>>> For i = 2 To 42 ' VIANDES PLATS SALADES
>>> If Sheets("Liste Produits").Range("a" & i + 42) = "Oui" Then
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> False
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden
>>> Next
>>> Else
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> True
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("VIANDES PLATS SALADES").Columns(c).EntireColumn.Hidden
>>> Next
>>> End If
>>> Next i
>>> For i = 2 To 42 ' FROMAGES DESSERTS
>>> If Sheets("Liste Produits").Range("a" & i + 84) = "Oui" Then
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> False
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden > > False
>>> Next
>>> Else
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> True
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("FROMAGES DESSERTS").Columns(c).EntireColumn.Hidden True
>>> Next
>>> End If
>>> Next i
>>> For i = 2 To 42 ' SEC
>>> If Sheets("Liste Produits").Range("a" & i + 126) = "Oui" Then
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> False
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("SEC").Columns(c).EntireColumn.Hidden = False
>>> Next
>>> Else
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> True
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("SEC").Columns(c).EntireColumn.Hidden = True
>>> Next
>>> End If
>>> Next i
>>> For i = 2 To 42 ' FRAIS GENERAUX
>>> If Sheets("Liste Produits").Range("a" & i + 169) = "Oui" Then
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> False
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = False
>>> Next
>>> Else
>>> Sheets("Feuille de comptage stock").Rows(i +
> > >>> True
>>> For c = ((i - 1) * 6) - 1 To ((i - 1) * 6) + 5
>>> Sheets("FRAIS GENERAUX").Columns(c).EntireColumn.Hidden = True
>>> Next
>>> End If
>>> Next i
>>> End Sub
>>>
>>> Cordialement Lionel
>>>
>>>
>>>
>
>