Comment donner une valeur à partir d'1 compteur ?

Tout d'abord merci à tous et en particulier à math pour tous ses conseils, à propos vous pouvez marquer le topic "case à cocher ... lignes masquées" comme résolu (j'me rappelle plus bien du titre)

On se prend vite à ces petits jeu lol ...

nouveau problème pour moi, je paramètre un compteur formulaire et j'aimerais qu'il interagisse sur une autre cellule en fonction du chiffre qu'il indique ?

merci d'avance

Bonjour,

de quel genre d'interaction tu parles? Donne nous un petit exemple.

Pour ton autre sujet, tu n'as qu'a cocher le crochet vert en haut du post pour le mettre résolue

ok j'y vais de ce pas ...

si j'ai bien compris,

tu peux faire une suite de Si,

=SI(D10=1;"Pierre";SI(D10=2;"Paul";SI(D10=3;"Jaques";"Autre")))

mais le nombre de si est limité. Si tu veux avoir plusieurs choix, avec Index:

écris tous tes noms à la suite dans une colonne A1 = Pierre, A2 = Paul etc... ensuite

=INDEX(A1:A4;D10;1)

où A1:A4 représente tes choix de noms et D10 la case lier au compteur. Ce chiffre représente la ligne dans ta matrice A1:A4 où tu veux récupérer une valeur et le 1 à la fin représente la colonne de ta matrice où est ta valeur.

Evidemment ... pfff j'ai même pas pensé à une condition lol

je n'ai que 4 possibilités de choix donc pas de problème

j'suis vraiment une blatte quand j'my mets lol

merci .

juste pour le plaisir, une macro à affecter à ton compteur, comme ça tu n'es pas obligé d'avoir de chiffre inscrit dans une cellule et de faire le test par formule.

Public Sub IncrementNom()
    With Sheets("Feuil1")
        Select Case .Shapes("Compteur_1").ControlFormat.Value
            Case 1
                .Range("D10").Value = "Pierre"
            Case 2
                .Range("D10").Value = "Paul"
            Case 3
                .Range("D10").Value = "Jacques"
            Case Else
                .Range("D10").Value = "Autre"
        End Select
    End With
End Sub

Une petite question pour toi , tu tombes bien lol

pour que mes lignes et cases à cocher "non cocher" disparaissent à la fin de mon etude comment dois-je m'y prendre ?

le mieux c'est d'avoir le même préfixe pour tes checkboxs ( dans l'exemple on avait chkOptionx_x )

Public Sub MasquerCheckVide()
    With Sheets("Biblio")
        For i = 1 To .Shapes.Count
            If Left(.Shapes(i).Name, 9) = "chkOption" Then
                If Not .Shapes(i).ControlFormat.Value = xlOn Then .Shapes(i).Visible = False
            End If
        Next i
    End With
End Sub

Public Sub AfficherTout()
    With Sheets("Biblio")
        For i = 1 To .Shapes.Count
            .Shapes(i).Visible = True
        Next i
    End With
End Sub

reste à appeler la macro quand tu veux masquer les case non cocher, la macro AfficherTout sert à tout rendre visible.