XL 2010 Selection multiple

[Myst]

Bonjour le forum
Le forum m'a déjà bien fait avancer dans mon fichier mais j'aurais encore besoin d'un coup de pouce
Dans le fichier il y a un boutton2 qui gère une zone de sélection E3 à P23 en passant par le bouton "valider" de l'Userform "MACHINE", là ça fonctionne parfaitement
Juste en dessous il y a le button3 qui doit normalement gérer la zone E26 à P46 en passant par le bouton "valider" de l'Userform "MACHINE2" et là je n'arrive pas a modifier la macro pour cette zone
Merci

 

[Yurperqod]

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 ?

 

[Myst]

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

 

[Yurperqod]

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

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
             ' Range(Cells(2, 7 + i), Cells(23, 7 + i)).ClearContents
             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
    'Range("A1").Select
    'Range("E1").Select
    'VIDER LES CHECKBOX
    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
Next j
'mise à jour en rouge des cellules vides
Range("E26:P46").SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 3
Calculate
End Sub

 

[Myst]

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

 

[Myst]

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]

 

[Myst]

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