Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
C'est sûrement pas le plus simple et le plus efficace, mais cette procédure doit fonctionner (la variable à entrer est la lettre de la colonne)
Sub ColonneMaj(Colonne As String)
Dim Cellule As Range
For Each Cellule In Range(Colonne & "1:" & Colonne & Range(Colonne & "65536").End(xlUp).Row)
Cellule = UCase(Cellule)
Next Cellule
End Sub
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.