Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Erreur: La methode Delete de l'objet Range a échoué

Erreur: La methode Delete de l'objet Range a échoué

1 réponse
Avatar
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??

Merci d'avance
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
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



.