Chaine de caractere

jean paul

XLDnaute Junior
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:D26"), Type:=xlFillDefault
Range("D1:D26").Select
Range("D1").Select

1
End Sub
 

suistrop

XLDnaute Impliqué

Discussions similaires

Statistiques des forums

Discussions
312 927
Messages
2 093 687
Membres
105 782
dernier inscrit
obelix76