Mémorisations de valeurs

Version imprimable

Voir 40 message(s) de cette discussion en une page

24/02/2013, 19h27
keygen08
Tu dois donc redefinir ligactive avant d'enregistrer en recherchant la ligne correspondante
Code:

1 2 Set c = ActiveSheet.Range("a:a").Find(ligactive, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then ligactive = c.Row
Le plus simple serait de rajouter un n° d'enregistrement unique, ainsi tu pourrai lancer une recherche sur ce numéro. Une recherche sur un nom, ou nom prénom risquant de comporter un doublon.
24/02/2013, 19h54
Chris171717

Citation:

Envoyé par keygen08

Le plus simple serait de rajouter un n° d'enregistrement unique, ainsi tu pourrai lancer une recherche sur ce numéro. Une recherche sur un nom, ou nom prénom risquant de comporter un doublon.

Effectivement ça me paraît plus cohérent et certainement plus efficace...

Est-ce que je dois mettre en place un compteur alors ?
24/02/2013, 20h20
keygen08

Oui car il faudra qu'excel retrouve ce numero unique meme si les lignes ont été trié, de la meme maniere que le ferait access.
Il doit y avoir une autre solution mais je ne vois pas pour l'instant.

Comme je te le disais l'autre jour, il faut parfois anticiper le probleme trés en amont. Remplir une listbox trié est sans doublon pour envoyé les données sur une feuille est plus difficile que de trié les données sur la feuilles au fur et a mesure du remplissage pour remplir ensuite une listbox. on peut alors plus facilement recuperer le n° de ligne pour l'utiliser.

J'ai créé mon compteur avec ce code :

Code:

1
2
3
4
5
Private Sub UserForm_Initialize()
 
    TextBox9.Value = Range("I" & Cells(Rows.Count, 1).End(xlUp).Row) + 1
 
End Sub

Ensuite cette valeur est envoyée dans la même ligne que mon enregistrement...
Elle est récupérée par mon userform de modification...

Maintenat j'ai ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    With ActiveSheet
 
 
          .Range("A" & Me.TextBox1) = TextBox1   'On écrit dans chaque colonne les valeurs des différents controls
          .Range("B" & Me.TextBox1) = TextBox2   'Idem
          .Range("C" & Me.TextBox1) = TextBox3   'Idem
          .Range("D" & Me.TextBox1) = TextBox6   'Idem
          .Range("E" & Me.TextBox1) = TextBox5   'Idem
          .Range("F" & Me.TextBox1) = TextBox6   'Idem
          .Range("G" & Me.TextBox1) = TextBox7   'Idem
          .Range("H" & Me.TextBox1) = CheckBox1  'Idem
    End With

Je suppose que je dois ajouter à la ligne 2 une recherche par rapport au numéro attribué à la ligne afin que la suite écrive dans la bonne ligne...:)

Bonjour,

ça y est j'ai trouvé...

Mon code ne fonctionnait pas car il ne cherchait pas en fonction du bon textbox... de plus, j'ai rajouté "+ 1" à chaque fois sinon il modifiait la ligne au dessus...

voilà mon code...

Dis-moi si je dois modifier quelquechose... mais je pense que c'est bon...

Code:

1
2
3
4
5
6
7
8
9
10
11
    With ActiveSheet
          .Range("A" & Me.TextBox9 + 1) = TextBox1  'On écrit dans chaque colonne les valeurs des différents controls
          .Range("B" & Me.TextBox9 + 1) = TextBox2  'Idem
          .Range("C" & Me.TextBox9 + 1) = TextBox3  'Idem
          .Range("D" & Me.TextBox9 + 1) = TextBox4  'Idem
          .Range("E" & Me.TextBox9 + 1) = TextBox5  'Idem
          .Range("F" & Me.TextBox9 + 1) = TextBox6  'Idem
          .Range("G" & Me.TextBox9 + 1) = TextBox7  'Idem
          .Range("H" & Me.TextBox9 + 1) = CheckBox1 'Idem
          .Range("I" & Me.TextBox9 + 1) = TextBox9  'Idem
    End With

Merci encore pour ton aide... :ccool:

25/02/2013, 18h30
keygen08

Bonjour

Si ça marche, ne change rien pour l'instant, il sera toujours temps de revenir sur ton code une fois le tout terminer.
25/02/2013, 18h39
Chris171717

OK super merci

je n'hésiterai pas à revenir ici si besoin...

merci encore pour le coupe de main... :ccool:

Voir 40 message(s) de cette discussion en une page