USF qui ne fonctionne pas correctement

[GILLES25]

Re-bonjours.
mon USF ne fonctionne pas correctement les données ne s'insert pas correctement dans la feuille, elles sont décalées ???
AH BEN POURQUOI ?????????????? [file name=ESSAISGILLES.zip size=16569]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ESSAISGILLES.zip[/file]

 

[porcinet82]

Salut Gilles25,

Je viens de jeter un oeil a ton fichier, et chez moi il n'y a pas que ca qui ne fonctionne pas, moi j'ai un problème sur la ligne suivante :

ActiveCell.Offset(1, 0).Select    ' En dessous

Enfin, si chez toi ca fonctionne, c'est l'essentiel.
Pour ton decalage, modifie comme suit:

ActiveCell.Offset(0, 0).Value = equipe
'dans ton USF, la combo est : ComboBox5
ActiveCell.Offset(0, 1).Value = grade
'dans ton USF, la combo est : ComboBox4
ActiveCell.Offset(0, 2).Value = Application.Proper(UCase(Me!nom))

Tiens nous au courant.

@+

 

[jp14]

Bonsoir

La macro désire écrire à la ligne 65536 + 1

dl = Range('c11').End(xlDown).Row
Range('c11').End(xlDown).Select ' Dernière ligne
ActiveCell.Offset(1, 0).Select ' En dessous
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1

La variable dl permet de connaitre la position.

 

[GILLES25]

Bonsoir porcinet82, bonsoir JP14 et merci pour vos réponses.
J'ai donc replacer tous ça correctement en copier coller mais voilà ............. pas de bol ça ne fonctionne toujour pas; je m'explique sur l'objectif final:
il faudrais simplement que je rentre les données dans le tableau et quelle s'insert juste en desous de la dernière ligne remplie mais le problème viend de la ligne suivante:
ActiveCell.Offset(1, 0).Select ' En dessous
c'est vraiment bizarre non ???????

 

[porcinet82]

re, Salut jp14,

Je veins de rejeter un oeil a ton fichier apres la remarque de jp, et en fait, j'ai modifier le code comme suit et ca fonctionne:

...
Else
Range('A65536').End(xlUp).Select ' Dernière ligne
ActiveCell.Offset(1, 0).Select ' En dessous
End If
'--- Transfert

ActiveCell.Offset(0, 0).Value = ComboBox5 'equipe
ActiveCell.Offset(0, 1).Value = ComboBox4 'grade
ActiveCell.Offset(0, 2).Value = TextBox3 'nom

@+

 

[GILLES25]

ça y est j'ai enfin trouver, merci à vous, je pense avoir besoin de pas mal d'aide par la suite merci encore.
Gilles