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

probleme dans la macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion wormic
  • 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
Trier par date Trier par votes
Re : probleme dans la macro

Bonsoir wormic,

Si tu veux que l'on puisse regarder ton problème, tu dois fournir un fichier enregistré au format xlsm (enregistrement avec prise en charge des macros) et non au format xlsx.

A +

Cordialement.
 
Vote positif 0 Vote négatif
Re : probleme dans la macro

Bonsoir,

oui merci mais je voudrais qu'il garde en mémoire les résultats

c'est a dire 1 2 3 passe a 1 mais si je rentre a nouveau 1 2 3 la cellule passe a 2 ainsi de suite pour toutes les combinaisons.

comme une base de données.

Merci de m'avoir répondu.
 
Vote positif 0 Vote négatif
Re : probleme dans la macro

Modifie la macro comme ceci :

Sub trouver()
derligne = Range("A" & Rows.Count).End(xlUp).Row
trio1 = Range("K2") & Range("L2") & Range("M2")
trio2 = Range("K2") & Range("M2") & Range("L2")
trio3 = Range("L2") & Range("K2") & Range("M2")
trio4 = Range("L2") & Range("M2") & Range("K2")
trio5 = Range("M2") & Range("L2") & Range("K2")
trio6 = Range("M2") & Range("K2") & Range("L2")
For i = 2 To derligne
test = Range("B" & i) & Range("C" & i) & Range("D" & i)
If test = trio1 Or test = trio2 Or test = trio3 Or test = trio4 Or test = trio5 Or test = trio6 Then
Range("F" & i) = Range("F" & i) + 1
Exit For
End If
Next i
End Sub

bonne nuit !
 
Vote positif 0 Vote négatif
Re : probleme dans la macro

Bonsoir wormic, JBARBE,

Ou cette autre solution:

Code: 
Sub trouver()
    derligne = Range("A" & Rows.Count).End(xlUp).Row
    trio1 = Range("K2") & "-" & Range("L2") & "-" & Range("M2")
    trio2 = Range("K2") & "-" & Range("M2") & "-" & Range("L2")
    trio3 = Range("L2") & "-" & Range("K2") & "-" & Range("M2")
    trio4 = Range("L2") & "-" & Range("M2") & "-" & Range("K2")
    trio5 = Range("M2") & "-" & Range("L2") & "-" & Range("K2")
    trio6 = Range("M2") & "-" & Range("K2") & "-" & Range("L2")
    For i = 2 To derligne
        test = Range("B" & i) & "-" & Range("C" & i) & "-" & Range("D" & i)
        If test = trio1 Or test = trio2 Or test = trio3 Or test = trio4 Or test = trio5 Or test = trio6 Then Range("F" & i) = Range("F" & i) + 1
    Next i
End Sub
Cordialement.
 
Vote positif 0 Vote négatif
Re : probleme dans la macro

RE:

Variante condensée:

Code: 
Sub trouver()
    derligne = Range("A" & Rows.Count).End(xlUp).Row
    trio = Range("K2") & "-" & Range("L2") & "-" & Range("M2") & "*" & Range("K2") & "-" & Range("M2") & "-" & Range("L2") & "*" & _
      Range("L2") & "-" & Range("K2") & "-" & Range("M2") & "*" & Range("L2") & "-" & Range("M2") & "-" & Range("K2") & "*" & _
      Range("M2") & "-" & Range("L2") & "-" & Range("K2") & "*" & Range("M2") & "-" & Range("K2") & "-" & Range("L2") & "*"
    For i = 2 To derligne
      If InStr(trio, Range("B" & i) & "-" & Range("C" & i) & "-" & Range("D" & i) & "*") > 0 Then Range("F" & i) = Range("F" & i) + 1
    Next i
End Sub
Cordialement.
 
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

Discussions similaires

E
  • Question Question
Microsoft 365 agrandir la liste de recherche
Réponses
4
Affichages
490
ebe
E
  • Question Question
XL 2019 Récupération de Donnée
Réponses
14
Affichages
358
AtTheOne
  • Résolu(e)
XL 2021 Export d'un Userform au format Docx;
3 4 5
Réponses
60
Affichages
1 K
job75
E
  • Question Question
Microsoft 365 agrandir la liste
2
Réponses
21
Affichages
366
ebe
E
F
  • Question Question
XL 2016 recherche données et collage
Réponses
4
Affichages
98
finarobert
F
L
  • Question Question
XL 2021 [Résolu] Tri impossible dans un tableau mis en forme
Réponses
6
Affichages
421
LOLO13130
L
C
  • Résolu(e)
XL 2016 Macro permettant d'automatiser le tri d'un tableau Excel et de différencier les lignes
Réponses
5
Affichages
151
Chris1263
C
F
  • Question Question
Microsoft 365 Macro tri fusionner
2
Réponses
20
Affichages
515
TooFatBoy
D
  • Résolu(e)
XL 2016 macro effacer en plusieurs en fonction d'un autre cellule
Réponses
13
Affichages
201
job75
S
  • Résolu(e)
Autres Problème avec sélection d'une cellule puis glisser
Réponses
2
Affichages
225
SPARKLETOF
S
T
  • Question Question
Microsoft 365 Aide planning
2
Réponses
17
Affichages
479
sylvanu
A
  • Question Question
Microsoft 365 Formule Excel avec conditions "ET"
Réponses
7
Affichages
290
Armand11
A
V
  • Question Question
XL 2019 Fonction si
Réponses
7
Affichages
454
vipi61
V
C
  • Question Question
Microsoft 365 Macro avec en-tête &
Réponses
4
Affichages
129
Cami
C
N
  • Résolu(e)
Microsoft 365 Aide pour terminer un code
2
Réponses
15
Affichages
322
NONO14
N
  • Question Question
XL 2016 A partir USERFORM remplir plusieurs onglets
Réponses
10
Affichages
417
fanfan38
C
  • Question Question
XL 2010 Convertir un montant en euro en code barre
2 3
Réponses
30
Affichages
706
sylvanu
P
  • Question Question
XL 2021 Macro de découpage suivant une clé
Réponses
14
Affichages
374
job75
  • Résolu(e)
XL 2019 colorer toute la ligne concernée selon la note obtenu et selon 3 couleurs (soit le vert flash, vert plus clair, etc. si 5, 4.5, 4 respectivement).. ?
Réponses
5
Affichages
258
anthoYS
F
  • Question Question
Microsoft 365 macro TCD
Réponses
4
Affichages
335
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…