----------------------------------------------
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 ?
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
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
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" <mannfred@domain-xyz.in> a écrit dans le message de news:
Erydnd_jToZnBVrVRVn_vwA@giganews.com...
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 ?
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
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
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 ?
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
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
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.
---------------------------------------------- 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.