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

Question

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

Signaler

JCB40

Messages postés: 2188
Date d'inscription: lundi 2 juillet 2018
Statut: Membre
Dernière intervention: 15 janvier 2021

- Modifié le 19 déc. 2019 à 15:05
ALS35

Messages postés: 583
Date d'inscription: jeudi 18 juillet 2019
Statut: Membre
Dernière intervention: 15 janvier 2021

- 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

Afficher la suite

A voir également:

Plage qui se grise
Plage qui se grise ✓ - Forum - VB / VBA
Que cachent les manchots sur la plage pix ✓ - Forum - Windows
Discord écran gris ✓ - Forum - Logiciels
Rond gris messenger ✓ - Forum - Samsung
Comment enlever la barre grise en bas de l'iphone ✓ - Forum - IPhone

1 réponse

Posez votre question

ALS35 · Accepted Answer · 2019-12-19T15:28:16+0100

Réponse 1 / 1

ALS35

Messages postés: 583
Date d'inscription: jeudi 18 juillet 2019
Statut: Membre
Dernière intervention: 15 janvier 2021

34
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

Afficher les 6 commentaires

Signaler

ALS35

Messages postés: 583
Date d'inscription: jeudi 18 juillet 2019
Statut: Membre
Dernière intervention: 15 janvier 2021

34 > JCB40

Messages postés: 2188
Date d'inscription: lundi 2 juillet 2018
Statut: Membre
Dernière intervention: 15 janvier 2021

19 déc. 2019 à 15:39

C'est à dire, quelle cellule suivante ?

Signaler

JCB40

Messages postés: 2188
Date d'inscription: lundi 2 juillet 2018
Statut: Membre
Dernière intervention: 15 janvier 2021

367 > ALS35

Messages postés: 583
Date d'inscription: jeudi 18 juillet 2019
Statut: Membre
Dernière intervention: 15 janvier 2021

19 déc. 2019 à 15:56

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

Signaler

ALS35

Messages postés: 583
Date d'inscription: jeudi 18 juillet 2019
Statut: Membre
Dernière intervention: 15 janvier 2021

34 > JCB40

Messages postés: 2188
Date d'inscription: lundi 2 juillet 2018
Statut: Membre
Dernière intervention: 15 janvier 2021

19 déc. 2019 à 16:06

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

Signaler

JCB40

Messages postés: 2188
Date d'inscription: lundi 2 juillet 2018
Statut: Membre
Dernière intervention: 15 janvier 2021

367 > ALS35

Messages postés: 583
Date d'inscription: jeudi 18 juillet 2019
Statut: Membre
Dernière intervention: 15 janvier 2021

19 déc. 2019 à 16:17

ç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

Signaler

ALS35

Messages postés: 583
Date d'inscription: jeudi 18 juillet 2019
Statut: Membre
Dernière intervention: 15 janvier 2021

34 > JCB40

Messages postés: 2188
Date d'inscription: lundi 2 juillet 2018
Statut: Membre
Dernière intervention: 15 janvier 2021

Modifié le 19 déc. 2019 à 16:56

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

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

1 réponse

Votre réponse

Newsletter