Bonjour,
J'ai cette procédure qui fait planter le programme.
Je vous remercie de me donner un coup de main, je ne vois pas le pb
Merci
Alain
Sub Les_lignes()
Application.ScreenUpdating = False
Sheets("Travail").Unprotect Password:="toto"
Set plage = Range("A3:AD2000")
For Each C In plage
C.EntireRow.AutoFit
If C.RowHeight > 42.75 Then
Else
C.RowHeight = 42.75
End If
Next
Sheets("Travail").Unprotect Password:="toto"
Application.ScreenUpdating = True
End Sub
Bonjour,
J'ai cette procédure qui fait planter le programme.
Je vous remercie de me donner un coup de main, je ne vois pas le pb
Merci
Alain
Sub Les_lignes()
Application.ScreenUpdating = False
Sheets("Travail").Unprotect Password:="toto"
Set plage = Range("A3:AD2000")
For Each C In plage
C.EntireRow.AutoFit
If C.RowHeight > 42.75 Then
Else
C.RowHeight = 42.75
End If
Next
Sheets("Travail").Unprotect Password:="toto"
Application.ScreenUpdating = True
End Sub
Bonjour,
J'ai cette procédure qui fait planter le programme.
Je vous remercie de me donner un coup de main, je ne vois pas le pb
Merci
Alain
Sub Les_lignes()
Application.ScreenUpdating = False
Sheets("Travail").Unprotect Password:="toto"
Set plage = Range("A3:AD2000")
For Each C In plage
C.EntireRow.AutoFit
If C.RowHeight > 42.75 Then
Else
C.RowHeight = 42.75
End If
Next
Sheets("Travail").Unprotect Password:="toto"
Application.ScreenUpdating = True
End Sub
Bonjour,
J'ai cette procédure qui fait planter le programme.
Je vous remercie de me donner un coup de main, je ne vois pas le pb
Merci
Alain
Sub Les_lignes()
Application.ScreenUpdating = False
Sheets("Travail").Unprotect Password:="toto"
Set plage = Range("A3:AD2000")
For Each C In plage
C.EntireRow.AutoFit
If C.RowHeight > 42.75 Then
Else
C.RowHeight = 42.75
End If
Next
Sheets("Travail").Unprotect Password:="toto"
Application.ScreenUpdating = True
End Sub
Bonjour,
J'ai cette procédure qui fait planter le programme.
Je vous remercie de me donner un coup de main, je ne vois pas le pb
Merci
Alain
Sub Les_lignes()
Application.ScreenUpdating = False
Sheets("Travail").Unprotect Password:="toto"
Set plage = Range("A3:AD2000")
For Each C In plage
C.EntireRow.AutoFit
If C.RowHeight > 42.75 Then
Else
C.RowHeight = 42.75
End If
Next
Sheets("Travail").Unprotect Password:="toto"
Application.ScreenUpdating = True
End Sub
Bonjour,
J'ai cette procédure qui fait planter le programme.
Je vous remercie de me donner un coup de main, je ne vois pas le pb
Merci
Alain
Sub Les_lignes()
Application.ScreenUpdating = False
Sheets("Travail").Unprotect Password:="toto"
Set plage = Range("A3:AD2000")
For Each C In plage
C.EntireRow.AutoFit
If C.RowHeight > 42.75 Then
Else
C.RowHeight = 42.75
End If
Next
Sheets("Travail").Unprotect Password:="toto"
Application.ScreenUpdating = True
End Sub
Bonjour,
J'ai cette procédure qui fait planter le programme.
Je vous remercie de me donner un coup de main, je ne vois pas le pb
Merci
Alain
Sub Les_lignes()
Application.ScreenUpdating = False
Sheets("Travail").Unprotect Password:="toto"
Set plage = Range("A3:AD2000")
For Each C In plage
C.EntireRow.AutoFit
If C.RowHeight > 42.75 Then
Else
C.RowHeight = 42.75
End If
Next
Sheets("Travail").Unprotect Password:="toto"
Application.ScreenUpdating = True
End Sub
--
Bonjour,
J'ai cette procédure qui fait planter le programme.
Je vous remercie de me donner un coup de main, je ne vois pas le pb
Merci
Alain
Sub Les_lignes()
Application.ScreenUpdating = False
Sheets("Travail").Unprotect Password:="toto"
Set plage = Range("A3:AD2000")
For Each C In plage
C.EntireRow.AutoFit
If C.RowHeight > 42.75 Then
Else
C.RowHeight = 42.75
End If
Next
Sheets("Travail").Unprotect Password:="toto"
Application.ScreenUpdating = True
End Sub
--
Bonjour,
J'ai cette procédure qui fait planter le programme.
Je vous remercie de me donner un coup de main, je ne vois pas le pb
Merci
Alain
Sub Les_lignes()
Application.ScreenUpdating = False
Sheets("Travail").Unprotect Password:="toto"
Set plage = Range("A3:AD2000")
For Each C In plage
C.EntireRow.AutoFit
If C.RowHeight > 42.75 Then
Else
C.RowHeight = 42.75
End If
Next
Sheets("Travail").Unprotect Password:="toto"
Application.ScreenUpdating = True
End Sub
--
Bonjour,
J'ai cette procédure qui fait planter le programme.
Je vous remercie de me donner un coup de main, je ne vois pas le pb
Merci
Alain
Sub Les_lignes()
Application.ScreenUpdating = False
Sheets("Travail").Unprotect Password:="toto"
Set plage = Range("A3:AD2000")
For Each C In plage
C.EntireRow.AutoFit
If C.RowHeight > 42.75 Then
Else
C.RowHeight = 42.75
End If
Next
Sheets("Travail").Unprotect Password:="toto"
Application.ScreenUpdating = True
End Sub
Bonjour,
J'ai cette procédure qui fait planter le programme.
Je vous remercie de me donner un coup de main, je ne vois pas le pb
Merci
Alain
Sub Les_lignes()
Application.ScreenUpdating = False
Sheets("Travail").Unprotect Password:="toto"
Set plage = Range("A3:AD2000")
For Each C In plage
C.EntireRow.AutoFit
If C.RowHeight > 42.75 Then
Else
C.RowHeight = 42.75
End If
Next
Sheets("Travail").Unprotect Password:="toto"
Application.ScreenUpdating = True
End Sub
Bonjour,
J'ai cette procédure qui fait planter le programme.
Je vous remercie de me donner un coup de main, je ne vois pas le pb
Merci
Alain
Sub Les_lignes()
Application.ScreenUpdating = False
Sheets("Travail").Unprotect Password:="toto"
Set plage = Range("A3:AD2000")
For Each C In plage
C.EntireRow.AutoFit
If C.RowHeight > 42.75 Then
Else
C.RowHeight = 42.75
End If
Next
Sheets("Travail").Unprotect Password:="toto"
Application.ScreenUpdating = True
End Sub
Re, Alain et FFO,
...je viens de regarder qu'en fait tu vas de A à AD
..de plus même si le code ...fonctionne ;o))
, il faut voir ce qu'il fait
soit ratisser toute les colonnes de chaque ligne pour finalement
conserver la hauteur
que les règles en définissent pour la dernière cellule
ainsi seul AD impacte le résultat obtenu
Pour établir la moulinette sur une seule colonne ce que j'ai
précédemment indiqué est plus direct.
Pour faire ce que tu sembles vouloir il faudrait tester
laquelle des colonnes pour chaque ligne contient la chaine de caractère s
la plus longue
puis ajuster par rapport à celle ci.
je dois partir je regarde ca plus tard..sauf si quelqu'un s'en est
chargé ;-)
--
lSteph
alain Lebayle a écrit :
> Bonjour,
> J'ai cette procédure qui fait planter le programme.
> Je vous remercie de me donner un coup de main, je ne vois pas le pb
> Merci
> Alain
> Sub Les_lignes()
> Application.ScreenUpdating = False
> Sheets("Travail").Unprotect Password:="toto"
> Set plage = Range("A3:AD2000")
> For Each C In plage
> C.EntireRow.AutoFit
> If C.RowHeight > 42.75 Then
> Else
> C.RowHeight = 42.75
> End If
> Next
> Sheets("Travail").Unprotect Password:="toto"
> Application.ScreenUpdating = True
> End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re, Alain et FFO,
...je viens de regarder qu'en fait tu vas de A à AD
..de plus même si le code ...fonctionne ;o))
, il faut voir ce qu'il fait
soit ratisser toute les colonnes de chaque ligne pour finalement
conserver la hauteur
que les règles en définissent pour la dernière cellule
ainsi seul AD impacte le résultat obtenu
Pour établir la moulinette sur une seule colonne ce que j'ai
précédemment indiqué est plus direct.
Pour faire ce que tu sembles vouloir il faudrait tester
laquelle des colonnes pour chaque ligne contient la chaine de caractère s
la plus longue
puis ajuster par rapport à celle ci.
je dois partir je regarde ca plus tard..sauf si quelqu'un s'en est
chargé ;-)
--
lSteph
alain Lebayle a écrit :
> Bonjour,
> J'ai cette procédure qui fait planter le programme.
> Je vous remercie de me donner un coup de main, je ne vois pas le pb
> Merci
> Alain
> Sub Les_lignes()
> Application.ScreenUpdating = False
> Sheets("Travail").Unprotect Password:="toto"
> Set plage = Range("A3:AD2000")
> For Each C In plage
> C.EntireRow.AutoFit
> If C.RowHeight > 42.75 Then
> Else
> C.RowHeight = 42.75
> End If
> Next
> Sheets("Travail").Unprotect Password:="toto"
> Application.ScreenUpdating = True
> End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re, Alain et FFO,
...je viens de regarder qu'en fait tu vas de A à AD
..de plus même si le code ...fonctionne ;o))
, il faut voir ce qu'il fait
soit ratisser toute les colonnes de chaque ligne pour finalement
conserver la hauteur
que les règles en définissent pour la dernière cellule
ainsi seul AD impacte le résultat obtenu
Pour établir la moulinette sur une seule colonne ce que j'ai
précédemment indiqué est plus direct.
Pour faire ce que tu sembles vouloir il faudrait tester
laquelle des colonnes pour chaque ligne contient la chaine de caractère s
la plus longue
puis ajuster par rapport à celle ci.
je dois partir je regarde ca plus tard..sauf si quelqu'un s'en est
chargé ;-)
--
lSteph
alain Lebayle a écrit :
> Bonjour,
> J'ai cette procédure qui fait planter le programme.
> Je vous remercie de me donner un coup de main, je ne vois pas le pb
> Merci
> Alain
> Sub Les_lignes()
> Application.ScreenUpdating = False
> Sheets("Travail").Unprotect Password:="toto"
> Set plage = Range("A3:AD2000")
> For Each C In plage
> C.EntireRow.AutoFit
> If C.RowHeight > 42.75 Then
> Else
> C.RowHeight = 42.75
> End If
> Next
> Sheets("Travail").Unprotect Password:="toto"
> Application.ScreenUpdating = True
> End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Comme ça au premier coup d'il, la seule erreur que je voie est que l a
protection est retirée deux fois, une fois au début et une fois à l a
fin. Pas moyen d'essayer avec une pause juste avant pour vérifier où se
produit l'erreur ?
A part ça il devrait y avoir moyen effectivement d'optimiser comme le
note discrètement LSteph, puisque si on traite chaque cellule de la
plage A3:AD2000 pour rectifier la hauteur de la ligne, chaque ligne est
traitée cent quatre fois. Au bout d'une fois ou deux, si la correction
n'est pas faite, c'est qu'il y a un truc qui coince, non ?
____________________________________________
alain Lebayle a écrit, le 10/07/2009 09:06 :
> Bonjour,
> J'ai cette procédure qui fait planter le programme.
> Je vous remercie de me donner un coup de main, je ne vois pas le pb
> Merci
> Alain
> Sub Les_lignes()
> Application.ScreenUpdating = False
> Sheets("Travail").Unprotect Password:="toto"
> Set plage = Range("A3:AD2000")
> For Each C In plage
> C.EntireRow.AutoFit
> If C.RowHeight > 42.75 Then
> Else
> C.RowHeight = 42.75
> End If
> Next
> Sheets("Travail").Unprotect Password:="toto"
> Application.ScreenUpdating = True
> End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Comme ça au premier coup d'il, la seule erreur que je voie est que l a
protection est retirée deux fois, une fois au début et une fois à l a
fin. Pas moyen d'essayer avec une pause juste avant pour vérifier où se
produit l'erreur ?
A part ça il devrait y avoir moyen effectivement d'optimiser comme le
note discrètement LSteph, puisque si on traite chaque cellule de la
plage A3:AD2000 pour rectifier la hauteur de la ligne, chaque ligne est
traitée cent quatre fois. Au bout d'une fois ou deux, si la correction
n'est pas faite, c'est qu'il y a un truc qui coince, non ?
____________________________________________
alain Lebayle a écrit, le 10/07/2009 09:06 :
> Bonjour,
> J'ai cette procédure qui fait planter le programme.
> Je vous remercie de me donner un coup de main, je ne vois pas le pb
> Merci
> Alain
> Sub Les_lignes()
> Application.ScreenUpdating = False
> Sheets("Travail").Unprotect Password:="toto"
> Set plage = Range("A3:AD2000")
> For Each C In plage
> C.EntireRow.AutoFit
> If C.RowHeight > 42.75 Then
> Else
> C.RowHeight = 42.75
> End If
> Next
> Sheets("Travail").Unprotect Password:="toto"
> Application.ScreenUpdating = True
> End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Comme ça au premier coup d'il, la seule erreur que je voie est que l a
protection est retirée deux fois, une fois au début et une fois à l a
fin. Pas moyen d'essayer avec une pause juste avant pour vérifier où se
produit l'erreur ?
A part ça il devrait y avoir moyen effectivement d'optimiser comme le
note discrètement LSteph, puisque si on traite chaque cellule de la
plage A3:AD2000 pour rectifier la hauteur de la ligne, chaque ligne est
traitée cent quatre fois. Au bout d'une fois ou deux, si la correction
n'est pas faite, c'est qu'il y a un truc qui coince, non ?
____________________________________________
alain Lebayle a écrit, le 10/07/2009 09:06 :
> Bonjour,
> J'ai cette procédure qui fait planter le programme.
> Je vous remercie de me donner un coup de main, je ne vois pas le pb
> Merci
> Alain
> Sub Les_lignes()
> Application.ScreenUpdating = False
> Sheets("Travail").Unprotect Password:="toto"
> Set plage = Range("A3:AD2000")
> For Each C In plage
> C.EntireRow.AutoFit
> If C.RowHeight > 42.75 Then
> Else
> C.RowHeight = 42.75
> End If
> Next
> Sheets("Travail").Unprotect Password:="toto"
> Application.ScreenUpdating = True
> End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Au bout d'une fois ou deux ...non plus
A part ça il devrait y avoir moyen effectivement d'optimiser comme le
note discrètement LSteph, puisque si on traite chaque cellule de la
plage A3:AD2000 pour rectifier la hauteur de la ligne, chaque ligne est
traitée cent quatre fois. Au bout d'une fois ou deux, si la correction
n'est pas faite, c'est qu'il y a un truc qui coince, non ?
____________________________________________
alain Lebayle a écrit, le 10/07/2009 09:06 :
> Bonjour,
> J'ai cette procédure qui fait planter le programme.
> Je vous remercie de me donner un coup de main, je ne vois pas le pb
> Merci
> Alain
> Sub Les_lignes()
> Application.ScreenUpdating = False
> Sheets("Travail").Unprotect Password:="toto"
> Set plage = Range("A3:AD2000")
> For Each C In plage
> C.EntireRow.AutoFit
> If C.RowHeight > 42.75 Then
> Else
> C.RowHeight = 42.75
> End If
> Next
> Sheets("Travail").Unprotect Password:="toto"
> Application.ScreenUpdating = True
> End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Au bout d'une fois ou deux ...non plus
A part ça il devrait y avoir moyen effectivement d'optimiser comme le
note discrètement LSteph, puisque si on traite chaque cellule de la
plage A3:AD2000 pour rectifier la hauteur de la ligne, chaque ligne est
traitée cent quatre fois. Au bout d'une fois ou deux, si la correction
n'est pas faite, c'est qu'il y a un truc qui coince, non ?
____________________________________________
alain Lebayle a écrit, le 10/07/2009 09:06 :
> Bonjour,
> J'ai cette procédure qui fait planter le programme.
> Je vous remercie de me donner un coup de main, je ne vois pas le pb
> Merci
> Alain
> Sub Les_lignes()
> Application.ScreenUpdating = False
> Sheets("Travail").Unprotect Password:="toto"
> Set plage = Range("A3:AD2000")
> For Each C In plage
> C.EntireRow.AutoFit
> If C.RowHeight > 42.75 Then
> Else
> C.RowHeight = 42.75
> End If
> Next
> Sheets("Travail").Unprotect Password:="toto"
> Application.ScreenUpdating = True
> End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Au bout d'une fois ou deux ...non plus
A part ça il devrait y avoir moyen effectivement d'optimiser comme le
note discrètement LSteph, puisque si on traite chaque cellule de la
plage A3:AD2000 pour rectifier la hauteur de la ligne, chaque ligne est
traitée cent quatre fois. Au bout d'une fois ou deux, si la correction
n'est pas faite, c'est qu'il y a un truc qui coince, non ?
____________________________________________
alain Lebayle a écrit, le 10/07/2009 09:06 :
> Bonjour,
> J'ai cette procédure qui fait planter le programme.
> Je vous remercie de me donner un coup de main, je ne vois pas le pb
> Merci
> Alain
> Sub Les_lignes()
> Application.ScreenUpdating = False
> Sheets("Travail").Unprotect Password:="toto"
> Set plage = Range("A3:AD2000")
> For Each C In plage
> C.EntireRow.AutoFit
> If C.RowHeight > 42.75 Then
> Else
> C.RowHeight = 42.75
> End If
> Next
> Sheets("Travail").Unprotect Password:="toto"
> Application.ScreenUpdating = True
> End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
...> Au bout d'une fois ou deux ...non plus
on peut pâaaasser ainsi chaque cellule si la dernière AD est bien plu s
haute ou petite, c'est elle qui emportera le bout de gras
DONC ... Non je ne cherchais paz à être discret ;o) lol
il suffit de mettre l'autofit pour les lignesz entière avant de
bouclerpuis detraiter chaque ligne pour vérifier qu'elle n'excède pas
42.75
Dim c As Range
[a1:a2000].EntireRow.AutoFit
For Each c In [a1:a2000].Cells
If c.RowHeight > 42.75 Then c.RowHeight = 42.75
Next
'@+
'lSteph
> A part ça il devrait y avoir moyen effectivement d'optimiser comme le
> note discrètement LSteph, puisque si on traite chaque cellule de la
> plage A3:AD2000 pour rectifier la hauteur de la ligne, chaque ligne est
> traitée cent quatre fois. Au bout d'une fois ou deux, si la correctio n
> n'est pas faite, c'est qu'il y a un truc qui coince, non ?
> ____________________________________________
> alain Lebayle a écrit, le 10/07/2009 09:06 :
> > Bonjour,
> > J'ai cette procédure qui fait planter le programme.
> > Je vous remercie de me donner un coup de main, je ne vois pas le pb
> > Merci
> > Alain
> > Sub Les_lignes()
> > Application.ScreenUpdating = False
> > Sheets("Travail").Unprotect Password:="toto"
> > Set plage = Range("A3:AD2000")
> > For Each C In plage
> > C.EntireRow.AutoFit
> > If C.RowHeight > 42.75 Then
> > Else
> > C.RowHeight = 42.75
> > End If
> > Next
> > Sheets("Travail").Unprotect Password:="toto"
> > Application.ScreenUpdating = True
> > End Sub- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
...> Au bout d'une fois ou deux ...non plus
on peut pâaaasser ainsi chaque cellule si la dernière AD est bien plu s
haute ou petite, c'est elle qui emportera le bout de gras
DONC ... Non je ne cherchais paz à être discret ;o) lol
il suffit de mettre l'autofit pour les lignesz entière avant de
bouclerpuis detraiter chaque ligne pour vérifier qu'elle n'excède pas
42.75
Dim c As Range
[a1:a2000].EntireRow.AutoFit
For Each c In [a1:a2000].Cells
If c.RowHeight > 42.75 Then c.RowHeight = 42.75
Next
'@+
'lSteph
> A part ça il devrait y avoir moyen effectivement d'optimiser comme le
> note discrètement LSteph, puisque si on traite chaque cellule de la
> plage A3:AD2000 pour rectifier la hauteur de la ligne, chaque ligne est
> traitée cent quatre fois. Au bout d'une fois ou deux, si la correctio n
> n'est pas faite, c'est qu'il y a un truc qui coince, non ?
> ____________________________________________
> alain Lebayle a écrit, le 10/07/2009 09:06 :
> > Bonjour,
> > J'ai cette procédure qui fait planter le programme.
> > Je vous remercie de me donner un coup de main, je ne vois pas le pb
> > Merci
> > Alain
> > Sub Les_lignes()
> > Application.ScreenUpdating = False
> > Sheets("Travail").Unprotect Password:="toto"
> > Set plage = Range("A3:AD2000")
> > For Each C In plage
> > C.EntireRow.AutoFit
> > If C.RowHeight > 42.75 Then
> > Else
> > C.RowHeight = 42.75
> > End If
> > Next
> > Sheets("Travail").Unprotect Password:="toto"
> > Application.ScreenUpdating = True
> > End Sub- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
...> Au bout d'une fois ou deux ...non plus
on peut pâaaasser ainsi chaque cellule si la dernière AD est bien plu s
haute ou petite, c'est elle qui emportera le bout de gras
DONC ... Non je ne cherchais paz à être discret ;o) lol
il suffit de mettre l'autofit pour les lignesz entière avant de
bouclerpuis detraiter chaque ligne pour vérifier qu'elle n'excède pas
42.75
Dim c As Range
[a1:a2000].EntireRow.AutoFit
For Each c In [a1:a2000].Cells
If c.RowHeight > 42.75 Then c.RowHeight = 42.75
Next
'@+
'lSteph
> A part ça il devrait y avoir moyen effectivement d'optimiser comme le
> note discrètement LSteph, puisque si on traite chaque cellule de la
> plage A3:AD2000 pour rectifier la hauteur de la ligne, chaque ligne est
> traitée cent quatre fois. Au bout d'une fois ou deux, si la correctio n
> n'est pas faite, c'est qu'il y a un truc qui coince, non ?
> ____________________________________________
> alain Lebayle a écrit, le 10/07/2009 09:06 :
> > Bonjour,
> > J'ai cette procédure qui fait planter le programme.
> > Je vous remercie de me donner un coup de main, je ne vois pas le pb
> > Merci
> > Alain
> > Sub Les_lignes()
> > Application.ScreenUpdating = False
> > Sheets("Travail").Unprotect Password:="toto"
> > Set plage = Range("A3:AD2000")
> > For Each C In plage
> > C.EntireRow.AutoFit
> > If C.RowHeight > 42.75 Then
> > Else
> > C.RowHeight = 42.75
> > End If
> > Next
> > Sheets("Travail").Unprotect Password:="toto"
> > Application.ScreenUpdating = True
> > End Sub- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Comme ça au premier coup d'œil, la seule erreur que je voie est que la
protection est retirée deux fois, une fois au début et une fois à la
fin. Pas moyen d'essayer avec une pause juste avant pour vérifier où se
produit l'erreur ?
A part ça il devrait y avoir moyen effectivement d'optimiser comme le
note discrètement LSteph, puisque si on traite chaque cellule de la
plage A3:AD2000 pour rectifier la hauteur de la ligne, chaque ligne est
traitée cent quatre fois. Au bout d'une fois ou deux, si la correction
n'est pas faite, c'est qu'il y a un truc qui coince, non ?
____________________________________________
alain Lebayle a écrit, le 10/07/2009 09:06 :
> Bonjour,
> J'ai cette procédure qui fait planter le programme.
> Je vous remercie de me donner un coup de main, je ne vois pas le pb
> Merci
> Alain
> Sub Les_lignes()
> Application.ScreenUpdating = False
> Sheets("Travail").Unprotect Password:="toto"
> Set plage = Range("A3:AD2000")
> For Each C In plage
> C.EntireRow.AutoFit
> If C.RowHeight > 42.75 Then
> Else
> C.RowHeight = 42.75
> End If
> Next
> Sheets("Travail").Unprotect Password:="toto"
> Application.ScreenUpdating = True
> End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Comme ça au premier coup d'œil, la seule erreur que je voie est que la
protection est retirée deux fois, une fois au début et une fois à la
fin. Pas moyen d'essayer avec une pause juste avant pour vérifier où se
produit l'erreur ?
A part ça il devrait y avoir moyen effectivement d'optimiser comme le
note discrètement LSteph, puisque si on traite chaque cellule de la
plage A3:AD2000 pour rectifier la hauteur de la ligne, chaque ligne est
traitée cent quatre fois. Au bout d'une fois ou deux, si la correction
n'est pas faite, c'est qu'il y a un truc qui coince, non ?
____________________________________________
alain Lebayle a écrit, le 10/07/2009 09:06 :
> Bonjour,
> J'ai cette procédure qui fait planter le programme.
> Je vous remercie de me donner un coup de main, je ne vois pas le pb
> Merci
> Alain
> Sub Les_lignes()
> Application.ScreenUpdating = False
> Sheets("Travail").Unprotect Password:="toto"
> Set plage = Range("A3:AD2000")
> For Each C In plage
> C.EntireRow.AutoFit
> If C.RowHeight > 42.75 Then
> Else
> C.RowHeight = 42.75
> End If
> Next
> Sheets("Travail").Unprotect Password:="toto"
> Application.ScreenUpdating = True
> End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Comme ça au premier coup d'œil, la seule erreur que je voie est que la
protection est retirée deux fois, une fois au début et une fois à la
fin. Pas moyen d'essayer avec une pause juste avant pour vérifier où se
produit l'erreur ?
A part ça il devrait y avoir moyen effectivement d'optimiser comme le
note discrètement LSteph, puisque si on traite chaque cellule de la
plage A3:AD2000 pour rectifier la hauteur de la ligne, chaque ligne est
traitée cent quatre fois. Au bout d'une fois ou deux, si la correction
n'est pas faite, c'est qu'il y a un truc qui coince, non ?
____________________________________________
alain Lebayle a écrit, le 10/07/2009 09:06 :
> Bonjour,
> J'ai cette procédure qui fait planter le programme.
> Je vous remercie de me donner un coup de main, je ne vois pas le pb
> Merci
> Alain
> Sub Les_lignes()
> Application.ScreenUpdating = False
> Sheets("Travail").Unprotect Password:="toto"
> Set plage = Range("A3:AD2000")
> For Each C In plage
> C.EntireRow.AutoFit
> If C.RowHeight > 42.75 Then
> Else
> C.RowHeight = 42.75
> End If
> Next
> Sheets("Travail").Unprotect Password:="toto"
> Application.ScreenUpdating = True
> End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -