Bonjour à tous
Voici quelques lignes de code qui fonctionnent très bien en revanche la ligne de code pour les majuscules ne fonctionne pas j'ai essayé de l'integrer dans Worksheet_Change mais cela freine le programme
Merci de votre aide
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim derlig As Long, cellule As Range
If Intersect(Target, Range("B1")) Is Nothing Then: Exit Sub
Columns(2).Interior.ColorIndex = 0
derlig = Range("B108").End(xlUp).Row
For Each cellule In Range(Cells(1, 2), Cells(derlig, 2))
If Left(cellule, 1) = "*" Then
cellule.Interior.ColorIndex = 36
End If
Next
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 18 Then
If UCase(Target) <> "" Then
Target.Offset(0, -1).FormulaArray = "=IF(RC[1]=0,"""",PROPER(TEXT(RC[1],""jjj"")))"
Else
If UCase(Target) = "" Then
Target.Offset(0, -1).ClearContents
Application.EnableEvents = True
End If
End If
End If
End Sub
'Dim Cell As Range
'If Intersect(Target, Range("A4:C2004,E4:E2004,H4:H2004,J42004,S4:U2004")) Is Nothing Then Exit Sub
'Application.EnableEvents = False
'For Each Cell In Target
'If VarType(Cell) = vbString And Not Cell.HasFormula Then Cell = UCase(Cell)
'Next Cell