Discussion :

[michel13]

Bonjour,
je vaudrais protégée les cellule dans une plage A1:B9 avec la methode offset
si ont veut sélectionnée une cellule de la plage elle decale automatique en C1
et je vaudrais que toutes texte de la colonne C soit automatique en majuscule ?

Merci.

[fring]

Bonjour,

je vaudrais protégée les cellule dans une plage A1:B9 avec la methode offset
si ont veut sélectionnée une cellule de la plage elle decale automatique en C1

Il faut intervenir dans l'évènement Selection_Change de la feuille

Code à insérer dans l'objet feuille :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A1:B9")) Is Nothing Then
        Range("C1").Activate
    End If
End Sub

Pour la seconde question

et je vaudrais que toutes texte de la colonne C soit automatique en majuscule

Plusieurs possibilités, notamment :

Code à insérer dans un module standard :

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

1
2
3
4
5
6
Sub Maj()
Dim x As Integer
    For x = 1 To Cells(65535, 3).End(xlUp).Row
        Cells(x, 3) = UCase(Cells(x, 3))
    Next
End Sub

[michel13]

Bonsoir,
merci pour votre reponse première code fonctionne très bien, pour le deuxième
je vaudrais qu il soit automatique pour chaque saisie ?

Merci.

Code :

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

1
2
3
4
5
6
Sub Maj()
Dim x As Integer
    For x = 1 To Cells(65535, 3).End(xlUp).Row
        Cells(x, 3) = UCase(Cells(x, 3))
    Next
End Sub

[fring]

je vaudrais qu il soit automatique pour chaque saisie ?

Oui tu as raison, j'aurais du y penser

C'est le même principe que pour le premier code sauf que dans ce cas on va intervenir dans l'évènement Change de la feuille au lieu de Selection_Change tout en limitant l'action à la colonne C

Code à insérer dans l'objet feuille :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
        Target.Value = UCase(Target.Value)
    End If
End Sub

[michel13]

Bonjour,
merci pour les deux codes ca marche très bien.
Problème resolu.

[michel13]

Bonjour,
j'ai un petit problème avec le code :

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
        Target.Value = UCase(Target.Value)
    End If
End Sub

Si je veux supprimer une ligne j'ai le message erreur 13 ??

[zyhack]

bonjour

en ajoutant une gestion d'erreur le tour est joué, je pense que ça devrait répondre à ton problème.

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
      On Error Resume Next  
      Target.Value = UCase(Target.Value)
    End If
End Sub

bonne soirée

[michel13]

Bonsoir,
pour le code de protection je ne peux supprimé les ligne de A1:B9 car chaque fois c'est la première ligne que est supprimé.( C1 activate )

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A1:B9")) Is Nothing Then
        Range("C1").Activate
    End If
End Sub

[fring]

Bonsoir,
pour le code de protection je ne peux supprimé les ligne de A1:B9 car chaque fois c'est la première ligne que est supprimé.( C1 activate )

Bin je vois pas où est la question...ton code exécute ce que tu lui demandes de faire, dès que tu clic dans une des cellules de la plage A1:B9 tu es renvoyé dans la cellule C1.
Donc, si tu veux supprimer la ligne 3, positionne toi en C3 ou D3 ou E3 ou F3 ou .... IV3 et tu pourras supprimer cette ligne.