L
Laguich
Guest
bonjour à tous,
voici mon probleme, je souhaite supprimé une cellule dans la feuille 2 mais en restant sur la feuille 1
Supprimer la cellule mais en remontant celle du dessous soit avec .delete shift:=xlup
Voici le code que j'ai commencé mais cela bloque apres le then " propriété de range a échoué"
Comment faire?
Merci
voici mon probleme, je souhaite supprimé une cellule dans la feuille 2 mais en restant sur la feuille 1
Supprimer la cellule mais en remontant celle du dessous soit avec .delete shift:=xlup
Voici le code que j'ai commencé mais cela bloque apres le then " propriété de range a échoué"
Comment faire?
Merci
Code:
Sub Supmail()
Dim lRow As Long
Dim iCntr As Long
lRow = 20
choixbase = "Cherre" 'UserForm4.ComboBox1.Value
nombre = WorksheetFunction.CountIf(Range("A:A"), choixbase)
If nombre = 1 Then
With Sheets(2)
For iCntr = lRow To 2 Step -1
If .Cells(iCntr, 22) = choixbase Then
Sheets(2).Range("v" & iCntr).Delete Shift:=xlUp
End If
Next
End With
Else
Exit Sub
End If
choixbase = ""
nombre = ""
End Sub