Je cherche a faire une macro qui me permet de détecter les valeurs inverses qui font 0.
Je m'explique :
J'ai une colonne :
-100
100
-100
200
-200
200
-200
-200
Je souhaiterais que la macro me détecte les 100 et -100 et me laisse le 100
Pour les 200 qu'elle me détecte -200 200 -200 et 200 et qu'elle me laisse le dernier -200
Tout d'abord MERCI ROGER pour la révision de ma macro (que je vais essayer de 'digérer')
Je vais tenter de comprendre pourquoi la différence de générateur produit un tel écart dans la vitesse d’exécution (mais je doute fort d'arriver à un résultat tant mes neurones vieillissants renâclent devant les challenges, aussi intéressants soient-ils)
Tout d'abord MERCI ROGER pour la révision de ma macro (que je vais essayer de 'digérer')
Je vais tenter de comprendre pourquoi la différence de générateur produit un tel écart dans la vitesse d’exécution (mais je doute fort d'arriver à un résultat tant mes neurones vieillissants renâclent devant les challenges, aussi intéressants soient-ils)
Oui, le temps n'arrange pas nos neurones ! D'où le décalage temporel de ma réponse...
Pour ce qui est de la révision de votre macro, elle consiste pour l'essentiel en le remplacement de
Code:
For q = 0 To nb - 1
Cells(pl(q) + decal, 2) = 0
Cells(mo(q) + decal, 2) = 0
Next
par le traitement du tableau tablo et sa recopie dans la feuille :
Code:
For q = 0 To nb - 1
tablo(pl(q), 1) = 0
tablo(mo(q), 1) = 0
Next
' ....................
Range("B4:B" & Range("B" & Rows.Count).End(xlUp).Row).Value = tablo
Le reste est surtout cosmétique.
Ceci dit, j'ai creusé un peu l'influence des générateurs.
Vous en trouverez une dizaine, plus ou moins farfelus, dans la pièce jointe.
Les résultats sont parfois surprenants. Reste à en faire l'interprétation...
Bonne soirée.
ℝOGER2327 #8139
Dimanche 15 Sable 143 (Khurmookum du Dr Faustroll - fête Suprême Seconde) 24 Frimaire An CCXXIV, 7,7587h - oseille 2015-W51-2T18:37:15Z