Macro déplacement colonne

[Hellboy]

Bonjour,

J'ai à récupérer les informations d'une enquete sous de tableau excel.
Chaque personne ayant répondu à l'enquete possède une colonne.
Comment avec une macro puis je trouver le nombre de personne ayant répondu:
je pensais faire une boucle while sur la ligne1 mais je n'arrive pas a déplacer le select de colonne en colonne sur la même ligne.

Merci @ tous

 

[PascalXLD]

Bonjour

Macolonne=range('A1').end(xltoright).column

ou

Macolonne=range('IV1').end(xltoleft).column

te donnera la dernière colonne rempli sur la ligne 1

 

[Hellboy]

Hello !

Merci pour cette info qui m'intéresse également.
Et lorsque je suis la, comment je dois lui dire d'aller sur la meme ligne à la colonne suivante ??

Merci

 

[PascalXLD]

RE

Euh tu peux préciser ta question STP ??

 

[Hellboy]

Ben en fait
lorsque j'aurai le nombre de personne ayant répondu,
je pars de la colonne C par exemple, je récupère les différentes réponses qui sont dans les différentes lignes.
Puis pour passer à la colonne suivante comment je lui dit ?

Marci

 

[PascalXLD]

RE

tout dépend de ton code. Il faudrait que tu montres ce que tu as fait pour une colonne.
Qu'entends-tu par récupérer les réponses ?

cela peut-être un truc du genre

for x = 1 to range('IV1').end(xltoleft).column

Qui te permet de boucler mais à voir

Message édité par: Pascal76, à: 14/04/2006 10:34

 

[Hellboy]

En fait

A1, B1, C1, D1 etc...
correspond aux personnes ayant repondues.

A3,A4,A5 correspond aux réponses de la personne 1 (donc colonne A) aux questions 1, 2 et 3.

Sachant que les réponses sont oui ou non, je les ai traduites en 0 et 1.

DOnc je voudrais lui dire:

for x= 1 to Range('IV1').end(xltoleft).column)

if .....et la je veux lui dire de récupérer la valeur de la colonne actuelle donc 1 qui correspond a A et de réécrire les réponses ailleurs.
Cependant je n'arrive pas a lui dire de récupérer les réponses car ma variable est un chiffre et ma colonne une lettre.

Lorsqu'il a fait le if, je veux lui dire de passer a la colonne suivante, ce qui correspond à ma boucle for.

Mais je ne sais pas transformer la variable x en lettre.

J'ai essayé Cells(x,1).value, mais ca ne marche pas.

Voila jespere ne pas avoir été trop complexe

Merci

 

[PascalXLD]

Re

tu etait bien parti mais avec cells c'est cells(ligne,colonne)

donc pour la ligne 1 cela donne

cells(1,x) avec x le numéro de ta colonne variable

ensuite cells(2,x) pour la ligne 2 etc

Bon courage

 

[Hellboy]

Je crois que j'ai trouvé,

il fallait mettrre

if cells(x,1).value = '1' then

j'avais oublié les ''.

Par contre je voudrai stocker ma réponse de la condition sur une autre feuille.
Je dois écrire range(Feuille2!A2) ou quelque chose dans ce qout la ????

Merci
pour la réactivité des réponses

 

[PascalXLD]

Re

Si tu avais ce genre d'erreur c'est que ton 1 est vu comme du texte et non un chiffre

Mais attention tu as toujours ton inversion du x qui n'est pas au bon endroit

Sinon pour le reste

Sheets('Feuil2').range('A2')

Bon courage

 

[Hellboy]

Merci pour toutes ces réponses.

Une dernière petite question,
pour que mon 1 soit reconnu en chiffre, je dois faire quoi ?

Encore merci

 

[PascalXLD]

Re

Par exemple

Il suffit juste de changer le format de ta cellule sur ta feuille où tu as tes réponses

 

[Hellboy]

Hehehe
bien vu
quand je commence a penser compliqué
je n'arrive plus a faire les trucs simple

marci pour tout
@++

 

[PascalXLD]

Par contre juste un petit truc

Il y a déjà un XLDNaute qui a pour pseudo Hellboy (il doit d'ailleurs dormir à cette heure car du Canada)

Peut-être serait-il judicieux de modifier le tien

Bonne journée

Message édité par: Pascal76, à: 14/04/2006 11:05

 

[OldBoy]

Oki

Petite question supplémentaire:

Comment je peux a chaque fois que j'execute ma macro
réinitialiser le tablo de réponse,
donc re- faire devenir la plage:
C3 jusqua C5
et les lignes 3 à 22

donc les faire revenir à 0
???

Thanks