Bonjour,
Dans une feuille de calcul je voudrai supprimer les 3 premiers caratères des
cellules B3 à B595
Je n'ai pas trouver de fonction et je pense qu'une petite macro pourrait
convenir parfaitement
Dans l'attente d'une âme charitable qui poourrait m'aider
Bonjour, Dans une feuille de calcul je voudrai supprimer les 3 premiers caratères des cellules B3 à B595 Je n'ai pas trouver de fonction
En C3 et recopie --> C595 =STXT(B3;4;9^9)
AV
LSteph
Bonsoir J-Luc,
...dans un module standard:
'*** Sub Rplc3() Dim c As Range For Each c In Range("b3:b595").Cells If Len(c) > 3 Then c = Mid(c, 4, Len(c) - 3) Else c = "" End If Next End Sub '***
'lSteph
"Jean luc" a écrit dans le message de news:
Bonjour, Dans une feuille de calcul je voudrai supprimer les 3 premiers caratères des cellules B3 à B595 Je n'ai pas trouver de fonction et je pense qu'une petite macro pourrait convenir parfaitement Dans l'attente d'une âme charitable qui poourrait m'aider
JL
Bonsoir J-Luc,
...dans un module standard:
'***
Sub Rplc3()
Dim c As Range
For Each c In Range("b3:b595").Cells
If Len(c) > 3 Then
c = Mid(c, 4, Len(c) - 3)
Else
c = ""
End If
Next
End Sub
'***
'lSteph
"Jean luc" <roi482@free.fr> a écrit dans le message de news:
OSERtGIYFHA.612@TK2MSFTNGP12.phx.gbl...
Bonjour,
Dans une feuille de calcul je voudrai supprimer les 3 premiers caratères
des
cellules B3 à B595
Je n'ai pas trouver de fonction et je pense qu'une petite macro pourrait
convenir parfaitement
Dans l'attente d'une âme charitable qui poourrait m'aider
'*** Sub Rplc3() Dim c As Range For Each c In Range("b3:b595").Cells If Len(c) > 3 Then c = Mid(c, 4, Len(c) - 3) Else c = "" End If Next End Sub '***
'lSteph
"Jean luc" a écrit dans le message de news:
Bonjour, Dans une feuille de calcul je voudrai supprimer les 3 premiers caratères des cellules B3 à B595 Je n'ai pas trouver de fonction et je pense qu'une petite macro pourrait convenir parfaitement Dans l'attente d'une âme charitable qui poourrait m'aider
