Discussion :

[Mia30]

Bonjour à tous,
j'ai 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, dans la troisième colonne (compl) on affecte des valeurs de Z vers A. Mais mon problème est que lorsque j'exécute ma macro dans ma troisième colonne il prend en compte les cellules vides alors que je voudrais qu'il ne s'en préoccupe pas. Je vous met mon fichier ci-joint.

J'obtiens ça :


Mais je voudrais ça :


Merci à vous

test2.xlsm

[halaster08]

Bonjour,

Plutôt que de joindre ton fichier, peux-tu simplement afficher le code ? (de préférence en utilisant les balises codes)
Beaucoup d'intervenant n'ouvrent pas les pièce jointes (cf. message épinglé), tu aura ainsi plus de réponses

[jurassic pork]

hello,
en Power Query M :

Code :

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

1
2
3
4
5
6
7
8
9
10
let    Source = Excel.CurrentWorkbook(){[Name="Tab_adresse"]}[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", 90, -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 if [NUM_VOIE] = 0 then Character.FromNumber([IndexNum]) else ""),
    #"Colonnes supprimées" = Table.RemoveColumns(#"ColPerso indexLettre",{"COMPL", "IndexNum"})
in
    #"Colonnes supprimées"

Résultat :


Ami calmant, J.P

[Mia30]

D'accord merci du conseil.

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
Sub COMPL()
 
Dim nb_ligne As Integer
 
 
nb_ligne = Range("A" & Rows.Count).End(xlUp).Row
 
For i = 2 To nb_ligne
 
    If Range("A" & i) = 0 And Application.WorksheetFunction.CountIf(Range("B2:B" & nb_ligne), Range("B" & i)) > 0 Then
 
        Range("C" & i) = Chr(91 - Application.WorksheetFunction.CountIf(Range("B2:B" & i), Range("B" & i)))
 
    End If
 
Next i
 
End Sub

[halaster08]

Bonjour,

Si j'ai bien compris, tu mets tes lettres suivant deux conditions : le nom de la voie (que tu prends déjà en compte) et le numéro = 0
Du coup tu peux remplacer ton countif par un countifs

je te propose de tester cette ligne:

Code :

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

 Range("C" & i) = Chr(91 - Application.WorksheetFunction.CountIfs(Range("B2:B" & i), Range("B" & i),Range("A2:A" & i),0))

[Mia30]

halaster08, c'est exactement ce que je voulais, merci à toi pour ton aide