Chaine de caractere

[jean paul]

bonsoir à tous
je débutte et je viens de realiser cette macro mais j'ai un petit probleme

Dans une feuille de calcul en A1 J'ai des numeros de commande qui commencent par DEP ou DSM exemple DSM45666785 ou DEP4528963
donc j'aimerais que cette ligne de code ne prenne pas en compte les chiffres aleatoirs
ElseIf Range("A1") <> "DSM" And Range("a1") <> "DEP" Then

en esperant d'etre clair bonne soiree à tous

Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 08/06/2008
'

Application.ScreenUpdating = False
reponse = MsgBox("VOULEZ VOUS CONTINUER ?", vbYesNo + vbQuestion, "")
If reponse = vbNo Then

ElseIf Range("A1") <> "DSM" And Range("a1") <> "DEP" Then '
reponse = MsgBox("DESOLE VOUS N'AVEZ PAS ENREGISTRER" & Chr(10) & valeur, vbCritical, "")
If reponse = 1 Then GoTo 1
End If
ActiveSheet.Unprotect
Application.ScreenUpdating = True
Range("D2").Select

ActiveCell.FormulaLocal = "=STXT(A2;1;TROUVE("" "";A2)-1)"
Range("e1").Select
ActiveCell.FormulaLocal = "=STXT(A1;6;10)"
Range("D2").Select
Selection.AutoFill Destination:=Range("D2😀26"), Type:=xlFillDefault
Range("D1😀26").Select
Range("D1").Select

1
End Sub

 

[suistrop]

Re : Chaine de caractere

Manipuler les chaînes de caractères en VB6 et VBA Excel - Club d'entraide des développeurs francophones

regarde les fonctions...
y a left("mots",2) qui donne "mo" ca peut etre utile

ou encore ...

LIKE

BA

'Vérifie si la chaîne DVP existe dans la cellule A1
If Range("A1").Value Like "*DVP*" Then MsgBox "Le mot ""DVP"" existe dans la cellule A1."

en tout cas moi la page m a bien aider dans tout ce qui est traitement de chaine de caractere 🙂

 

[jean paul]

Re : Chaine de caractere

merci ,je vais regarder tout ceci
bonne journée