(RESOLU)vider les lignes sous conditions

[chaelie2015]

Bonjour forum
Je souhaite vider les lignes (cellules en jaune seulement) selon la valeur de la cellule P127 (valeur max 12)
Exemple :
Si je saisi dans P127 la valeur 5 alors toutes les lignes de 134 au 140 doivent se vider(les cellules jaune seulement)
Autre exemple si je saisi dans P127 la valeur 7 alors effacer les lignes 136-140 (les cellules jaune seulement)
salutations

 

[phlaurent55]

Re : vider les lignes sous conditions

Bonjour chaelie,

avec ce code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("P127")) Is Nothing Then
If Target < 0 Then Exit Sub
Range(Cells(129 + [P127], 2), Cells(140, 12)).ClearContents
Range(Cells(129 + [P127], 15), Cells(140, 18)).ClearContents
End If
End Sub

à+
Philippe

 

[chaelie2015]

Re : vider les lignes sous conditions

Bonjour Philippe
super réponse, merci c'est exactement ce que je cherchais
Problème est résolut
Salutations

 

[phlaurent55]

Re : (RESOLU)vider les lignes sous conditions

Re,

ou mettre ce code pour un bouton sur la feuille

Sub Bouton1_Clic()
If [P127] < 0 Then Exit Sub
Range(Cells(129 + [P127], 2), Cells(140, 12)).ClearContents
Range(Cells(129 + [P127], 15), Cells(140, 18)).ClearContents
End Sub

à+
Philippe