Plage qui se grise [Résolu/Fermé]

Signaler
Messages postés
2188
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
15 janvier 2021
-
Messages postés
583
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
15 janvier 2021
-
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
583
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
15 janvier 2021
34
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
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 63550 internautes nous ont dit merci ce mois-ci

Messages postés
583
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
15 janvier 2021
34 >
Messages postés
2188
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
15 janvier 2021

C'est à dire, quelle cellule suivante ?
Messages postés
2188
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
15 janvier 2021
367 >
Messages postés
583
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
15 janvier 2021

La cellule a coté par exemple A3>>>B3
Messages postés
583
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
15 janvier 2021
34 >
Messages postés
2188
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
15 janvier 2021

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
Messages postés
2188
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
15 janvier 2021
367 >
Messages postés
583
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
15 janvier 2021

ç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
Messages postés
583
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
15 janvier 2021
34 >
Messages postés
2188
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
15 janvier 2021

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