Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel userform

userform

7 réponses
Avatar
TOM
Bonsoir,

Je sais transférer des donner d' un userform vers une feuille Excel. Mon
problème c'est d'arriver à ce que ces données s'inscrivent les unes sous les
autres sur la ligne suivante.

Merci d'avance pour votre aide.
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
jps
bonsoir tom
une piste : cette ligne te permet d'aller dans la dernière cellule non vide
de la colonne E

ActiveSheet.Range("E65536").End(xlUp)(2).Select

tu peux aussi lui affecter une variable :

derligne = ActiveSheet.Range("E65536").End(xlUp)(2).Select

HTH
jps

"TOM" a écrit dans le message de
news:4245dded$0$846$
Bonsoir,

Je sais transférer des donner d' un userform vers une feuille Excel. Mon
problème c'est d'arriver à ce que ces données s'inscrivent les unes sous
les

autres sur la ligne suivante.

Merci d'avance pour votre aide.




Avatar
TOM
Merci JPS, je vais tester.




bonsoir tom
une piste : cette ligne te permet d'aller dans la dernière cellule non
vide
de la colonne E

ActiveSheet.Range("E65536").End(xlUp)(2).Select

tu peux aussi lui affecter une variable :

derligne = ActiveSheet.Range("E65536").End(xlUp)(2).Select

HTH
jps

"TOM" a écrit dans le message de
news:4245dded$0$846$
Bonsoir,

Je sais transférer des donner d' un userform vers une feuille Excel. Mon
problème c'est d'arriver à ce que ces données s'inscrivent les unes sous
les

autres sur la ligne suivante.

Merci d'avance pour votre aide.







Avatar
jps
hum tom attends avant de tester
j'ai comme entendu des voix qui me disaient que j'avais écrit des c....ies
1) il faut lire : dans la dernière cellule VIDE
2) pour la variable, il faut écrire :
derligne = ActiveSheet.Range("E65536").End(xlUp)(2).Row

désolé pour le chibrelot
jps


"TOM" a écrit dans le message de
news:4246715d$0$19315$

Merci JPS, je vais tester.




bonsoir tom
une piste : cette ligne te permet d'aller dans la dernière cellule non
vide
de la colonne E

ActiveSheet.Range("E65536").End(xlUp)(2).Select

tu peux aussi lui affecter une variable :

derligne = ActiveSheet.Range("E65536").End(xlUp)(2).Select

HTH
jps

"TOM" a écrit dans le message de
news:4245dded$0$846$
Bonsoir,

Je sais transférer des donner d' un userform vers une feuille Excel.
Mon



problème c'est d'arriver à ce que ces données s'inscrivent les unes
sous



les
autres sur la ligne suivante.

Merci d'avance pour votre aide.











Avatar
Kamel
Une question: pourquoi le (2) dans End(xlUp)(2) ?
Merci

Kamel

"jps" a écrit dans le message de news:

hum tom attends avant de tester
j'ai comme entendu des voix qui me disaient que j'avais écrit des c....ies
1) il faut lire : dans la dernière cellule VIDE
2) pour la variable, il faut écrire :
derligne = ActiveSheet.Range("E65536").End(xlUp)(2).Row

désolé pour le chibrelot
jps


"TOM" a écrit dans le message de
news:4246715d$0$19315$

Merci JPS, je vais tester.




bonsoir tom
une piste : cette ligne te permet d'aller dans la dernière cellule non
vide
de la colonne E

ActiveSheet.Range("E65536").End(xlUp)(2).Select

tu peux aussi lui affecter une variable :

derligne = ActiveSheet.Range("E65536").End(xlUp)(2).Select

HTH
jps

"TOM" a écrit dans le message de
news:4245dded$0$846$
Bonsoir,

Je sais transférer des donner d' un userform vers une feuille Excel.
Mon



problème c'est d'arriver à ce que ces données s'inscrivent les unes
sous



les
autres sur la ligne suivante.

Merci d'avance pour votre aide.














Avatar
jps
re bonjour kamel
alors là, tu touches à la partie sensible de la race limousine
ce (2) te permet d'aller à la première cellule VIDE
si tu mets (1) tu iras à la dernière cellule NON VIDE
si tu mets (3) tu iras à la seconde cellule VIDE, (4) à la troisième and so
on...
si tu ne mets rien, tu vas aussi à la dernière cellule non vide
jps

"Kamel" a écrit dans le message de
news:

Une question: pourquoi le (2) dans End(xlUp)(2) ?
Merci

Kamel

"jps" a écrit dans le message de news:

hum tom attends avant de tester
j'ai comme entendu des voix qui me disaient que j'avais écrit des
c....ies


1) il faut lire : dans la dernière cellule VIDE
2) pour la variable, il faut écrire :
derligne = ActiveSheet.Range("E65536").End(xlUp)(2).Row

désolé pour le chibrelot
jps


"TOM" a écrit dans le message de
news:4246715d$0$19315$

Merci JPS, je vais tester.




bonsoir tom
une piste : cette ligne te permet d'aller dans la dernière cellule
non




vide
de la colonne E

ActiveSheet.Range("E65536").End(xlUp)(2).Select

tu peux aussi lui affecter une variable :

derligne = ActiveSheet.Range("E65536").End(xlUp)(2).Select

HTH
jps

"TOM" a écrit dans le message de
news:4245dded$0$846$
Bonsoir,

Je sais transférer des donner d' un userform vers une feuille Excel.
Mon



problème c'est d'arriver à ce que ces données s'inscrivent les unes
sous



les
autres sur la ligne suivante.

Merci d'avance pour votre aide.


















Avatar
Kamel
Merci jps
Il est vrai qu'en programmant comme cela, c'est la class ! ;-))
En générale, je procède ainsi pour avoir la dernière cellule non vide:
derligne = ActiveSheet.Range("A1").End(xlDown).Row en partant du haut ....
Pas bon ?

Merci

"jps" a écrit dans le message de news:

re bonjour kamel
alors là, tu touches à la partie sensible de la race limousine
ce (2) te permet d'aller à la première cellule VIDE
si tu mets (1) tu iras à la dernière cellule NON VIDE
si tu mets (3) tu iras à la seconde cellule VIDE, (4) à la troisième and
so
on...
si tu ne mets rien, tu vas aussi à la dernière cellule non vide
jps

"Kamel" a écrit dans le message de
news:

Une question: pourquoi le (2) dans End(xlUp)(2) ?
Merci

Kamel

"jps" a écrit dans le message de news:

hum tom attends avant de tester
j'ai comme entendu des voix qui me disaient que j'avais écrit des
c....ies


1) il faut lire : dans la dernière cellule VIDE
2) pour la variable, il faut écrire :
derligne = ActiveSheet.Range("E65536").End(xlUp)(2).Row

désolé pour le chibrelot
jps


"TOM" a écrit dans le message de
news:4246715d$0$19315$

Merci JPS, je vais tester.




bonsoir tom
une piste : cette ligne te permet d'aller dans la dernière cellule
non




vide
de la colonne E

ActiveSheet.Range("E65536").End(xlUp)(2).Select

tu peux aussi lui affecter une variable :

derligne = ActiveSheet.Range("E65536").End(xlUp)(2).Select

HTH
jps

"TOM" a écrit dans le message de
news:4245dded$0$846$
Bonsoir,

Je sais transférer des donner d' un userform vers une feuille
Excel.
Mon



problème c'est d'arriver à ce que ces données s'inscrivent les unes
sous



les
autres sur la ligne suivante.

Merci d'avance pour votre aide.





















Avatar
jps
hum..hum kamel
cela suppose que tu n'as pas de cellule vide entrelardée dans ta colonne A
sinon tu vas t'arrêter en route
alors que si tu vas en remontant du fond de ta feuille, tu es certain de
tomber sur la derniere cellule non vide, même si tu as des "trous" au dessus
dans ta colonne
capich?
jps

"Kamel" a écrit dans le message de
news:%
Merci jps
Il est vrai qu'en programmant comme cela, c'est la class ! ;-))
En générale, je procède ainsi pour avoir la dernière cellule non vide:
derligne = ActiveSheet.Range("A1").End(xlDown).Row en partant du haut ....
Pas bon ?

Merci

"jps" a écrit dans le message de news:

re bonjour kamel
alors là, tu touches à la partie sensible de la race limousine
ce (2) te permet d'aller à la première cellule VIDE
si tu mets (1) tu iras à la dernière cellule NON VIDE
si tu mets (3) tu iras à la seconde cellule VIDE, (4) à la troisième
and


so
on...
si tu ne mets rien, tu vas aussi à la dernière cellule non vide
jps

"Kamel" a écrit dans le message de
news:

Une question: pourquoi le (2) dans End(xlUp)(2) ?
Merci

Kamel

"jps" a écrit dans le message de news:

hum tom attends avant de tester
j'ai comme entendu des voix qui me disaient que j'avais écrit des
c....ies


1) il faut lire : dans la dernière cellule VIDE
2) pour la variable, il faut écrire :
derligne = ActiveSheet.Range("E65536").End(xlUp)(2).Row

désolé pour le chibrelot
jps


"TOM" a écrit dans le message de
news:4246715d$0$19315$

Merci JPS, je vais tester.




bonsoir tom
une piste : cette ligne te permet d'aller dans la dernière cellule
non




vide
de la colonne E

ActiveSheet.Range("E65536").End(xlUp)(2).Select

tu peux aussi lui affecter une variable :

derligne = ActiveSheet.Range("E65536").End(xlUp)(2).Select

HTH
jps

"TOM" a écrit dans le message de
news:4245dded$0$846$
Bonsoir,

Je sais transférer des donner d' un userform vers une feuille
Excel.
Mon



problème c'est d'arriver à ce que ces données s'inscrivent les
unes







sous
les
autres sur la ligne suivante.

Merci d'avance pour votre aide.