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
verificator
bonjour Seb,
--------------------------- Sub elev_apo() For Each C In Selection On Error Resume Next C.Value = Mid(C, 1, Len(C)) Next C End Sub --------------------------- ou
Sub elev_apo() For Each C In Selection If Not IsError(C) Then C.Value = Mid(C, 1, Len(C)) End If Next C End Sub ---------------------------
-----Original Message----- Bonjour,
J'ai ceci dans la cellule B1:
B1='06 J'utilise cette macro pour enlever l'apostrophe :
Sub elev_apo() For Each c In Selection maval = c.Value c.Formula = Mid(maval, 1, Len(maval)) Next c End Sub
Le problème c'est que par moments B1=#VALEUR! et là ma macro bloque. ;-(
Merci d'avance, Seb
.
bonjour Seb,
---------------------------
Sub elev_apo()
For Each C In Selection
On Error Resume Next
C.Value = Mid(C, 1, Len(C))
Next C
End Sub
---------------------------
ou
Sub elev_apo()
For Each C In Selection
If Not IsError(C) Then
C.Value = Mid(C, 1, Len(C))
End If
Next C
End Sub
---------------------------
-----Original Message-----
Bonjour,
J'ai ceci dans la cellule B1:
B1='06
J'utilise cette macro pour enlever l'apostrophe :
Sub elev_apo()
For Each c In Selection
maval = c.Value
c.Formula = Mid(maval, 1, Len(maval))
Next c
End Sub
Le problème c'est que par moments B1=#VALEUR! et là ma
macro bloque. ;-(
--------------------------- Sub elev_apo() For Each C In Selection On Error Resume Next C.Value = Mid(C, 1, Len(C)) Next C End Sub --------------------------- ou
Sub elev_apo() For Each C In Selection If Not IsError(C) Then C.Value = Mid(C, 1, Len(C)) End If Next C End Sub ---------------------------
-----Original Message----- Bonjour,
J'ai ceci dans la cellule B1:
B1='06 J'utilise cette macro pour enlever l'apostrophe :
Sub elev_apo() For Each c In Selection maval = c.Value c.Formula = Mid(maval, 1, Len(maval)) Next c End Sub
Le problème c'est que par moments B1=#VALEUR! et là ma macro bloque. ;-(
