Autofit Colonnes feuille Automatiquement

1- feuille est protégée (mais le formatage des cellules est autorisé)?

2- L'entrée des données se fait à l'aide d'un menu déroulant dans la
colonne C et génère automatiquement le contenu correspondante dans la
colonne D via une formule. Même chose pou colonne D et E, etc.?

Isabelle,

Merci. Je ne suis pas certain de comprendre la difference
d'application des 2 Private Sub telles que décrites dans ton précédent
post.
J'ai essayé les deux dans une nouvelle feuille et la seconde i.e;

Private Sub Worksheet_Change(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("C:IB"))
If Not isect Is Nothing Then Range("C:IB").EntireColumn.AutoFit
End Sub

fonctionne parfaitement.

Maintenant lorsque j'essaie de l'utiliser dans la feuille de mon
fichier de travail rien ne se passe.

Est-ce que l'un des facteurs suivants est en mesure d'affecter le
déroulement de cette Private Sub

1- feuille est protégée (mais le formatage des cellules est autorisé)?
2- L'entrée des données se fait à l'aide d'un menu déroulant dans la
colonne C et génère automatiquement le contenu correspondante dans la
colonne D via une formule. Même chose pou colonne D et E, etc.?

Merci.

Christophe

bonjour Christophe,

> 1- feuille est protégée (mais le formatage des cellules est autorisé)?

si le "Format de colonne" est authorisé il n'y a pas de probleme,
attention ce n'est pas la même que le "Format de cellule"

> 2- L'entrée des données se fait à l'aide d'un menu déroulant dans la
> colonne C et génère automatiquement le contenu correspondante dans la
> colonne D via une formule. Même chose pou colonne D et E, etc.?

oui, dans ce cas il faut utiliser l'événement Calculate

Private Sub Worksheet_Calculate()
Range("C:IB").EntireColumn.AutoFit
End Sub

isabelle

Le 2010-08-08 15:57, Christophe a écrit :

Isabelle,

Merci. Je ne suis pas certain de comprendre la difference
d'application des 2 Private Sub telles que décrites dans ton précédent
post.
J'ai essayé les deux dans une nouvelle feuille et la seconde i.e;

Private Sub Worksheet_Change(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("C:IB"))
If Not isect Is Nothing Then Range("C:IB").EntireColumn.AutoFit
End Sub

fonctionne parfaitement.

Maintenant lorsque j'essaie de l'utiliser dans la feuille de mon
fichier de travail rien ne se passe.

Est-ce que l'un des facteurs suivants est en mesure d'affecter le
déroulement de cette Private Sub

1- feuille est protégée (mais le formatage des cellules est autorisé)?
2- L'entrée des données se fait à l'aide d'un menu déroulant dans la
colonne C et génère automatiquement le contenu correspondante dans la
colonne D via une formule. Même chose pou colonne D et E, etc.?

Merci.

Christophe

bonjour Fredo,

normalement les deux devraient fonctionner correctement,
je soupçonne une feuille protégée ou bien le focus sur un objet autre que
range...
peut être aussi un "On Error Resume Next" dans la procedure, qui cacherait
l'erreur.
Christophe pourra nous en dire plus,

@--
isabelle

Le 2010-08-08 09:55, Fredo P. a écrit :

Bizarre, chez moi pas de pb, peut être la version Xl? !
Chère Isabelle, que je salue, a sans aucun doute, vues ses compétences,
le dernier bon mot.

"Christophe" <cjoly@mail.doc.gov> a écrit dans le message de news:
f89aa861-4415-48fa-b9a5-846d575b4e38@m1g2000yqo.googlegroups.com...

Bonjour:

Merci Fredo. Malheureusement,il ne se passe rien. les colonnes ne
s'ajustent pas en fonction du contenu.

Christophe

Private Sub Worksheet_Change(ByVal Target As Range)
Range("C:IB").EntireColumn.AutoFit
End Sub