largeur colonne automatique lors d'une saisie

A

A4L9

XLDnaute Occasionnel

• 22 Juillet 2014

• #2

Re : largeur colonne automatique lors d'une saisie

Bonjour,

a coller dans chaque feuille depuis l'éditeur VBA (Alt + F11)

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
 colonne = Target.Column  ' colonne dans laquelle on vient d'effectuer une saisie
 Columns(colonne).EntireColumn.AutoFit  'réglage de la largeur de la colonne
 End Sub

source:
ajustement automatique+excel - Bureautique - LOGICIELS - FORUM high-tech


Cordialement,

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 22 Juillet 2014

• #3

Re : largeur colonne automatique lors d'une saisie

Bonjour Mumuriton, bonjour le forum,

Essaie avec ce code à placer dans le composant ThisWorkbook :

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Select Case Sh.Name
    Case "REPARTITION TRANSPORT", "CA PREVISIONNEL", "LISTE"
    Case Else
        Sh.Columns(Target.Column).AutoFit
End Select
End Sub

[Édition]
Bonjour A4L9 on s'est croisé...

 

Dernière édition: 22 Juillet 2014

Vote positif 0 Vote négatif

M

mumuriton

XLDnaute Occasionnel

• 22 Juillet 2014

• #4

Re : largeur colonne automatique lors d'une saisie

Bonjour à vous deux,

A4L9, cela fonctionne malheureusement, il y a des colonnes qui se remplissent automatiquement avec des résultats et celles ci ne s'ajuste pas automatiquement. As tu une idée? Merci😕


Robert, ta formule ne fonctionne pas, merci quand même.🙄

Murielle

 

Vote positif 0 Vote négatif

A

A4L9

XLDnaute Occasionnel

• 22 Juillet 2014

• #5

Re : largeur colonne automatique lors d'une saisie

Bonjour Robert,

mumuriton, j'ai essayé la macro de Robert et elle fonctionne chez moi... l'a tu bien placée dans This Workbook?

La macro s'exécute lors d'un changement de cellule (et donc un clic) en raison de la propriété "change", et concerne la colonne de la cellule modifiée.

essaye le code suivant toujours dans This Workbook

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
For Each Sh In ActiveWorkbook.Sheets
Sh.Cells.EntireColumn.AutoFit
Next
End Sub

Cliquez pour agrandir...

source: Réglage largeur des colonnes dans une macro : Forum Excel

 

Vote positif 0 Vote négatif

M

mumuriton

XLDnaute Occasionnel

• 22 Juillet 2014

• #6

Re : largeur colonne automatique lors d'une saisie

re A4L9,

il y a peut être une manip à faire en plus, comme indiquer, malheureusement, je ne m'y connais pas en vba.

la proposition que tu me fais sur le nouveau code, faut il que j'enlève tous les autres codes sur les autres onglets (comme tu me l'avez indiquez) et mettre uniquement celui là?

murielle

 

Vote positif 0 Vote négatif

A

A4L9

XLDnaute Occasionnel

• 22 Juillet 2014

• #7

Re : largeur colonne automatique lors d'une saisie

re,

oui effacez tous les autres pour s'assurer que le code étudié est bien celui-ci.

Votre classeur est bien au format xlsm? sinon l'enregistrer sous avec l'extension "xlsm".

 

Vote positif 0 Vote négatif

M

mumuriton

XLDnaute Occasionnel

• 22 Juillet 2014

• #8

Re : largeur colonne automatique lors d'une saisie

re,

C'est bon merci bcp.

Je me suis aperçue que sur certains onglets (comme prévision de transport), j'ai les titres qui sont sur deux colonnes, et donc avec la formule, elles ne sont plus ajustées, car la formule s'adapte dans tous les cellules sans pouvoir faire d'exception.

As tu une idée? Si non, ce n'est pas grave.

Merci bcp pour ton aide précieuse.🙄

Murielle

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 22 Juillet 2014

• #9

Re : largeur colonne automatique lors d'une saisie

Bonjour, mumuriton, A4L9, Robert 🙂, le Forum,

Une autre suggestion, en pièce jointe, avec ce code :

Code:

Option Explicit
Private Sub Workbook_SheetSelectionChange(ByVal o As Object, ByVal Target As Range)
    If o.Name <> "REPARTITION TRANSPORT" Or o.Name <> "CA PREVISIONNEL" _
       Or o.Name <> "LISTE" Then Cells.EntireColumn.AutoFit
End Sub

A bientôt 🙂

 

Pièces jointes

• 00 - mumuriton - Colonnes taille ajuster.xls

  720 KB · Affichages: 39

Vote positif 0 Vote négatif

M

mumuriton

XLDnaute Occasionnel

• 22 Juillet 2014

• #10

Re : largeur colonne automatique lors d'une saisie

bonjour DoubleZero,

par curiosité, j'ai essayé ton code, il fonctionne parfaitement sur tous les onglets y compris ceux qu'il ne devrait pas toucher.

Pareil dans ton fichier joint.

Merci quand même

murielle

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 22 Juillet 2014

• #11

Re : largeur colonne automatique lors d'une saisie

Re-bonjour,

mumuriton à dit:

... j'ai essayé ton code, il fonctionne parfaitement sur tous les onglets y compris ceux qu'il ne devrait pas toucher...

Cliquez pour agrandir...

Oui 😱, mumuriton.

Remplacer le précédent code par celui-ci :

Code:

Option Explicit
Private Sub Workbook_SheetSelectionChange(ByVal o As Object, ByVal Target As Range)
    If o.Name <> "REPARTITION TRANSPORT" And o.Name <> "CA PREVISIONNEL" _
       And o.Name <> "LISTE" Then Cells.EntireColumn.AutoFit
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

M

mumuriton

XLDnaute Occasionnel

• 23 Juillet 2014

• #12

Re : largeur colonne automatique lors d'une saisie

Bonjour DoubleZero

merci bcp, cela fonctionne parfaitement.

a+

Murielle

 

Vote positif 0 Vote négatif