Discussion :

[NEC14]

Bonjour à tous,

J'aimerai que la largeur s'ajuste automatiquement dès l'instant où il y a du texte à l'intérieur. Je m'explique. Comme les données sont saisies à partir d'un formulaire, il n'est pas question d'utiliser "Target" dans ma macro.
Donc je ne sais pas comment faire. J'ai écrit ceci mais ça ne fonctionne pas.
La première partie du code mets en majuscule certaine colonne. Ensuite, je souhaite que la colonne s'ajuste selon ce qui la grandeur des données s'y trouvant.
Pouvez-vous m'aider s'il vous plait ?
Merci par avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Not Intersect(Target, Range("B4:B500,F4:F500,G4:G500")) Is Nothing Then
  If Target <> UCase(Target) Then Target = UCase(Target.Value)
Columns("A:N").Select
Selection.Columns.AutoFit
End If
End Sub

[mercatog]

Bonjour, Peut être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Not Intersect(Target, Range("B4:B500,F4:F500,G4:G500")) Is Nothing Then
  If Target <> UCase(Target) Then
   Target = UCase(Target.Value)
   target.entirecolumn.AutoFit
  endif
End If
End Sub

[NEC14]

Bonjour mercatog et merci ça fonctionne bien.
Cordialement