USF qui ne fonctionne pas correctement

  • Initiateur de la discussion Initiateur de la discussion GILLES25
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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.

@+
 
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.
 
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 ???????
 
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

@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
132
Retour