Erreur: La methode Delete de l'objet Range a échoué
1 réponse
Emile \(le petit\)
Salut tout le monde,
Voila ma macro
______________________________________
Private Sub sbNom_Change()
Dim m As Integer
Worksheets("data").Select
With Range("i3")
Do
If .Offset(m, 0).Formula = "" Then Exit Do
If .Offset(m, 0).Formula <> sbNom Then
.Offset(m, 0).Range("a1:b1").Delete xlShiftUp
Else: m = m + 1
End If
Loop
sbNom.RowSource = "data!i3:" &
Worksheets("data").Range("i1").End(xlDown).Address
sbPrenom.RowSource = "data!j3:" &
Worksheets("data").Range("j1").End(xlDown).Address
End With
End Sub
_______________________________________
Quand j'arrive à la ligne
.Offset(m, 0).Range("a1:b1").Delete xlShiftUp
Il me met l'erreur "La methode Delete de l'objet Range a échoué"
En sachant que cette macro sert à deleder toutes les personnes qui n'ont pas
le même nom que sbNom...
Il reconnait toutes les variables et prend les valeurs souhaitées... Où est
l'erreur??
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
Ellimac
Bonjour,
Essaie de supprimer en partant du bas : range("i65000").end(XlUp).Select While ActiveCell<>"" if activecell<>sbNom then activecell.EntireRow.delete activecell.offset(-1) wend
Camille
-----Message d'origine----- Salut tout le monde,
Voila ma macro ______________________________________ Private Sub sbNom_Change() Dim m As Integer Worksheets("data").Select With Range("i3") Do If .Offset(m, 0).Formula = "" Then Exit Do If .Offset(m, 0).Formula <> sbNom Then .Offset(m, 0).Range("a1:b1").Delete xlShiftUp
Else: m = m + 1 End If Loop sbNom.RowSource = "data!i3:" & Worksheets("data").Range("i1").End(xlDown).Address sbPrenom.RowSource = "data!j3:" & Worksheets("data").Range("j1").End(xlDown).Address End With End Sub _______________________________________ Quand j'arrive à la ligne
.Offset(m, 0).Range("a1:b1").Delete xlShiftUp
Il me met l'erreur "La methode Delete de l'objet Range a échoué"
En sachant que cette macro sert à deleder toutes les personnes qui n'ont pas
le même nom que sbNom...
Il reconnait toutes les variables et prend les valeurs souhaitées... Où est
l'erreur??
Merci d'avance
.
Bonjour,
Essaie de supprimer en partant du bas :
range("i65000").end(XlUp).Select
While ActiveCell<>""
if activecell<>sbNom then activecell.EntireRow.delete
activecell.offset(-1)
wend
Camille
-----Message d'origine-----
Salut tout le monde,
Voila ma macro
______________________________________
Private Sub sbNom_Change()
Dim m As Integer
Worksheets("data").Select
With Range("i3")
Do
If .Offset(m, 0).Formula = "" Then Exit Do
If .Offset(m, 0).Formula <> sbNom Then
.Offset(m, 0).Range("a1:b1").Delete
xlShiftUp
Else: m = m + 1
End If
Loop
sbNom.RowSource = "data!i3:" &
Worksheets("data").Range("i1").End(xlDown).Address
sbPrenom.RowSource = "data!j3:" &
Worksheets("data").Range("j1").End(xlDown).Address
End With
End Sub
_______________________________________
Quand j'arrive à la ligne
.Offset(m, 0).Range("a1:b1").Delete xlShiftUp
Il me met l'erreur "La methode Delete de l'objet Range a
échoué"
En sachant que cette macro sert à deleder toutes les
personnes qui n'ont pas
le même nom que sbNom...
Il reconnait toutes les variables et prend les valeurs
souhaitées... Où est
Essaie de supprimer en partant du bas : range("i65000").end(XlUp).Select While ActiveCell<>"" if activecell<>sbNom then activecell.EntireRow.delete activecell.offset(-1) wend
Camille
-----Message d'origine----- Salut tout le monde,
Voila ma macro ______________________________________ Private Sub sbNom_Change() Dim m As Integer Worksheets("data").Select With Range("i3") Do If .Offset(m, 0).Formula = "" Then Exit Do If .Offset(m, 0).Formula <> sbNom Then .Offset(m, 0).Range("a1:b1").Delete xlShiftUp
Else: m = m + 1 End If Loop sbNom.RowSource = "data!i3:" & Worksheets("data").Range("i1").End(xlDown).Address sbPrenom.RowSource = "data!j3:" & Worksheets("data").Range("j1").End(xlDown).Address End With End Sub _______________________________________ Quand j'arrive à la ligne
.Offset(m, 0).Range("a1:b1").Delete xlShiftUp
Il me met l'erreur "La methode Delete de l'objet Range a échoué"
En sachant que cette macro sert à deleder toutes les personnes qui n'ont pas
le même nom que sbNom...
Il reconnait toutes les variables et prend les valeurs souhaitées... Où est