(RESOLU)vider les lignes sous conditions

chaelie2015 · 1 Mars 2016

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 · 1 Mars 2016

Re : vider les lignes sous conditions

Bonjour chaelie,

avec ce code:

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 · 1 Mars 2016

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 · 1 Mars 2016

Re : (RESOLU)vider les lignes sous conditions

Re,

ou mettre ce code pour un bouton sur la feuille

Code:

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

(RESOLU)vider les lignes sous conditions

chaelie2015

XLDnaute Accro

Pièces jointes

phlaurent55

Nous a quittés en 2020

chaelie2015

XLDnaute Accro

phlaurent55

Nous a quittés en 2020

Discussions similaires