Discussion :

[ivy2409]

Bonjour,
Comme précisé juste au dessus je débute dans Matlab et je rencontre déjà un problème.
En effet, je souhaite créer un fichier excel qui analyse les images .Tiff dans un dossier, binarisation entrer le nombre de pixels blancs et noirs dans un fichier Excel.
Le probleme est que je ne sais pas comment indiquer à MATLAB de selectionner une nouvelle cellule à chaque boucle. J'ai cherché mais toujours en vain… Help please

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
29
30
31
32
33
34
35
36
37
 
 
%1 = blanc et 0 = noir
Excel = actxserver('Excel.Application');
Excel.Visible = true;
Workbook = Excel.Workbooks.Add;
 
Workbook.SaveAs('D:\testbino.xlsx');
ActiveSheet = Excel.Worksheets.Item(1);
ActiveSheet.Range('B2:C2').Value= {'Pixels Blancs' 'Pixels noirs'};
 
expe = 'Data';
ext = 'tif';
filelist = dir('./Data/*.tif');
nfiles = length(filelist);
 
T = 65; %Valeur du seuil
Div = T/255;
 
for ifile = 1:nfiles
 
filename = sprintf('%dt.tif',ifile);  
img = imread(filename);
Nimg= imcomplement(img);
 
B = im2bw(Nimg,Div); %Image avec le seuil
%imshow(B)
S = imhist(B)
 
pixel_blanc = length(find(B==1))
pixel_noir = length(find(B==0))
 
 
ActiveSheet.Range('B3:B6').Value = pixel_blanc
ActiveSheet.Range('C3').Value = pixel_noir
ActiveSheet.Range('A3').Value = filename
end

[Jerome Briot]

As-tu déjà lu ceci ?

=> Écriture dynamique des plages

[ivy2409]

Merci de répondre,
Oui plusieurs fois mais malheureusement je bloque toujours...

Cela doit être bête et une mauvaise compréhension du tuto mais j'ai essayé

Code :

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

1
2
 
sprintf('%c%d:%c%d','A'+m,i,'A'+n,j)

de plusieurs manière mais rien y fait

d'ailleurs merci pour tes tutos

[Jerome Briot]

Comme 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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
%1 = blanc et 0 = noir
Excel = actxserver('Excel.Application');
Excel.Visible = true;
Workbook = Excel.Workbooks.Add;
 
Workbook.SaveAs('D:\testbino.xlsx');
ActiveSheet = Excel.Worksheets.Item(1);
ActiveSheet.Range('B2:C2').Value= {'Pixels Blancs' 'Pixels noirs'};
 
expe = 'Data';
ext = 'tif';
filelist = dir('./Data/*.tif');
nfiles = length(filelist);
 
T = 65; %Valeur du seuil
Div = T/255;
 
for ifile = 1:nfiles
 
    filename = sprintf('%dt.tif',ifile);
    img = imread(filename);
    Nimg= imcomplement(img);
 
    B = im2bw(Nimg,Div); %Image avec le seuil
    %imshow(B)
    S = imhist(B);
 
    pixel_blanc = length(find(B==1));
    pixel_noir = length(find(B==0));
 
    range = sprintf('A%d', 2+ifile);
    ActiveSheet.Range(range).Value = filename;
 
    range = sprintf('B%d', 2+ifile);
    ActiveSheet.Range(range).Value = pixel_blanc;
 
    range = sprintf('C%d', 2+ifile);
    ActiveSheet.Range(range).Value = pixel_noir;
 
end

Et si tu cherches à compter les pixels blancs/noirs dans une image en noir et blanc, il suffit de faire :

Code :

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

1
2
pixel_blanc = sum(B(:));
pixel_noir = numel(B)-pixel_blanc;

[ivy2409]

Ça Marche !!!

Merci beaucoup, je comprends l'origine de mon erreur.
Les autres petits détails viendront avec l'expérience