Lecture cellule pour activer checbox ou pas : marche pas

Bonjour à tous,

Voilà, j'ai fait une macro pour lire 25 cellules les unes après les autres.

(je suis dans un userform)

Si dans la cellule la valeur est à 1 il faut cocher un checkbox sinon non.

ça ne marche pas, tout est décalé!

j'arrive pas à voir où je bogue ?!!

Si un oeil extérieur le voit, merci de m'informer où.

Par avance merci.

JLP

'----- Grille trap ! ---------------------------------
NomTCor = Me.Controls("nomTireurCor").Value
celdemCor = 9
    Do Until Cells(celdemCor, 3) = NomTCor ' je teste la cellule 9,3 (celdemCor = à 9). ma boucle s'arretera quand la cellule sera vide
                                           ' et exécutera ce qu'il y a après le loop
             celdemCor = celdemCor + 1     ' +1 pour passer à la ligne suivante...
    Loop
Me.Controls("ClubCor") = Cells(celdemCor, 5)

    For i = 26 To 50 ' apparemment c'est cette boucle qui va pas...
        If ActiveSheet.Cells(celdemCor, i - 20).Value = "1" Then
            Me.Controls("CheckBox" & i).Value = True
        Else
            Me.Controls("CheckBox" & i).Value = False
        End If
    Next i
Me.Controls("ScoreCor").Value = Cells(celdemCor, 31)
Me.Controls("BarrageCor").Value = Cells(celdemCor, 32)
Me.Controls("DepCor").Value = Cells(celdemCor, 33)
Opt = Cells(celdemCor, 34)
    If Opt = "Oui" Then
        Me.Controls("OptOuiCor").Value = True
        Else
        Me.Controls("OptNonCor").Value = True
    End If
'----- Fin grille trap ------------------------------

Bonjour,

Comment veux-tu que l'on voit qcq chose sans le fichier, comment l'utiliser et sans que tu précises le décalage constaté ?

Toi seul sais ce qui doit être bon ou pas.

Sinon tu peux raccourcir :

       If ActiveSheet.Cells(celdemCor, i - 20).Value = "1" Then
            Me.Controls("CheckBox" & i).Value = True
        Else
            Me.Controls("CheckBox" & i).Value = False
        End If

et remplacer par :

Me.Controls("CheckBox" & i).Value = ActiveSheet.Cells(celdemCor, i - 20).Value = "1"

eric

Salut,

Merci Eriiic pour ton intérêt.

J’ai modifié mon fichier pour supprimer les noms réels…

Le but de mon « programme ». :

Avoir une interface pour la personne qui va saisir les points de nos championnats.

Dans mon USF il y a 3 onglets.

Les 2 premiers servent à saisir puis envoyer les informations dans la feuille Excel correspondante.

Le 3ème doit servir à la correction si réclamation du tireur.

C’est là que le bat blesse.

Les 2 onglets (même si le code n’est pas au top) fonctionnent.

Mais pas le Troisième dans la partie trap (la partie cible elle fonctionne).

Mais essai sont fait sur la discipline 622. Le but est de récupérer ce qui a été saisi avant pour modif

puis renvoi. La récup ne fonctionne pas et c’est là que je deviens fou !

je devrais avoir des cases cochées, mais non, j’ai des 1 dans les textbox !!

(SUB : NomTireurCor).

(La fonction renvoi des infos n’est pas encore développée, on verra après…)

J’espère que tu as compris mon but.

J’envoi en 2 fichiers…

Encore merci.

@+

JLP.

fichier 2

Merci

JLP

Bonjour,

Je n'ai pas trop le temps, je suis plutôt dans les valises là. Peut-être que qcq'un pourra prendre la suite.

En regardant vite fait je vois que tes textbox sont numéroté de 2 en 2 dans leur nom, et commencent à 27 et non 26.

Soit les renommer, soit en tenir compte dans ta boucle for en ajoutant step 2, ou bien utiliser for i = 0 to 9 et calculer les différents index que tu as besoin.

eric

Bonsoir,

Encore merci Eriiic pour ton implication.

Ma numérotation est bonne.

J'ai fini par trouver !!!

En fait, j'étais persuadé que ma feuille était active et elle ne l'était pas.

Du coup les infos venaient d'ailleurs et l'affichage n'était pas ce que j'attendais.

J'ai remis en début de code l'activation de la feuille et tout fonctionne.

Encore merci.

@+

JLP.