majuscule sur certaine cellule

Le
stephprod
Bonjour je voudrais savoir si il existe un code qui me mette en majuscule
uniquement certaine cellule et non toute comme le code suivant sur une
feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target <> "" Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
End If
End Sub

cellule g20 e67 h45 etc j en ai une dizaine a modifier

merci d avance

stefane
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5282181
Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("G20,E67,H45"), Target) Is Nothing And
Target.Count = 1 Then
If Target <> "" Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
End If
End Sub

JB


On 6 fév, 09:28, "stephprod"
Bonjour je voudrais savoir si il existe un code qui me mette en majuscule
uniquement certaine cellule et non toute comme le code suivant sur une
feuille
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count = 1 Then
   If Target <> "" Then
      Application.EnableEvents = False
     Target = UCase(Target)
      Application.EnableEvents = True
    End If
  End If
End Sub

cellule g20 e67 h45 etc... j en ai une dizaine a modifier

merci d avance

stefane


stephprod
Le #5282161
merci encore une fois JB pour ton code il marche nikel et en plus il ralenti
meme pas les autres procedures mais un seul hic , debogage quand la cellule
choisi dans cette private sub est supprimée.



"JB"
Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("G20,E67,H45"), Target) Is Nothing And
Target.Count = 1 Then
If Target <> "" Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
End If
End Sub

JB


On 6 fév, 09:28, "stephprod"
Bonjour je voudrais savoir si il existe un code qui me mette en majuscule
uniquement certaine cellule et non toute comme le code suivant sur une
feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target <> "" Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
End If
End Sub

cellule g20 e67 h45 etc... j en ai une dizaine a modifier

merci d avance

stefane


stephprod
Le #5282131
merci JB pour ton code mais il plantait lorsque la cellule etait vide donc j
ai modifié de moi meme... voici pour les autres utilisateurs...
Private Sub Worksheet_Change(ByVal Target As Range)

If Not
Intersect(Range("G20,g21,i21,d29,f35,f36,f37,h36,h37,h40,h42,g55,f57,g58,i58,g61,f63,g64,i64,g80,g81,g82,i82,e83,g87,g88,i88,g92,g93,i93"),
Target) Is Nothing And Target.Count = 1 Then
If Target = "" Then Exit Sub
Application.EnableEvents = False
If Target <> "" Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
End If
End Sub


"JB"
Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("G20,E67,H45"), Target) Is Nothing And
Target.Count = 1 Then
If Target <> "" Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
End If
End Sub

JB


On 6 fév, 09:28, "stephprod"
Bonjour je voudrais savoir si il existe un code qui me mette en majuscule
uniquement certaine cellule et non toute comme le code suivant sur une
feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target <> "" Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
End If
End Sub

cellule g20 e67 h45 etc... j en ai une dizaine a modifier

merci d avance

stefane


Brunos
Le #5282071
Bonjour je voudrais savoir si il existe un code qui me mette en
majuscule uniquement certaine cellule et non toute comme le code
suivant sur une feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target <> "" Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
End If
End Sub

cellule g20 e67 h45 etc... j en ai une dizaine a modifier


Dans un module tu colles :
Sub UcaseDeSelection()
' met la selection en majuscule
For Each C In Selection
C.Value = UCase(C.Value)
Next
End Sub

Ensuite tu reviens sur la feuille, tu sélectionnes les cellules que tu
veux mettre en majuscule (avec touche CTRL) et tu lance la macro.

--
Brunos

Publicité
Poster une réponse
Anonyme