USF qui ne fonctionne pas correctement

G

GILLES25

Guest
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]
 

Pièces jointes

  • ESSAISGILLES.zip
    16.2 KB · Affichages: 30

porcinet82

XLDnaute Barbatruc
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 :
Code:
ActiveCell.Offset(1, 0).Select    ' En dessous

Enfin, si chez toi ca fonctionne, c'est l'essentiel.
Pour ton decalage, modifie comme suit:
Code:
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

XLDnaute Barbatruc
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.
 
G

GILLES25

Guest
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

XLDnaute Barbatruc
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:

Code:
...
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

@+
 

Discussions similaires

Statistiques des forums

Discussions
313 313
Messages
2 097 046
Membres
106 817
dernier inscrit
christian24