Plage qui se grise

Résolu/Fermé

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - Modifié le 19 déc. 2019 à 15:05
ALS35 Messages postés 1033 Date d'inscription jeudi 18 juillet 2019 Statut Membre Dernière intervention 9 janvier 2024 - 19 déc. 2019 à 16:52

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

A voir également:

1 réponse

Réponse 1 / 1

ALS35 Messages postés 1033 Date d'inscription jeudi 18 juillet 2019 Statut Membre Dernière intervention 9 janvier 2024 139
19 déc. 2019 à 15:28

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

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
Modifié le 19 déc. 2019 à 15:36

Bonjour
Merci pour ta réponse c'est ok
Par contre comment faire pour que le curseur aille a la cellule suivante?

ALS35 Messages postés 1033 Date d'inscription jeudi 18 juillet 2019 Statut Membre Dernière intervention 9 janvier 2024 139 > JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024
19 déc. 2019 à 15:39

C'est à dire, quelle cellule suivante ?

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461 > ALS35 Messages postés 1033 Date d'inscription jeudi 18 juillet 2019 Statut Membre Dernière intervention 9 janvier 2024
19 déc. 2019 à 15:56

La cellule a coté par exemple A3>>>B3

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

ç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

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

A quoi correspond cette croix sur snapchat

Sur la plage...

Savoir si je suis bloqué par une personne sur snap chat

Dechiffrer une image caché

Discussions similaires

Newsletters