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
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
Range("D1
Range("D1").Select
1
End Sub