erreur 2042 dans boucle

flo2002

XLDnaute Impliqué
Re : erreur 2042 dans boucle

je ne comprend pas Gorfael,
je lui dis bien si B1 = somme* alors tu le vire sinon suivant???
 

flo2002

XLDnaute Impliqué
Re : erreur 2042 dans boucle

Correction pour Dg62, la macro fonctionne et fait bien son boulot, mais elle plante avant de sortir...
 

flo2002

XLDnaute Impliqué
Re : erreur 2042 dans boucle

la macro, bancale mais qui marche (enfin qui boite...)

ws2.Select
Dim cel As Range
Dim j As Integer
j = 1
On Error Resume Next
For Each cel In Range("B1:B1000")
If Range("b" & j).Value Like "Somme*" Then
Cells(j, 2).Delete Shift:=xlUp
j = j - 1
Else
j = j + 1
End If
Next cel

On Error GoTo 0

merci à tous ca à l'air de tourner à peu près!
 

dg62

XLDnaute Accro
Re : erreur 2042 dans boucle

:)

Qu'est-ce que tu mets a la place de B2:B100 dans ma proc ?
 

dg62

XLDnaute Accro
Re : erreur 2042 dans boucle

Flo,

La macro de robert tourne bien qu'est-ce qui bloque ?

Code:
Sub essai()
Dim c21 As Long 'please
Dim i As Long 'please aussi
 
c21 = Range("B65536").End(xlUp).Row
 
For i = c21 To 1 Step -1
If Range("b" & i).Value Like "Somme*" Then Cells(i, 2).Delete
Next i


End Sub
 

flo2002

XLDnaute Impliqué
Re : erreur 2042 dans boucle

Bonjour,
j'ai l'impression qu'il plante pour
Range("b" & i).Value different de somme.
le code que j'ai mis a l'air bon, il sort quand ca plante...
 

dg62

XLDnaute Accro
Re : erreur 2042 dans boucle

Bonjour Flo2002


Je ne vois pas de problème ! la macro tourne impec sur mon ordinateur.

excel 2003
 

flo2002

XLDnaute Impliqué
Re : erreur 2042 dans boucle

Bonjour et merci de votre aide,
sur mon ordi la macro de Robert fonctionne jusqu'à ce qu'il n'y ai plus de somme ensuite ca plante. Donc pour palier ce probleme j'ai mis un on error resum next.
Merci encore de votre aide
 

Discussions similaires


Haut Bas