GADENSEB
XLDnaute Impliqué
Bonjour le Forum,
J'ai besoin de vous car je galére pour compiler 3 codes
Je gére une base de données et je voudrais qu'a l'ouverture il se passe :
- La mise en Majuscule de toutes les cellules (colonne A à BB), et jusqu’à la dernière ligne
- La mise en majuscule de la premiére lettre (un prénom) sur la colonne H
- Pas de mise en majuscules pour les colonnes AA; AD; AY; AZ; BA
J'ai les trois codes suivants mais je sais pas dans quel ordre les croisés ...
Avez-vous une idée ? une piste
Bonne am
Seb
J'ai besoin de vous car je galére pour compiler 3 codes
Je gére une base de données et je voudrais qu'a l'ouverture il se passe :
- La mise en Majuscule de toutes les cellules (colonne A à BB), et jusqu’à la dernière ligne
- La mise en majuscule de la premiére lettre (un prénom) sur la colonne H
- Pas de mise en majuscules pour les colonnes AA; AD; AY; AZ; BA
J'ai les trois codes suivants mais je sais pas dans quel ordre les croisés ...
Code:
------------------------------------------------------
Dim I, j As Integer
j = .Range("A2").End(xlDown).Row
For I = 2 To j
----------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then End
If Not Application.Intersect(Target, Range("A2:BB5000")) Is Nothing Then
If Not IsEmpty(Target) Then
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End If
Else
End If
End Sub
---------------------------------------------------------------------------------
.Columns("H:H").Value = UCase(Left(h, 1)) & LCase(Right(h, Len(h) - 1))
Avez-vous une idée ? une piste
Bonne am
Seb
Dernière édition: