Microsoft 365 Largeur de colonne automatique selon le contenu des cellules

[Exceluser2022]

Bonjour à vous tous;
bonne année 2023
je desire faire un code vba pour ajuster la largeur d'une colonne selon le contenu de l'une des cellules. Mon code marche seulement pour la derniere ligne c3 que j'ai choisis comme exemple. En effet une fois une des cellules de range("a1:c3") est non nulle la largeur doit etre 18 mais une fois elle est vide elle doit revenir à la taille 8. ca marche seulement dans la ligne 3:

Private Sub Worksheet_Change(ByVal Target As Range)
 Application.EnableEvents = False
Application.ScreenUpdating = False

Dim rg As Range
Set rg = Range("a1:c3")
For Each c In rg

If c.Value <> "" Then
           
            c.ColumnWidth = 18
 

 
ElseIf c.Value = "" Then

   c.ColumnWidth = 8

 
End If
Next
   Application.EnableEvents = True
Application.ScreenUpdating = True


End Sub

avez-vous une idée
merci d'avance

 

[vgendron]

Bonjour

tu as effectivement l'impression que ca ne marche que pour la ligne 3
en fait

Set rg = Range("a1:c3")
For Each c In rg
msgbox c.row

ca marche pour toutes les lignes.. mais ce qui est fait pour les lignes 1 et 2 est écrasé par la ce qui est appliqué pour la ligne 3

pourquoi ne pas utiliser l'autofit??

 

[Exceluser2022]

Bonjour

tu as effectivement l'impression que ca ne marche que pour la ligne 3
en fait

ca marche pour toutes les lignes.. mais ce qui est fait pour les lignes 1 et 2 est écrasé par la ce qui est appliqué pour la ligne 3

pourquoi ne pas utiliser l'autofit??

autofit garde la derniere largeur de la cellule une fois vide: une fois une donnée est entrée la largeur s'adapte automatiquement, mais une fois vide elle garde la derniere largeur au lieu de revenir par exemple à 8

 

[Phil69970]

Bonjour @Exceluser2022 , Vincent

Je te propose ce fichier

Merci de ton retour

@Phil69970

 

[Exceluser2022]

Bonjour @Exceluser2022 , Vincent

Je te propose ce fichier

Merci de ton retour

@Phil69970

Bonjour
je l'ai essayé ca ne marche pas,
je suis entrain de relire votre code
merci

 

[Phil69970]

@Exceluser2022

je l'ai essayé ca ne marche pas,

Cela ne veut rien dire
Qu'est ce qui ne marche pas ?
Mon fichier ?
Le fichier que tu n'as pas fournit ?

Explique ce qui ne marche pas .... essaye d'être précis !!!!

@Phil69970

 

[Exceluser2022]

j'ai entré une valeur quelconque non nulle dans range("a1:c3") et la dimension de la cellule ne change pas ni pour 18 ni pour 8 ni un autofit
meme le msgbox ne s'affiche pas

 

[Phil69970]

Re

As tu activé les macros ?

Car avec mon fichier
Etape par étape

1)

2)

3)

4)Et cela donne

@Phil69970

 

[Exceluser2022]

maintenant ca bouge, je vois les changements. Cependant: si range("a1") est non vide et range("a3") est aussi non vide puis je vide range("a1") la largeur de la cellule revient à 8 alors elle devrait rester à 18 puisque a1 et a3 c'Est la meme colonne et a3 et non vide

 

[vgendron]

bonjour

attention, 9 messages et toujours pas de fichier qui représente TON besoin..
on frole l'abandon par les (l') intervenants....

 

[Phil69970]

Re

Donc avec le même fichier ce qui ne marchait pas marche !

Pour ce que tu décris il faut faire un choix si dans une colonne A par exemple :
-En A1 un mot d'une largeur de 15
-Et en A3 un mot d'une largeur de 10
puis tu retournes en A1 et tu effaces la cellule A1 (reste toujours A3 de 10 de large)

Quel résultat tu veux ?

@Phil69970

 

[Exceluser2022]

ci-joint le fichier
le resultat que je veux: une fois une cellule de range("a1:c3") est non vide sa colonne correspondante prend la largeur 18 sinon 8
merci infiniment

 

[Phil69970]

@Exceluser2022

N'oublie pas mes questions du post #11 sinon je t'oublierais de même !!!

@Phil69970

 

[Exceluser2022]

Re

Donc avec le même fichier ce qui ne marchait pas marche !

Pour ce que tu décris il faut faire un choix si dans une colonne A par exemple :
-En A1 un mot d'une largeur de 15
-Et en A3 un mot d'une largeur de 10
puis tu retournes en A1 et tu effaces la cellule A1 (reste toujours A3 de 10 de large)

Quel résultat tu veux ?

@Phil69970

si on efface a1 il faut que ca reste 15 car a3 est non vide

 

[vgendron]

avec ceci.. tout simplement..?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False

Dim rg As Range
Set rg = Range("a1:c3")

For Each c In rg.Columns 'pour chaque colonne de la range
    'c.Select
    If WorksheetFunction.CountA(c) <> 0 Then 'on compte le nombre de cellule NON vide
        c.ColumnWidth = 18
    Else
        c.ColumnWidth = 8
    End If
Next c
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub