XL 2010 Selection d'une zone définie et non la derniére ligne non vide

[Myst]

Bonjour le forum
Mon fichier fonctionne assez bien et j'aurais juste besoin de modifier la sélection de la zone a traiter
Actuellement la zone est identifié par
LastLigne = Range("D" & Rows.Count).End(xlUp).Row
LastColonne = Range("E2").End(xlToRight).Column
et je voudrais définir cette zone par les cellules E3 a P23 😵
merci

 

[Staple1600]

Bonjour à tous

A vue de nez
Dim Zone As range
Set Zone=Range("E3:P23")

 

[Myst]

Bonjour Staple 1600
J'ai modifié en conséquence mais le code ne fonctionne plus

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'LastLigne = Range("D" & Rows.Count).End(xlUp).Row
'LastColonne = Range("E2").End(xlToRight).Column

'selection de la zone a traiter
Dim Zone As Range
Set Zone = Range("E3😛23")

'mise à jour de la couleur de police selon la colonne D
For i = 3 To LastLigne
CouleurPolice = Range("D" & i).Font.ColorIndex
Range("E" & i).Resize(1, LastColonne - 4).Interior.ColorIndex = CouleurPolice
Next i

'mise à jour de la couleur de cellule (gris) selon le contenu de la ligne 2
For j = 5 To LastColonne
If Cells(2, j).Font.ColorIndex = xlAutomatic Then
Cells(3, j).Resize(LastLigne - 2, 1).Interior.ColorIndex = 16 'gris
End If

'mise à jour en rouge des cellules vides et police "blanc" en ligne 2
If Cells(2, j).Font.ColorIndex = 2 Then 'couleur blanc
For k = 3 To LastLigne
If Cells(k, j) = "" Then Cells(k, j).Interior.ColorIndex = 3 'couleur Rouge
Next k
End If
Next j
Calculate
End Sub

 

[Chris401]

Bonjour

Essaye :

Set Zone = Range(Cells(3, 3), Cells(LastLigne, LastColonne))

 

[Myst]

Bonjour le forum, Chris401
J'ai essayé comme ça mais c'est pas mieux, j'ai une erreur d'exécution '1004'

Dim Zone As Range
Set Zone = Range(Cells(3, 3), Cells(LastLigne, LastColonne))

 

[Yurperqod]

Bonjour le forum

J'ai testé trois façons de faire et les trois identifient la plage que tu indiques E3:p23
La macro est installée dans un module standard.

Sub MacroTest()
Dim LastLigne As Long
Dim LastColonne As Long
Dim Zone As Range
LastLigne = Range("D" & Rows.Count).End(xlUp).Row
LastColonne = Range("E2").End(xlToRight).Column
'première façon
MsgBox Sheets("36").Range(Cells(3, "E"), Cells(LastLigne, LastColonne)).Address
'seconde façon
MsgBox Sheets("36").Range("E3:P23").Address
'troisième façon
Set Zone = Sheets("36").Range("E3:P23")
MsgBox Zone.Address
End Sub

Tu peux expliquer exactement ce que tu veux faire, stp ?

La colonne E est la colonne 5 donc le code de ton precédent message devrait être
Set Zone=Sheets("36").Range(Cells(3, 5), Cells(LastLigne, LastColonne))

 

[Yurperqod]

Si ta plage est toujours figée à E3:p23 , tu peux écrire ta macro comme cà:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
LastLigne = 23
LastColonne = 16
'mise à jour de la couleur de police selon la colonne D
For i = 3 To LastLigne
     CouleurPolice = Range("D" & i).Font.ColorIndex
     Range("E" & i).Resize(1, LastColonne - 4).Interior.ColorIndex = CouleurPolice
Next i
'mise à jour de la couleur de cellule (gris) selon le contenu de la ligne 2
For j = 5 To LastColonne
     If Cells(2, j).Font.ColorIndex = xlAutomatic Then
         Cells(3, j).Resize(LastLigne - 2, 1).Interior.ColorIndex = 16 'gris
     End If
     'mise à jour en rouge des cellules vides  et police "blanc" en ligne 2
     If Cells(2, j).Font.ColorIndex = 2 Then 'couleur blanc
         For k = 3 To LastLigne
             If Cells(k, j) = "" Then Cells(k, j).Interior.ColorIndex = 3 'couleur Rouge
         Next k
     End If
Next j
    Calculate
End Sub

 

[Myst]

Bonjour Yurperqod
Ton aide me fais bien avancer, je teste l'ensemble dans l'aprés-midi
Un grand merci a toi