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

Le
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
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Ellimac
Le #1221646
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



.



Publicité
Poster une réponse
Anonyme