enregistrement suivant les lignes

[akramenergie]

bonjour le frums
j'ai un petits problem je demande votre aides et merci
voila j'ai une macro avec la quel j'enregistre des nom suivant une colone en incrémentent a chaque fois l'indice des colone pour passer a la cellul qui suit.
voila la partie du code qui fait ce travail:
--------------------------------------------------------------------------
InsMot = Worksheets("BD2").Range("A65536").End(xlUp).Row + 1


Worksheets("BD2").Range("B" & InsMot).Value = Recr.TextBox2.Value

--------------------------------------------------------------------------

Mon probleme et le suivant maintenent, l'enregistrement doit ce faire suivant une seul ligne, cad je doit incrimenter le nbr de colone pour enregistrer les nom horisentalement
la premiere feuil de la piece joint représent l'etat actuele
et la feuil2 représent ce que je faire
merci

 

[gilbert_RGI]

Re : enregistrement suivant les lignes

Bonsoir

Pour faire cela il y a dans le collage spéciale une fonction à cocher qui est transpose

donc dans un premier temps copier les cellules A1:A10
ensuite
passer en feuille 2 collage special cocher transpose et valider

Salutations

RGI

 

[nouv]

Re : enregistrement suivant les lignes

bonjour,

je dirais comme ça :

insmot = Worksheets("BD2").Range("IV1").End(xlToLeft).Column + 1
Worksheets("BD2").Cells(1, insmot).Value = Recr.TextBox2.Value

dis si ça va

><>

 

[akramenergie]

Re : enregistrement suivant les lignes

super merci beaucoup les deux ligne de code marche parfaitemant
merci beaucoup les gas

 

[nouv]

Re : enregistrement suivant les lignes

re,

hum, hum

merci beaucoup les gas

me vexerais-je ??? pas de smiley avec des couettes, tant pis de toutes façon j'ai les cheveux plutôt court et pis je me vexe pas facilement

contentE que les codes marchent
à+

><>