Re : Se positionner sur une cellule en particulier (sous condition)
Ca marche ! C'est génial et très gentil. J'imagine que pour mettre en place cette manip sur d'autres items, il me suffit de recopier la procédure et de modifier le code, c'est ça ?
Non ce n'est pas si simple, mais aujourd'hui c'est Noël donc cadeau
Il faut remplacer la macro précédente par celle-ci et dupliquer les deux lignes (Case nn et Nlig=)
Private Sub Worksheet_Change(ByVal CelluleEnCours As Range)
Application.EnableEvents = False '**** bloquer les événements le temps du traitemen
lig = CelluleEnCours.Row
col = CelluleEnCours.Column
Select Case CelluleEnCours.Row
Case 76 ' numero ligne a tester
Nlig = 85 ' numéro ligne d'arrivée
Case 85 ' numero ligne a tester
Nlig = 94 ' numéro ligne d'arrivée
' =======> dupliquer les lignes Case nn et NLig =
Case Else
Exit Sub
End Select
If CelluleEnCours.Value = 1 Then
Cells(Nlig, col).Select ' selection de la cellule
' Range(Cells(lig + 1, col), Cells(Nlig - 1 + 8, col)).ClearContents ' pour effacer les ligne entre les deux
End If
Application.EnableEvents = True ' réactiver les événements
End Sub
Normalemnt cela doit fonctionner
GIBI
PS
en enlevant l'apostrope devant la ligne' Range(Cells(lig + 1, col), Cells(Nlig - 1 + 8, col)).ClearContents on peut effacer les lignes
Curieux mais vos cases à cocher tapent dans la colonne à coté si c'est le cas il ne faut remettre à zéro la colonne d'à côté soitRange(Cells(lig + 1, col+1), Cells(Nlig - 1 + 8, col+1)).ClearContents