Macro codage 0 1 2

**naiiiiiiiii** · 05/03/2016, 19h31

Bonjour,
je souhaiterai faire une macro alors j'vous explique
j'ai un fichier avec un nombre de feuille possédant "une colonne" make et colonne "km voila ce que j'voudrais coller dans la colonne AA un "0" si la colonne make est vide, "1" colonne make est remplie et deux si la colonne make est remplie plus colonne km est vide

sachant que pour ton mon fichier je place ma colonne make et ma colonne "km" au même endroit ( colonne M et N par exemple)

ensuite je voudrais compter mon de 0, mon nombre de 1 et mon nombre 2 et aller les placer dans une autre

Merciii

Invité · 05/03/2016, 19h59

Bonjour,
C'est incompréhensible mais c'est une bonne idée!

**naiiiiiiiii** · 05/03/2016, 20h07

qu'est ce qui est inconpréhensible?

je possède un fichier excel avec plusieurs feuilles
contenant les colonnes make et totalkm (placés par exemple en M et N)
je souhaiterai pour tout presque tout mon fichier faire une macro qui code dans la colonne AA de chaque feuille 0 si la colonne "make" est vide, 1 si la colonne make est remplie et 2 si la colonne make est remplie et totalkm différent de 0. Je souhaiterai ensuite compter pour chaque feuille mon nombre de 0, puis mon nombre de 1 puis mon nombre de 2 merci !

**Theze** · 06/03/2016, 09h20

Bonjour,

Un truc dans le genre ?

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
20
21
22
23
24
25
26
27
28
 
Sub Test()
 
    Dim Plage As Range
    Dim Cel As Range
 
    With Worksheets("Feuil1")
 
        Set Plage = .Range(.Cells(2, 13), .Cells(.Rows.Count, 13).End(xlUp))
 
    End With
 
    For Each Cel In Plage
 
        If Cel.Value = "" Then
 
            Cel.Offset(, 14).Value = 0
 
        Else
 
            Cel.Offset(, 14).Value = 1
            If Cel.Offset(, 1).Value > 0 Then Cel.Offset(, 14).Value = 2
 
        End If
 
    Next Cel
 
End Sub