Discussion :

[Mia30]

Bonjour,

j'aimerais automatiser avec du code VBA, que lorsque le champs de la première colonne (Num_voie) est égale à la valeur 0 et le champs de la deuxième colonne (nom_voie) possède la même adresse, faire en sorte que dans troisième colonne (compl) on affecte des valeurs de A à Z. Je vous met ci-joint un fichier exemple. J'ai réussi à automatiser pour chaque 0 à associé un A mais je ne sais pas comment faire pour prendre en compte l'adresse et affecter les lettres de l'alphabet de A à Z.
Je suis preneuse si vous avez des idées.

Merci à vous.

[jurassic pork]

hello,
est-ce que c'est ce genre de résultat que tu voudrais ? :



qu'avec le Num_voie à zéro ?

Ami calmant, J.P

[Mia30]

Non c'est plus quelque chose comme ça.
Avec une déclinaison de A vers Z en fonction de l'adresse.

[jurassic pork]

Tu peux essayer ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Test()
    Dim Lig&, DerL&
    Dim OldValue
    Dim x As Integer
    OldValue = "xxxx"
    x = 1
    For Lig = 2 To 13
        If InStr(Feuil1.Cells(Lig, 1).Value, "0") > 0 Then
           If InStr(Feuil1.Cells(Lig, 2).Value, OldValue) > 0 Then
              Cells(Lig, 3) = Chr(65 + x)
              x = x + 1
           Else
             x = 1
             Cells(Lig, 3) = Chr(65)
             OldValue = Feuil1.Cells(Lig, 2).Value
           End If
        End If
    Next
End Sub

Chr(65) -> A
Pour que ce code fonctionne il faut que les lignes avec le même Num_voie et le même Nom_voie se suivent.

[Pierre Fauconnier]

Salut.

Perso, je travaillerais avec un tableau structuré (avec 365, ça me semble être le minimum => Mon tuto)

Sur base d'un tableau nommé Tableau1 reprenant les colonnes exposées, voici un code qui devrait réaliser ce qui est demandé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Test()
  Dim Letter As String
  Dim i As Long
 
  For i = 1 To Range("Tableau1").Rows.Count
    If i = 1 Or Range("tableau1[Num_Voie]")(i).Value <> 0 Or _
        Range("tableau1[Num_Voie]")(i).Value <> Range("tableau1[Num_Voie]")(i - 1).Value Or _
        Range("tableau1[Nom_Voie]")(i).Value <> Range("tableau1[Nom_Voie]")(i - 1).Value Then
      Letter = "A"
    Else
      Letter = Chr(Asc(Letter) + 1)
    End If
    If Range("tableau1[Num_Voie]")(i).Value = 0 Then Range("tableau1[Compl]")(i).Value = Letter
  Next
End Sub

[Mia30]

Super merci beaucoup pour vos aides, j'ai ce que je veux.
Merci pour votre temps

[jurassic pork]

Il est possible aussi de faire l'opération tout en power query M. Voici un code qui fait le travail :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
let    Source = Excel.CurrentWorkbook(){[Name="fl_onglet_adresse__4"]}[Content],
    #"Type modifié" = Table.TransformColumnTypes(Source,{{"NUM_VOIE", Int64.Type}, {"NOM_VOIE", type text}, {"COMPL", type text}}),
    #"Lignes groupées" = Table.Group(#"Type modifié", {"NUM_VOIE", "NOM_VOIE"}, {{"Data", each _, type table [NUM_VOIE=nullable number, NOM_VOIE=nullable text, COMPL=nullable text]}}),
    #"ColPerso ajoutée" = Table.AddColumn(#"Lignes groupées", "Personnalisé", each Table.AddIndexColumn([Data],"IndexNum", 65, 1)),
    #"Autres colonnes supprimées" = Table.SelectColumns(#"ColPerso ajoutée",{"Personnalisé"}),
    #"ColPerso développé1" = Table.ExpandTableColumn(#"Autres colonnes supprimées", "Personnalisé", {"NUM_VOIE", "NOM_VOIE", "COMPL", "IndexNum"}, {"NUM_VOIE", "NOM_VOIE", "COMPL", "IndexNum"}),
    #"ColPerso indexLettre" = Table.AddColumn(#"ColPerso développé1", "Index", each Character.FromNumber([IndexNum]))
in
    #"ColPerso indexLettre"

Le principe :
On regroupe les lignes par les colonnes NUM_VOIE et NOM_VOIE
On ajoute une colonne personnalisée pour affecter un index pour les lignes groupées
On transforme les index numériques en lettres.



Il y a certainement des simplifications à faire. Je ne suis qu'un novice en Power Query M

Ami calmant, J.P

[Pierre Fauconnier]

Il est possible aussi de faire l'opération tout en power query M[...]

[Mia30]

Salut Jurassic pork, j'ai essayer et ça fonctionne aussi merci à toi

Bonne fin de journée