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
michdenis
Bonjour Pascal,
Voici un exemple :
'------------------------------------ Sub test() Dim Rg As Range, C As Range
With Worksheets("Feuil1") Set Rg = .Range("A1:A5") End With For Each C In Rg If C <> "" Then C.Value = Left(C.Value, Len(C.Value) - 9) End If Next End Sub '------------------------------------
"Pascal" a écrit dans le message de groupe de discussion :
Bonjour
Excel 2007
Comment supprimer les 9 derniers caractères de cellules contigues sur une Range.
Merci Pascal
Bonjour Pascal,
Voici un exemple :
'------------------------------------
Sub test()
Dim Rg As Range, C As Range
With Worksheets("Feuil1")
Set Rg = .Range("A1:A5")
End With
For Each C In Rg
If C <> "" Then
C.Value = Left(C.Value, Len(C.Value) - 9)
End If
Next
End Sub
'------------------------------------
"Pascal" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
e5Ift42MKHA.3588@TK2MSFTNGP05.phx.gbl...
Bonjour
Excel 2007
Comment supprimer les 9 derniers caractères de cellules contigues sur une
Range.
'------------------------------------ Sub test() Dim Rg As Range, C As Range
With Worksheets("Feuil1") Set Rg = .Range("A1:A5") End With For Each C In Rg If C <> "" Then C.Value = Left(C.Value, Len(C.Value) - 9) End If Next End Sub '------------------------------------
"Pascal" a écrit dans le message de groupe de discussion :
Bonjour
Excel 2007
Comment supprimer les 9 derniers caractères de cellules contigues sur une Range.
Merci Pascal
Pascal
merci MichDenis "michdenis" a écrit dans le message de news:
Bonjour Pascal,
Voici un exemple :
'------------------------------------ Sub test() Dim Rg As Range, C As Range
With Worksheets("Feuil1") Set Rg = .Range("A1:A5") End With For Each C In Rg If C <> "" Then C.Value = Left(C.Value, Len(C.Value) - 9) End If Next End Sub '------------------------------------
"Pascal" a écrit dans le message de groupe de discussion :
Bonjour
Excel 2007
Comment supprimer les 9 derniers caractères de cellules contigues sur une Range.
Merci Pascal
merci MichDenis
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
6947AC96-26CE-4B53-B787-9A2307DDBFDF@microsoft.com...
Bonjour Pascal,
Voici un exemple :
'------------------------------------
Sub test()
Dim Rg As Range, C As Range
With Worksheets("Feuil1")
Set Rg = .Range("A1:A5")
End With
For Each C In Rg
If C <> "" Then
C.Value = Left(C.Value, Len(C.Value) - 9)
End If
Next
End Sub
'------------------------------------
"Pascal" <pb@nospam.fr> a écrit dans le message de groupe de discussion :
e5Ift42MKHA.3588@TK2MSFTNGP05.phx.gbl...
Bonjour
Excel 2007
Comment supprimer les 9 derniers caractères de cellules contigues sur une
Range.
merci MichDenis "michdenis" a écrit dans le message de news:
Bonjour Pascal,
Voici un exemple :
'------------------------------------ Sub test() Dim Rg As Range, C As Range
With Worksheets("Feuil1") Set Rg = .Range("A1:A5") End With For Each C In Rg If C <> "" Then C.Value = Left(C.Value, Len(C.Value) - 9) End If Next End Sub '------------------------------------
"Pascal" a écrit dans le message de groupe de discussion :
Bonjour
Excel 2007
Comment supprimer les 9 derniers caractères de cellules contigues sur une Range.