Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro excel

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion lalala
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

lalala

Guest
Bonsoir à tous,

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

Je vous remercie par avance
 
Trier par date Trier par votes
Re : Macro excel

Bonjour pierrejean, bonjour à tous.


Toujours pour le plaisir, ~10 s pour un million de données.​


Bonne journée.


ℝOGER2327
#8134

Mardi 10 Sable 143 (Exaltation d’Ubu Roi (Ubu d’hiver) - fête Suprême Première seconde)
19 Frimaire An CCXXIV, 4,7984h - sabine
2015-W50-4T11:30:58Z
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro excel

Suite...


Une expérience amusante.​


ℝOGER2327
#8135

Mardi 10 Sable 143 (Exaltation d’Ubu Roi (Ubu d’hiver) - fête Suprême Première seconde)
19 Frimaire An CCXXIV, 7,3125h - sabine
2015-W50-4T17:33:00Z
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Macro excel

Re

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)
 
Vote positif 0 Vote négatif
Re : Macro excel

Re...


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
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

R
  • Question Question
Microsoft 365 Formule qui sélectionne un ligne et qui récupère la ligne en-dessous
2
Réponses
28
Affichages
551
Nain porte quoi
N
  • Question Question
Microsoft 365 Formule excel
Réponses
7
Affichages
305
eastwick
  • Résolu(e)
XL 2013 Faire ressortir des valeurs par rapport à une valeur donnée
Réponses
13
Affichages
757
Phil69970
J
  • Question Question
XL 2021 Résolu - Extractions de valeurs Ligne pour créer des lignes isolées / Macro Séparer Valeurs
Réponses
14
Affichages
662
JM04082023!
J
  • Question Question
Microsoft 365 Calcul Facture électricité
2
Réponses
17
Affichages
506
TooFatBoy
A
  • Question Question
Autres Répartition d'offres d'emploi sur plusieurs collaborateurs
Réponses
5
Affichages
292
Phil69970
V
  • Résolu(e)
Microsoft 365 Barre de recherche : comment rendre éditable le résultat ?
2 3 4
Réponses
52
Affichages
2 K
dysorthographie
EricT
Réponses
0
Affichages
357
TOUSSAINT_ER
A
  • Question Question
XL 2016 MFC avec plusieurs conditions
2
Réponses
25
Affichages
1 K
ALVE
A
A
  • Question Question
Microsoft 365 Excel 365 attribuer du texte (initiales en fonction d'une valeur)
Réponses
2
Affichages
377
auloin
A
S
  • Question Question
XL 2016 Afficher les bornes min et max dans lequel se trouve une valeur
Réponses
5
Affichages
660
stuka
S
D
  • Question Question
Microsoft 365 Remplacer des données manquantes et en ajouter d'autres
Réponses
3
Affichages
547
DFER
D
  • Question Question
XL 2019 Saisir automatiquement des dates au moyen d'un calendrier
2 3 4
Réponses
46
Affichages
2 K
patricktoulon
L
  • Résolu(e)
Power Query Découper une colonne en plusieurs colonnes
Réponses
11
Affichages
638
chris
D
  • Question Question
XL 2021 Etirer les formules avec FillDown
Réponses
6
Affichages
530
mapomme
P
  • Question Question
Microsoft 365 Regrouper automatiquement les dépenses par domaine d’activité (avec taxes, bénéfice et mise à jour automatique)
Réponses
8
Affichages
376
TooFatBoy
S
  • Question Question
XL 2016 RESOLU MERCI Division des points en cas d'égalité
Réponses
2
Affichages
234
spacem33t
S
M
  • Question Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
529
MCOTTEND
M
H
  • Question Question
XL 2021 Macro en vba
Réponses
4
Affichages
498
Lolote83
L
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
551
jeff1494
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…