incrémenter ou passer à la ligne suivante

[nicole]

Bonsoir amis du forum,

je passe presque plus de temps avec vous que à vraiment travailler. Je trouve énormement de choses intéressantes sur le site.

Alors mon pb, avec mon bouton enregistrer je récupère des données d'un userform ( dans des textbox) et je les renvoie comme il s'agit de nouvelles données à la dernière ligne du tableau. ça marche pour le premier cas , seulement si refais la même opération, les nouvelles données écrasent les anciennes données , que puis-faire?

mon code:

Private Sub Recording()
Dim TheCheckList As String
Dim CTRL As Control
Dim j As Integer
Dim k As Integer
k = j + 1
k = 450
Set WS = Worksheets("Tableau")
j = WS.Range("A65536").End(xlUp).Row

If CheckBox1.Value = True Then

WS.Cells(k, 79) = Me.TbGPD.Value

WS.Cells(k, 98) = Me.TbRisqHCofaceR.Value

End If

End Sub


merci à tous

 

[myDearFriend]

Bonsoir Nicole,

Dans ton code, la ligne de destination des valeurs récupérées est représentée par la variable 'k'.

Or, ta variable 'k' reste à 450 !

Au lieu de :

k = j + 1
k = 450
Set WS = Worksheets("Tableau")
j = WS.Range("A65536").End(xlUp).Row

Essaie plutot :

Set WS = Worksheets("Tableau")
j = WS.Range("A65536").End(xlUp).Row
k = j + 1

(Je n'ai pas compris l'utilité du k = 450 ici)

Cordialement.
Didier_mDF

 

[nicole]

Bonjour Forum, Didier,

j'avais déja essayé ce que tu m'as proposé mais cela a pour effet d'enregistrer à la première ligne (A1) et les données continuent à s'écraser les unes sur les autres.

k=450 c'est parcque j'ai 449 clients et que le client suivant occupera la 450 ème position.


D'autres idées qui pourraient m'aider?

merci

Nicole

 

[Pascal76]

Bonjour

Nicole pour reprendre ton code

Private Sub Recording()
Dim j As Integer
Set WS = Worksheets("Tableau")
j = WS.Range("A65536").End(xlUp).Row + 1

If CheckBox1.Value = True Then

WS.Cells(j, 79) = Me.TbGPD.Value

WS.Cells(j, 98) = Me.TbRisqHCofaceR.Value

End If

End Sub

Essaies comme ceci

Bon courage

Pascal

 

[nicole]

Merci Pascal,

ça marche très bien. Quand je pense à toutes les combinaisons utlisées avant je comprends pourquoi on dit de rester simple.

merci encore pour ton aide et bonne journée.


Nicole