Discussion :

[ch_minds]

Bonjour,

N'ayant aucune base en programme VBA, j'aurai besoin de votre aide SVP.
Dans le cadre d'un projet de Data Mining (exploration de données) d'image satellitaire, je dispose de plusieurs images sous forme de matrice ayant chacune une taille d'environ 11000 lignes x 11000 colonnes représentant des pixels. Dans chaque pixel on retrouve la valeur de l'intensité de la lumière (couleur)!

Avant d'arriver au stade d'exploration, je devrai réaliser un prétraitement de ces matrices et ayant perçu des irrégularités dans certains pixels (qui contiennent par exemple des valeurs négatives), je souhaite :
1- Dans un premier temps, remplacer toutes les cellules (ou pixels) contenant une valeur négative par la valeur "0" (il y a déjà des cellules qui ont comme valeur "0")
2- Dans un 2eme temps supprimer tous les pixels (cellules) qui ont une valeur nulle.

Auriez-vous SVP le code VBA permettant de réaliser ces deux tâches avec une macro sous Excel 2010 ou 2013?

PS: J'ai essayé avec la fonction "Remplacer (ctrl+F)" et ça marche mais bug au bout de quelques minutes.
Je dispose de 122 images dont chacune fait 11000 lignes x 11000 colonnes donc sans l'automatisation, ça me serait impossible de travailler les images.

Merci par avance.

[Jean-Philippe André]

Salut,

sur un tel volume de donnees, VBA va te casser les pieds niveau temps de traitement.

Passe plutôt par un langage de script type Python

[ch_minds]

Salut,

Merci pour le retour et pour ton conseil. Malheureusement je n'y connais rien en Python ni en autres langage de programmation.
Néanmoins, et pour réduire le volume de données traitées, j'envisage en effet de diviser ma matrice en plusieurs sous-matrices exploitables par VBA.

Sinon aurais-tu la gentillesse de me guider pour faire les deux macros demandées SVP?

Merci

[SR.SFC]

Bonjour,

Il te suffit de faire 2 boucles ... et tu les lance le soir pour ... (durée non définie)

Dim BorneH, BorneV as integer
Dim i, j as integer

borneh = 10000
borneV = 10000

for I = 1 to BorneH
for j = 1 to borneV
if cells(i,j).value < 0 then cells(i,j).value = 0 ' ou la valeur souhaitée
next j
next i