XL 2010 Selection multiple

Bonjour le forum

Myst
C'est la même chose que dans cette discussion, non ?
http://www.excel-downloads.com/thre...rniére-ligne-non-vide.20011174/#post-20083996
C'est pas plus simple de rester dans cette première discussion ?

Bonjour Yurperqod
Si mais je croyais la discussion fini, autant pour moi
Que fait on ?

J'ai modifié le code du bouton de l'userform MACHINE2
Est-ce que c'est bon ?

Re
La sélection des zones est nickel mais y a un petit problème dans la zone E26 à P46 en colonne L et M, les cellule reste rouge en continu

Re
Ca y est ça fonctionne

Public LastLigne As Long
Public LastColonne As Long
Private Sub CommandButton1_Click()
Dim i As Long, j As Long, l As Long
LastLigne = 46
LastColonne = 16
For i = 1 To 7
If Not Me.Controls("CheckBox" & i).Value Then
Cells(25, 7 + i).Font.ColorIndex = xlAutomatic
Cells(25, 7 + i).Interior.ColorIndex = 1
Else
Cells(25, 7 + i).Font.ColorIndex = 2
End If
Next
Dim c As Control
For Each c In Me.Controls
Select Case TypeName(c)
Case "CheckBox"
c.Value = False
End Select
Next c
'fermer l'userform
Machine2.Hide
'mise à jour de la couleur de police selon la colonne D
For l = 26 To LastLigne
CouleurPolice = Range("D" & l).Font.ColorIndex
Range("E" & l).Resize(1, LastColonne - 4).Interior.ColorIndex = CouleurPolice
Next l
'mise à jour de la couleur de cellule (gris) selon le contenu de la ligne 2
For j = 5 To LastColonne
If Cells(25, j).Font.ColorIndex = xlAutomatic Then
Cells(26, j).Resize(LastLigne - 25, 1).Interior.ColorIndex = 16 'gris
End If
'mise à jour en rouge des cellules vides et police "blanc" en ligne 2
If Cells(25, j).Font.ColorIndex = 2 Then 'couleur blanc
For k = 26 To LastLigne
If Cells(k, j) = "" Then Cells(k, j).Interior.ColorIndex = 3 'couleur Rouge
Next k
End If
Next j
Calculate
End Sub[/code]

Re
Merci Yurperqod
J'ai un dernier problème
Comme faire pour que lorsque que je déplace une cellule dans les zones E3 a P23 et E26 a P46 elle prenne en compte la macro automatiquement