Je souhaite supprimer la plage de cellules (F4:M4) sur la feuille BDD si du
texte est saisi dans la cellule F13. Je pensais procéder comme suit mais cela
ne fonctionne pas :
With Worksheets("BDD")
If Cells(13, 6) <> 0 Then
.Range(Cells(4, 6), Cells(4, 13)).Delete xlUp
Else
End If
End With
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonsoir, Ceci peut-être '------- Sub jj() With Worksheets("BDD") If Range("f13") <> "" Then Range("f4:m4").ClearContents End With End Sub '--------- Salutations JJ
"Yvan" a écrit dans le message de news:
Bonjour,
Je souhaite supprimer la plage de cellules (F4:M4) sur la feuille BDD si du
texte est saisi dans la cellule F13. Je pensais procéder comme suit mais cela
ne fonctionne pas :
With Worksheets("BDD") If Cells(13, 6) <> 0 Then .Range(Cells(4, 6), Cells(4, 13)).Delete xlUp Else End If End With
-- Merci pour vos réponses.
Bonsoir,
Ceci peut-être
'-------
Sub jj()
With Worksheets("BDD")
If Range("f13") <> "" Then Range("f4:m4").ClearContents
End With
End Sub
'---------
Salutations
JJ
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de
news:2DDA2760-7D09-462F-A1BB-E379A9B962C2@microsoft.com...
Bonjour,
Je souhaite supprimer la plage de cellules (F4:M4) sur la feuille BDD si
du
texte est saisi dans la cellule F13. Je pensais procéder comme suit mais
cela
ne fonctionne pas :
With Worksheets("BDD")
If Cells(13, 6) <> 0 Then
.Range(Cells(4, 6), Cells(4, 13)).Delete xlUp
Else
End If
End With
Bonsoir, Ceci peut-être '------- Sub jj() With Worksheets("BDD") If Range("f13") <> "" Then Range("f4:m4").ClearContents End With End Sub '--------- Salutations JJ
"Yvan" a écrit dans le message de news:
Bonjour,
Je souhaite supprimer la plage de cellules (F4:M4) sur la feuille BDD si du
texte est saisi dans la cellule F13. Je pensais procéder comme suit mais cela
ne fonctionne pas :
With Worksheets("BDD") If Cells(13, 6) <> 0 Then .Range(Cells(4, 6), Cells(4, 13)).Delete xlUp Else End If End With
-- Merci pour vos réponses.
michdenis
Bonjour Yvan,
Dans le code module de la feuille où l'action se déroule, copie le code suivant :
'------------------------- Private Sub Worksheet_Change(ByVal Target As Range)
With Target If .Address = Range("F13").Address Then If .Value <> "" Then Application.EnableEvents = False Range("F4:M4").Delete Application.EnableEvents = True End If End If End With
End Sub '-------------------------
Salutations!
"Yvan" a écrit dans le message de news: Bonjour,
Je souhaite supprimer la plage de cellules (F4:M4) sur la feuille BDD si du texte est saisi dans la cellule F13. Je pensais procéder comme suit mais cela ne fonctionne pas :
With Worksheets("BDD") If Cells(13, 6) <> 0 Then .Range(Cells(4, 6), Cells(4, 13)).Delete xlUp Else End If End With
-- Merci pour vos réponses.
Bonjour Yvan,
Dans le code module de la feuille où l'action se déroule,
copie le code suivant :
'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address = Range("F13").Address Then
If .Value <> "" Then
Application.EnableEvents = False
Range("F4:M4").Delete
Application.EnableEvents = True
End If
End If
End With
End Sub
'-------------------------
Salutations!
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news: 2DDA2760-7D09-462F-A1BB-E379A9B962C2@microsoft.com...
Bonjour,
Je souhaite supprimer la plage de cellules (F4:M4) sur la feuille BDD si du
texte est saisi dans la cellule F13. Je pensais procéder comme suit mais cela
ne fonctionne pas :
With Worksheets("BDD")
If Cells(13, 6) <> 0 Then
.Range(Cells(4, 6), Cells(4, 13)).Delete xlUp
Else
End If
End With
Dans le code module de la feuille où l'action se déroule, copie le code suivant :
'------------------------- Private Sub Worksheet_Change(ByVal Target As Range)
With Target If .Address = Range("F13").Address Then If .Value <> "" Then Application.EnableEvents = False Range("F4:M4").Delete Application.EnableEvents = True End If End If End With
End Sub '-------------------------
Salutations!
"Yvan" a écrit dans le message de news: Bonjour,
Je souhaite supprimer la plage de cellules (F4:M4) sur la feuille BDD si du texte est saisi dans la cellule F13. Je pensais procéder comme suit mais cela ne fonctionne pas :
With Worksheets("BDD") If Cells(13, 6) <> 0 Then .Range(Cells(4, 6), Cells(4, 13)).Delete xlUp Else End If End With
