Discussion :

[NEC14]

Bonjour à tous et à toutes,

Imaginons que je sélectionne les cellules de A1 à A10 puis de C15 à C23. Dans la cellule A1 je tape "C".
Comment faire pour que la saisie se fasse simultanément dans les autres cellules sélectionnées ?
Je vous remercie par avance pour votre aide
René

[Philippe Tulliez]

Bonjour René,
Tu valides par la combinaison des touches Ctrl+Enter

[Theze]

Bonjour,

A mettre dans le module de la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Selection.Value = Target.Value
 
End Sub

[NEC14]

Merci beaucoup pour votre aide.
J'ai déjà ce boût de code qui met la saisie en majuscule, est-ce que je peux ajouter votre proposition dedans ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Worksheet_Change(ByVal Target As Range)
'Cela évite que l'événement se répète à chaque modification du contenu de la cellule
    Application.EnableEvents = False
'Met en majuscule
    Target = UCase(Target)
'Rétablit la prise en charge des événements
    Application.EnableEvents = True
End Sub

[Theze]

Comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_Change(ByVal Target As Range)
'Cela évite que l'événement se répète à chaque modification du contenu de la cellule
    Application.EnableEvents = False
'Met en majuscule
    Target.Value = UCase(Target.Value)
    Selection.Value = Target.Value
'Rétablit la prise en charge des événements
    Application.EnableEvents = True
End Sub