[RESOLU] MSGBOX dans une boucle selon countif

[leakim]

Bonjour,
Le titre "MSGBOX dans une boucle selon countif" dit comme çà ?

Je suis sur un projet dans lequel j'ai un userform qui renseigne des cellules selon une listbox en multichoix.
Ce que j'aimerai c'est que si le choix a déjà été fait dans la zone, alors une msgbox me dit "doublon" soit je laisse soit je passe à l'autre sélection.

Dans le code, je ne parviens pas à renseigner la seconde variante de countif que j'aimerai reprendre de la listbox
En d'autre termes, au fur et à mesure que les éléments de la listbox s’inscrivent dans les cellules, vérifier que la valeur à venir n'est pas en double.
Ci dessous le code que j'ai.

Private Sub CommandButton1_Click()
Dim I As Integer

    If CheckBox1 = True Then

        For I = 0 To ListBox1.ListCount - 1
            ActiveCell.Offset(I, 0) = ListBox1.List(I)
        Next I
    End If
    
        For I = 0 To ListBox1.ListCount - 1
            If ListBox1.Selected(I) = True Then ListBox2.AddItem ListBox1.List(I)
        Next I
        
        For I = 0 To ListBox2.ListCount - 1
            If ListBox2.Selected(I - counter) Then
                ListBox2.RemoveItem (I - counter)
                counter = counter + 1
            End If
        Next I
        
        For I = 0 To ListBox2.ListCount - 1
            ActiveCell.Offset(I, 0) = ListBox2.List(I)
                If Worksheets.Application.CountIf(Range("$C$9:$L$27"), ActiveCell) > 0 Then
                MsgBox "attention doublon"
                End If
        Next I

Unload UserForm1
'ActiveCell.Offset(0, 1).Select
End Sub

Merci d'avance à ceux qui me liront,

Cordialement,

Leakim

 

[leakim]

Re : MSGBOX dans une boucle selon countif

Re,
Je dois dire que je me suis vu gaillard sur ce coup là! Je pensais y parvenir, mais je me bute à nouveau à mes limites...
j'ai testé

Private Function NomAnim&(Cel As Range)
    Select Case Cel.Row
        Case 9 To 24
            PremiereLigne = 6
        Case 31 To 46
            PremiereLigne = 28
    End Select
End Function
Private Function NomLieu&(Cel As Range)
    Select Case Cel.Row
        Case 9 To 24
            PremiereLigne = 7
        Case 31 To 46
            PremiereLigne = 29
    End Select
End Function

Private Function coord$(Cel As Range)
    Dim Lg&, Col%
    Lg = NomAnim(Cel)
    Col = NomLieu(Cel)
    coordonne = Lg & " " & Col
End Function

Mais là je sèche la msgbox me renvoie rien. Surtout que le tout est conditionné par la référence du doublon...

Je m'en remets à toi, si c'est possible ?

Cordialement,

Leakim

 

[jpb388]

Re : MSGBOX dans une boucle selon countif

Bonsoir à tous
regarde si ok

 

[leakim]

Re : MSGBOX dans une boucle selon countif

Bonjour,
Merci c'est juste parfait.

A une prochaine peut-être

Leakim

 

[leakim]

Re : MSGBOX dans une boucle selon countif

Bonjour,
Merci c'est juste parfait.

A une prochaine,

Leakim