Range

Le
Pascal
Bonjour

Excel 2007

Comment supprimer les 9 derniers caractères de cellules contigues sur une
Range.

Merci
Pascal
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
michdenis
Le #20125751
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"
Bonjour

Excel 2007

Comment supprimer les 9 derniers caractères de cellules contigues sur une
Range.

Merci
Pascal
Pascal
Le #20137451
merci MichDenis
"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"
Bonjour

Excel 2007

Comment supprimer les 9 derniers caractères de cellules contigues sur une
Range.

Merci
Pascal



Publicité
Poster une réponse
Anonyme