Vider le contenue d'une case ds un range si dif de

[Nann]

Bonsoir tout le monde,

Je cherche à savoir comment par le biais d'une macro,
je peut vider le contenu d'une cellule si la chaine de caractère ne contient pas des constante eet si elle contient une de ces constante, quelle remplace le contenu du string par la constante
Constante que l'on peut rajouter à gré.


exemples :
Contantes : 0805, 0402, 0603, 1206
String : S23X15_0805
nouveau contenue : 0805

String : S73X43POL
nouveau contenue : ''

...

cela rappelera des souvenir à Hellboy et à Hervé

Merci d'avance.. [file name=Classeur1_20051013200002.zip size=2857]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20051013200002.zip[/file]

 

[Hervé]

Re:Vider le contenue d'une case ds un range si dif

Salut nann

Ci-joint ton fichier modifié.

on les aura manipulées, ces données, dans tous les sens

les constantes sont a saisirs en cellule F1 sans espace et séparées par une virgule.

salut
[file name=Classeur1_20051013221348.zip size=9045]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20051013221348.zip[/file]

 

[Robert]

Re:Vider le contenue d'une case ds un range si dif

Bonsoir Nann, Hervé, bonsoir le forum,

Hervé est trop rapide pour moi mais comme j'étais entrain de me casser les dents sur ton problème je t'envoie quand même ma proposition (assez proche de celle d'Hervé finalement) sauf que je m'étale, je m'étale...

Sub Macro1()
Dim Cons(3) As String 'déclare le tableau de variable Cons
Dim Pl As Range 'déclare la variable Pl
Dim R As Range 'déclare la variable R
Dim Cel As Range 'déclare la variable Cel

Cons(0) = '0805' 'définit la première variable du tableau Cons
Cons(1) = '0402' 'définit la seconde variable du tableau Cons
Cons(2) = '0603' 'définit la troisième variable du tableau Cons
Cons(3) = '1206' 'définit la quatrième variable du tableau Cons

With Sheets('Feuil1')
Set Pl = .Range('C3:C' & .Range('C65536').End(xlUp).Row) 'définit la variable Pl
For x = 0 To 3 'boucle sur les 4 variables
For Each Cel In Pl
If InStr(1, Cel, Cons(x), vbTextCompare) <> 0 Then
Cel.NumberFormat = '@'
Cel.Value = Cons(x)
Else
Cel.Value = ''
End If
Next Cel
Next x
End With
End Sub