Discussion :

[Alecine]

Bonjour,
Voila j'ai de petites compétences en VBA et j'aimerais créer un bouton avec une macro me permettant de copier une plage de valeur non définie (par exemple de A1 à EXX, "XX" étant une valeur inconnue) dans une autre feuille.
Il faudrait donc que la macro "devine" la taille de cette plage de cellules
A savoir que cette plage a toujours le meme nombre de colonne (5 de A à E) c'est bien le nombre de ligne qui est variable
Donc je pense qu'il faudrait une boucle qui cherche tant qu'une case contient quelque chose et qui s'arrete lorsque c'est vide.
Une fois ceci fait la plage de cellues serait copiée et envoyée vers une nouvelle feuille (ou bien une feuille existante)

Pensez vous que cela est réalisable facilement ?
Je ne sais pas si j'ai été clair dans ma demande.
Si vous avez des questions n'hésitez pas
Je connais les bases mais n'ai pas assez d'experience encore pour faire cela !
Je comprend tout de meme les codes !

Merci d'avance a vous en éspérant avoir une réponse !!

[pyrene]

je crois comprendre que tu veux copier une plage de cellules dont les colonnes sont fixes mais pas les lignes.
c'est bien ca?

si j'ai bien cerné ton probleme:
tu peux peut etre essayer un truc du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
for i =debut_collone to fin_collone
  for j= 1 to maximum (si tu peux connaitre le maximum ca aiderait..)
    if worksheets("..").cells(j,i)=null then (ou equivalent a "si(estnul())" dans excel)
      tu fais ton action
    end if
  next j
next i

je dis ca mais je ne suis probablement pas + douée que toi en programmation
alors ce que je viens d'ecrire est à vérifier!!

[Alecine]

En tout cas tu as compris ce que je recherchais !
C'est déja un bon point ^^
J'essaye et je te tiens au courant

[zyhack]

Bonjour

en beaucoup plus rapide tu as

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Worksheets("FeuilOrigine").Range("A1:E" & Cells(Rows.Count, "A").End(xlUp).Row).Copy _
  Worksheets("FeuilDestination").Range("A1")

non ?

[Alecine]

Effectivement zyhack ca marche impec !!
Bon mon travil sur mon fichier Excel est très loin d'etre fini mais c'es un début ^^
Merci beaucoup a vous !