Modification dans plusieurs cellules

[ericbtz]

Salut le forum
Toujours novice (désolé!) j'ai une liste de numéro sur plusieurs colonnes dont certains commencent par "33". Je souhaiterai créer une macro ou autre qui me recherche touttes les cellules où les deux premiers chiffres sont "33" et me conserve le reste du numéro.
J'ai essayé ce qui suit, mais j'ai des erreurs et évidemment cela ne fonctionne pas. Une ame charitable pourrait elle me conseiller?

Sub ModifierContenu()
Dim vCellule As Object
For Each vCellule In Selection
nbcar (vCellule.Value)
if stxt(vCellule.Value;1;2)=33 then
Stxt(vCellule.Value;3;Nbcar(vCellule.Value)-2)
End If
End Sub

Merci d'avance pour votre concours.

 

[Robert]

Salut ericbtz, salut le forum,

le problème c'est que VBA n'utilise pas les même mots pour faire la même chose que les formules. Personnellement, même si on ne me demande pas mon avis, je trouve ça assez c... !

Essaie ce code, ça devrait marcher :

Public Sub docteur()
For Each cel In Selection
If Mid(cel.Value, 1, 2) = 33 Then
cel.Value = Mid(cel.Value, 3, Len(cel.Value) - 2)
End If
Next
End Sub

 

[ericbtz]

salut Robert
je te remercie pour tes précieux conseils car effectivement j'ai essayé ton code et cela fonctionne à merveille. Comme tu le dis si bien, j'en suis certes à des prémices mais il est très compliqué de faire toutes ces nuances et je pense que je pêche souvent sur des bêtises par un manque de connaissance. Je persiste quand même car quand je vois sur ce forum ce à quoi vous parvenez, cela mérite un large détour.
Encore Merci
@+++ Ericbtz