Incompatibilité de type

Le
mannfred
Bonjour,

j'ai le code suivant :

-
Private Sub Workbook_Open()
lignes_supp
End Sub

Sub lignes_supp()
derlg = Range("AF65536").End(xlUp).Row
For i = derlg To 2 Step -1
If UCase(Range("AF" & i)) = "X" Then Range("af" & i).EntireRow.Delete
Next
End Sub
-

Dans la colonne AF, certaines données ne sont pas chargées et indique #VALEUR et d'autres x
comment passer outre l'erreur "incompatibilité de type", tout en faisant fonctionner le code ?

Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
papou
Le #16773191
Bonjour
On Error Resume Next
If UCase(Range("AF" & i)) = "X" Then Range("af" & i).EntireRow.Delete
On Error Goto 0
Next i

Cordialement
Pascal
"mannfred"
Bonjour,

j'ai le code suivant :

----------------------------------------------
Private Sub Workbook_Open()
lignes_supp
End Sub

Sub lignes_supp()
derlg = Range("AF65536").End(xlUp).Row
For i = derlg To 2 Step -1
If UCase(Range("AF" & i)) = "X" Then Range("af" & i).EntireRow.Delete
Next
End Sub
----------------------------------------------

Dans la colonne AF, certaines données ne sont pas chargées et indique
#VALEUR
et d'autres x
comment passer outre l'erreur "incompatibilité de type", tout en faisant
fonctionner le code ?

Merci


Vincnet.
Le #16773401
A vue de pif :

Private Sub Workbook_Open()
lignes_supp
End Sub

Sub lignes_supp()
derlg = Range("AF65536").End(xlUp).Row
For i = derlg To 2 Step -1
If Not IsError(Range("AF" & i).value) then
If UCase(Range("AF" & i).Value) = "X" Then Range("af" &
i).EntireRow.Delete
End If
Next
End Sub

Non ?
--
A+

V.


"mannfred" a écrit :

Bonjour,

j'ai le code suivant :

----------------------------------------------
Private Sub Workbook_Open()
lignes_supp
End Sub

Sub lignes_supp()
derlg = Range("AF65536").End(xlUp).Row
For i = derlg To 2 Step -1
If UCase(Range("AF" & i)) = "X" Then Range("af" & i).EntireRow.Delete
Next
End Sub
----------------------------------------------

Dans la colonne AF, certaines données ne sont pas chargées et indique #VALEUR
et d'autres x
comment passer outre l'erreur "incompatibilité de type", tout en faisant
fonctionner le code ?

Merci



mannfred
Le #16774711
mannfred a écrit le 10/09/2008 à 11h52 :
Bonjour,

j'ai le code suivant :

----------------------------------------------
Private Sub Workbook_Open()
lignes_supp
End Sub

Sub lignes_supp()
derlg = Range("AF65536").End(xlUp).Row
For i = derlg To 2 Step -1
If UCase(Range("AF" & i)) = "X" Then
Range("af" & i).EntireRow.Delete
Next
End Sub
----------------------------------------------

Dans la colonne AF, certaines données ne sont pas chargées et
indique #VALEUR et d'autres x
comment passer outre l'erreur "incompatibilité de type", tout
en faisant fonctionner le code ?

Merci


Merci,

cela fonctionne désormais.

Bon par contre j'ai un autre problème

Ma valeur "x" dépend du résultat d'une autre case, une application s'occupe de récupérer les données d'une base, par contre j'ai l'impression que le code que j'utilise passe avant la récolte des données. Et donc cela ne fonctionne qu'à la réouverture du document.

Avez-vous des idées ?

Merci
Publicité
Poster une réponse
Anonyme