2 Codes VBA relatifs à deux problemes

[charrynsasi]

Bonjours à toutes et à tous,

Je suis entrain d'automatiser une tache depuis deja 3 jours mais je suis bloqué à trois problemes que voici :

1) Ma colonne contient les valeurs suivantes:
2436574
2439876
2431054

Ma preoccupation est d'ecrire un code VBA qui suprime le prefixe 243 et le remplace par 0 cad:
06574
09876
01054

2) Ma seconde preoccupation est la suivante :
Etant donne que j'ai un dossier qui a deux fichiers excels A et B. Le fichier A a une colonne avec plusieurs valeurs.
Comment ecrire un code VBA qui va compter le nombre d'occurence d'une valeur filtrer dans la colonne du fichier A et l'affiche dans une cellule du fichier B.

Par exemple: Fichier A Colonne A(a,a,b,k,c)
Fichier B Colonne B affiche 2 (nombre d'occurence de a)
Le script sera dans le fichier B.

Merci pour vos reponses.

 

[laurent950]

Re : 2 Codes VBA relatifs à deux problemes

Bonjour une solution.


1) Ma colonne contient les valeurs suivantes:
2436574
2439876
2431054

Ma preoccupation est d'ecrire un code VBA qui suprime le prefixe 243 et le remplace par 0 cad:
06574
09876
01054

Ps : pour tester le code copier ces valeur en cellule

A4 ---> 2436574
A5 ---> 2439876
A6 ---> 2431054

resultat

A4 ---> 06574
A5 ---> 09876
A6 ---> 01054

code :

Sub Remplace()

T = Range(Cells(4, 1), Cells(Cells(65536, 1).End(xlUp).Row, Cells(4, 256).End(xlToLeft).Column))

For i = 1 To UBound(T, 1)
x = Len(T(i, 1))
    ' Format texte
    T(i, 1) = WorksheetFunction.Substitute(T(i, 1), Left(T(i, 1), 3), "'0")
    ' ou
    ' format numérique
    ' T(i, 1) = WorksheetFunction.Substitute(T(i, 1), Left(T(i, 1), 3), "0")
Next i

 'Le tableau entier : est recopier au même emplacement
 Cells(4, 1).Resize(UBound(T, 1), UBound(T, 2)).Value = T
End Sub

laurent

 

[charrynsasi]

Re : 2 Codes VBA relatifs à deux problemes

Merci, apres adaptation tout fonctionne bien pour la premiere preoccupation.