Discussion :

[Mike924]

Bonjour à tous
Je vais essayer d'être clair.
Je suis en train de concevoir un "programme" d'enregistrement de données pour une compet où je vais avoir à compléter un tableau.
Les concurrents (+ de 120) n'arrivant pas forcement dans l'ordre, j'ai créé un formulaire de saisie qui me permets d'enregistrer directement les valeurs de chaque concurrent.

Le tableau qui reçoit les valeurs est classé par ordre de n° et est utilisé ensuite pour un calcul des pénalités.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
' Récupération de l'adresse de la cellule du n° recherché
 
          With ActiveSheet
          a = Range("tab_saisie1[N°]").Find(numequip).Address
          End With
 
          Range(a).Offset(0, 2).Select
          ActiveCell.Value = TextBox1.Value       'enregistrement du nb de CP
          Range(a).Offset(0, 3).Select
          ActiveCell.Value = TextBox2.Value       'enregistrement du KM1
          Range(a).Offset(0, 4).Select
          ActiveCell.Value = TextBox3.Value       'enregistrement du KM2
          Range(a).Offset(0, 5).Select
          ActiveCell.Value = TextBox4.Value       'enregistrement du KM2

Tout fonctionne à merveille sauf pour l'enregistrement du concurrent n° 1.
A chaque fois, les données sont enregistrées dans les cellules du concurrent n° 10 donc pas bon
Je suppose que c'est au niveau de la sélection du tableau que je fais une erreur.
Quelqu'un aura t'il la solution?
Merci d'avance