Codifer une variable en plusieurs variables
IMOU90
Messages postés
3
Statut
Membre
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
svp j'ai une feuille excel la variable qui m'intéresse est sous la forme :
TV/75016/0001222 c-à-d type de tarif/CODE COMMUNE/réference (sachant que j'ai 2 type de tarif TV et TJ)
je vx avoir un tableau de 3 colonnes
1 colonne pour les codes commune
1 colonne pour le nombre de tarif(TV)
1 colonne pour le nombre de tarif(TJ)
AIDEZ MOI SVP
svp j'ai une feuille excel la variable qui m'intéresse est sous la forme :
TV/75016/0001222 c-à-d type de tarif/CODE COMMUNE/réference (sachant que j'ai 2 type de tarif TV et TJ)
je vx avoir un tableau de 3 colonnes
1 colonne pour les codes commune
1 colonne pour le nombre de tarif(TV)
1 colonne pour le nombre de tarif(TJ)
AIDEZ MOI SVP
2 réponses
-
Bonjour
Demande mystérieuse...Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci par un clic droit sur le lien proposé dans le message de réponse
Dans l’attente
-
https://www.cjoint.com/c/FGlje20Q7kF
voila un exemple de mon fichier car les données sont confidentielles.
merci -
-
-
re,
proposition en dé-fusionnant les colonnes A et B !!!!
proposition sur 2 colonnes
Me dire s'il faut avoir le résultat en 3 colonnes
Option Explicit
Option Base 1
'---------------------------------------------------
Sub tarif_communes()
Dim Derlig As Integer, T_in
Dim Cptr As Integer
Dim Dico As Object, Ref As String
'Dim test 'variable vérif essai
Application.ScreenUpdating = False
'-----------------------initialisations
With Sheets("feuil1")
'FUSION COLONNES A & B ANNULEE
.Columns("A:B").UnMerge
'mémorisation tableau iniitial
Derlig = .Cells.Find(what:="*", searchdirection:=xlPrevious).Row
T_in = .Range("A2:A" & Derlig)
End With
'instancation objet dictionary
Set Dico = CreateObject("scripting.dictionary")
'---------------------comptage
For Cptr = 1 To UBound(T_in)
T_in(Cptr, 1) = Left(T_in(Cptr, 1), 8) '=tarif/commune
Ref = T_in(Cptr, 1)
If Not Dico.exists(Ref) Then
Dico.Add Ref, 1
Else
Dico.Item(Ref) = Dico.Item(Ref) + 1
'test = Dico.Item(Ref)
End If
Next
'---------------publication des nombres de tarifs par commune
With Sheets("feuil2")
.Range("A2").Resize(Dico.Count, 1) = Application.Transpose(Dico.keys)
.Range("B2").Resize(Dico.Count, 1) = Application.Transpose(Dico.items)
.Range("A2:B" & Dico.Count + 1).Borders.Weight = xlThin
.Activate
End With
End Sub
http://www.cjoint.com/c/FGlmvpnXszt
Michel
