Discussion :

[DIDIDIDA]

merci encore tomy, tu m'apprend des choses;
avec ton code c vrai toute la feuille est vérouillé mais aussi selectionée!! elle donc grise!!!est ce qu'il ya pas moyen de vérouiller mais ne pas selectioner(griser)?

[tomy7]

Code :

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

1
2
Loc = Range("A1:AD600").Activate.SpecialCells(xlCellTypeFormulas, 23)
  Loc.Validation

tu change juste le range

[DIDIDIDA]

tomy j'utilise le code de fing, alors je ne voie pas ou insérer ton code???

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Cells.Select Then Target.Offset(1, 1).Activate
Loc = Range("A1:AD600").Activate.SpecialCells(xlCellTypeFormulas, 23)
Loc.Validation
End Sub

[tomy7]

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = range("A1:AD600").validation Then Target.Offset(1, 1).Activate
End Sub

ou range("A1:AD600").select

mais adapte ce range a ton besoin

[DIDIDIDA]

ça marche pas tomy, mais ce n'est grave je vais cherché dans cette direction; merci encore tomy

[fring]

Bon...si je peux me permettre, je vais répondre correctement à la question

dernière question si je peux me permettre: si je veux selectionner toute la feuille ou bien des colonnes comment faire? j'ai essayer ça

Pour une colonne (exemple colonne D)

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 Then Target.Offset(0, 1).Activate
End Sub

Pour une ligne (exemple ligne 8)

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 8 Then Target.Offset(1, 0).Activate
End Sub

Pour plusieurs colonnes (exemple colonne A à E)

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Columns("A:E")) Is Nothing Then Target.Offset(0, 1).Activate
End Sub

Pour plusieurs lignes (exemple lignes 5 à 18)

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Rows("5:18")) Is Nothing Then Target.Offset(1, 0).Activate
End Sub

Pour une plage de cellules (exemple A5 à A15)

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A5:A15")) Is Nothing Then Target.Offset(1, 0).Activate
End Sub

Pour une feuille entière, cette solution ne fonctionne pas !

[tomy7]

oui c est ce que je viens de tester et sa ne fonctionne en aucun cas ....

[DIDIDIDA]

merci becoup fing ça me va tres bien et ça marche merci becoup

[tomy7]

stp post ton code qui fonctionne ...

[DIDIDIDA]

j'utilise le code de fring, celui concernant les colonnes

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Columns("A:E")) Is Nothing Then Target.Offset(0, 1).Activate
End Sub

et des fois j'aurai besoins juste en lignes, donc ça me va tres bien les codes qu'il ma proposer

[DIDIDIDA]

tomy merci encore une fois pour tes efforts, en essayant de m'expliquer tout ce que je n'ai pas compris, l'essentiel que j'ai appris de nouvelles choses et mon probleme est résolubon fin de journée