probleme dans la macro

[wormic]

Bonjour a tous,

je n'arrive pas a voir le problème dans la macro.

merci de pouvoir m'aider ( je débute )

 

[Papou-net]

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.

 

[JBARBE]

Re : probleme dans la macro

Bonsoir à tous, Bonsoir les turfistes,

Peut-être ceci !

bonne soirée

 

[wormic]

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.

 

[wormic]

Re : probleme dans la macro

Merci de vos réponse,

je vous joint le fichier en xlsm.

Merci

 

[JBARBE]

Re : probleme dans la macro

J'ai ajouté un bouton effacer pour que la colonne soit vierge lors de nouveaux trios !

bonne soirée

 

[JBARBE]

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 !

 

[wormic]

Re : probleme dans la macro

Merci JBARBE.

LA MACRO FONCTIONNE PARFAITEMENT.

Encore merci

 

[Papou-net]

Re : probleme dans la macro

Bonsoir wormic, JBARBE,

Ou cette autre solution:

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.

 

[Papou-net]

Re : probleme dans la macro

RE:

Variante condensée:

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.