limiter la mise en forme à la dernière cellule remplie

[altinea]

bonjour,

je souhaiterai pouvoir modifier cette macro afin qu'elle s'applique jusqu'à la dernière cellule remplie, cela évitera quelle ne fasse toutes les cellules de la colonne

Sub Uppercase()
'Boucle pour parcourir chaque cellule dans la plage spécifiée
For Each x In Range("A1:A5")
ici je pensai mettre ("a:a") et là à priori ça va jusque la dernière cellule de la colonne
' Modifier le texte dans la plage en majuscules
x.Value = UCase(x.value)
Next
End Sub
Merci pour votre aide
bonne soirée

 

[altinea]

Re : limiter la mise en forme à la dernière cellule remplie

re, merci beaucoup staple1600, ça fonctionne, puis te demander une autre variante, en fait mettre systématiquement en majuscule jusque la derniere ligne utilisée?
Car si je reviens sur les ligne précédentes et je modifie et je ne met pas en majuscule cela ne converti pas, ça reste en minuscule.
merci encore

 

[Staple1600]

Re : limiter la mise en forme à la dernière cellule remplie

Re

Toujours sous réserve d'avoir compris le but recherché, essaies ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim dl&, c As Range
If Not Intersect(Target, Range("C:C,E:E,G:G")) Is Nothing Then
If Target.Count = 1 Then
dl = Cells(Rows.Count, Target.Column).End(3).Row
Application.ScreenUpdating = False
For Each c In Columns(Target.Column).SpecialCells(xlCellTypeConstants, 2)
c = StrConv(c, vbUpperCase)
Next
End If
End If
Application.ScreenUpdating = False
End Sub

 

[altinea]

Re : limiter la mise en forme à la dernière cellule remplie

re
merci encore, pour le moment c'est super, juste que pour que la casse change dans la cellule il me faut aller a la cellule inferieure, si ça pouvais faire mais ver sla cellulde de droite puisque le but est de remplir des cellules avec des infos de gauche a droite, encore merci

 

[Staple1600]

Re : limiter la mise en forme à la dernière cellule remplie

Re


Si j'ai bien compris la donne, essaies avec cette légère modif

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim dl&, c As Range
If Not Intersect(Target, Range("C:C,E:E,G:G")) Is Nothing Then
If Target.Count = 1 Then
dl = Cells(Rows.Count, Target.Column).End(3).Row
Application.ScreenUpdating = False
For Each c In Columns(Target.Column).SpecialCells(xlCellTypeConstants, 2).Resize(, 2)
c = StrConv(c, vbUpperCase)
Next
End If
End If
Application.ScreenUpdating = False
End Sub

 

[altinea]

Re : limiter la mise en forme à la dernière cellule remplie

re, j'ai une erreur
erreur d’exécution 1004,
erreur definie par l'application ou l'objet
merci

 

[Staple1600]

Re : limiter la mise en forme à la dernière cellule remplie

Re

Essaies comme ceci alors

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim dl&, c As Range
If Not Intersect(Target, Range("C:C,E:E,G:G")) Is Nothing Then
If Target.Count = 1 Then
dl = Cells(Rows.Count, Target.Column).End(3).Row
Application.ScreenUpdating = False
On Error Resume Next
For Each c In Columns(Target.Column).SpecialCells(xlCellTypeConstants, 2).Resize(, 2)
c = StrConv(c, vbUpperCase)
Next
End If
End If
Application.ScreenUpdating = False
End Sub

Pour tester, il doit y avoir des données en minuscule en colonne D et F.

 

[altinea]

Re : limiter la mise en forme à la dernière cellule remplie

re,
merci encore
voici quelques infos dans le fichier
merci

 

[Staple1600]

Re : limiter la mise en forme à la dernière cellule remplie

Bonjour à tous

altinea
Supprimes la précédnte procédure proposée et remplace là par celle-ci

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dl&, c As Range
If Not Intersect(Target, Range("C:C,E:E,G:G")) Is Nothing Then
If Target.Count = 1 Then
dl = Cells(Rows.Count, Target.Column).End(3).Row
Application.ScreenUpdating = False
Application.EnableEvents = False
If Target.Row = dl Then Target = UCase(Target.Text)
End If
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Est-ce là est le résultat escompté ?

 

[altinea]

Re : limiter la mise en forme à la dernière cellule remplie

Le forum, Robert, Staple1600, merci cela correspond à ce que je voulais merci encore

et pour l'occasion je dirais en plein dans le :


1000


Merci encore à vous et tous ceux qui m'ont permis de faire de belles choses sur excel et au bout de 1000 échanges je me suis encrichi même si je ne suis pas passé pro dans excel. merci encore