Plage qui se grise [Résolu]

Signaler
Messages postés
1600
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
22 janvier 2020
-
ALS35
Messages postés
364
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
1 janvier 2020
-
Bonjour,

Avec ce code à chaque fois que je rempli une cellule tout la plage se grise et c'est très génant
Avez vous une solution pour améliorer cela
Private Sub Worksheet_Change(ByVal target As Range)

Range("A3:G15").Select
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A3:A15") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A3:G15")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("G3:G15") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A3:G15")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
 


Je vous remercie
Crdlt



Configuration: Windows / Firefox 71.0


1 réponse

Messages postés
364
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
1 janvier 2020
13
Bonjour,

Oui c'est énervant, en général je sélectionne après le tri la première cellule du tableau, je ne sais pas s'il y a d'autres moyens !
ActiveWorkbook.Worksheets("Feuil1").Range("A3").Select

Cordialement
ALS35
Messages postés
364
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
1 janvier 2020
13 > JCB40
Messages postés
1600
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
22 janvier 2020

C'est à dire, quelle cellule suivante ?
JCB40
Messages postés
1600
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
22 janvier 2020
220 > ALS35
Messages postés
364
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
1 janvier 2020

La cellule a coté par exemple A3>>>B3
ALS35
Messages postés
364
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
1 janvier 2020
13 > JCB40
Messages postés
1600
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
22 janvier 2020

Et bien tu fais directement
ActiveWorkbook.Worksheets("Feuil1").Range("B3").Select

ou tu fais un décalage
ActiveWorkbook.Worksheets("Feuil1").Range("A3").Offset(0,1).Select

Cordialement
JCB40
Messages postés
1600
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
22 janvier 2020
220 > ALS35
Messages postés
364
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
1 janvier 2020

ça ne fonctionne pas
J'ai 7 colonnes a remplir de A à G
ce que je cherche c'est quand la cellule de A3 est rempli le curseur se met sur B3 et ainsi de suite jusque G
et ensuite pareil sur la ligne suivante
ALS35
Messages postés
364
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
1 janvier 2020
13 > JCB40
Messages postés
1600
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
22 janvier 2020

Tu peux essayer ça dans le code de ta feuille
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A3:G15")) Is Nothing Then
        Target.Offset(0, 1).Select
    End If
End Sub


Sinon tu as les options avancée Excel "Déplacer la sélection après validation" Sens vers la droite