Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Incompatibilité de type

Incompatibilité de type

3 réponses
Avatar
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
Signaler un problème avec ce contenu

3 réponses

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
papou
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" a écrit dans le message de news:

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


Avatar
Vincnet.
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



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