[VBA-E] taille du tableau non connu

Bonjour a tous


j'ai encore une question vu que je ne maitrise pas trop vbe


Voila lorsque je copie une feuille sur une autre dont je ne connais pas le nombre de ligne

voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub essai() mat = Selection.Rows.Count J = 1   For i = 1 To mat Sheets("Feuil1").Select Rows(J).Select Selection.Copy Sheets("Feuil3").Select Cells(J, 1).Select ActiveSheet.Paste J = J + 1 Next i End Sub

---

j'ai un probleme avec selection.rows count

je ne sais pas comment lui dire que le nombre de ligne n'est pas connu
je pense qu'il faut mettre un objet range

merci

Si par exemple tu ve que ta zone sélectionné prenne toutes les cellules utilisée à proximité de A1 .:

Code:

---

mat = range("A1").CurrentRegion.rows.count

---

:roll: :wink:

merci de la reponse


ainsi pour executer la macro il faut placer le curseur sur A1 ou pas

pour prendre en compte toute les ligne


sinon par rapport au code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub essai()   mat = Range("A1").CurrentRegion.Rows.Count   J = 1   For i = 1 To mat Sheets("Feuil2").Select Rows(J).Select Selection.Copy Sheets("Feuil3").Select Cells(J, 1).Select ActiveSheet.Paste J = J + 1 Next i End Sub

---

J'ai 2 feuille a copier l'une a la suite de l'autre sur la troisieme feuille

donc je pense qu'il faudrait faire comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Sub essai()   mat = Range("A1").CurrentRegion.Rows.Count   J = 1   For i = 1 To mat Sheets("Feuil1").Select Rows(J).Select Selection.Copy Sheets("Feuil3").Select Cells(J, 1).Select ActiveSheet.Paste J = J + 1 Next i     mat = Range("A1").CurrentRegion.Rows.Count   J = 1   For i = 1 To mat Sheets("Feuil2").Select Rows(J).Select Selection.Copy Sheets("Feuil3").Select Cells(J, 1).Select ActiveSheet.Paste J = J + 1 Next i End Sub

---

et la ou j'ai un probleme c'est pour le j qui doit etre initialise a la fin des ligne de la feuil 1 que je ne connais pas a l'avance

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Sub essai()   mat = Sheets("Feuil1").Range("A1").CurrentRegion.Rows.Count 'Nombre delignes à copier de la feuille 1   J = 1 'initialise j à 1   For i = 1 To mat Sheets("Feuil1").Select Rows(J).Select Selection.Copy Sheets("Feuil3").Select Cells(J, 1).Select ActiveSheet.Paste J = J + 1 Next i     Sheets("Feuil2").mat = Range("A1").CurrentRegion.Rows.Count   '=== > J à Déjà la bonne valeur ... J = 1   For i = 1 To mat Sheets("Feuil2").Select Rows(J).Select Selection.Copy Sheets("Feuil3").Select Cells(J, 1).Select ActiveSheet.Paste J = J + 1 Next i End Sub

---

:wink:

Il me marque une erreur sur

Code:

---

1 2 3

Sheets("Feuil2").mat = Range("A1").CurrentRegion.Rows.Count

---

propiete ou methode non gere par cet objet

J'ai essaye de modifier en faisant ceci

mat = Range("A1").CurrentRegion.Rows.Count

puis cela

mat = Sheets("Feuil2").Range("A1").CurrentRegion.Rows.Count

mais ca ne marche toujours pas

merci

tu as aussi :

Code:

---

1 2	NbLgn = Application.WorksheetFunction.CountA(Columns(1))

---

oui j'ai encore glissé sur un copier/coller...

qu'as tu comme errer avec :

Code:

---

mat = Sheets("Feuil2").Range("A1").CurrentRegion.Rows.Count

---

:roll: :wink:

avec

Code:

---

1 2 3

mat = Sheets("Feuil2").Range("A1").CurrentRegion.Rows.Count

---

il me copie des cellule mais vide

mais je pense savoir pourquoi c'est la ligne

Code:

---

1 2 3 4

Sheets("Feuil1").Select Rows(J).Select

---

le j est initialiser a la derniere colone donc il ne peut copier les premiere ligne

merci

Citation:

---

Envoyé par fab101

avec

[
mais je pense savoir pourquoi c'est la ligne

Code:

---

1 2 3 4

Sheets("Feuil1").Select Rows(J).Select

---

---

à oui il faut mettre i ...

Citation:

---

Envoyé par fab101

Code:

---

1 2 3 4 5 6 7 8 9 10

For i = 1 To mat Sheets("Feuil1").Select Rows(J).Select Selection.Copy Sheets("Feuil3").Select Cells(J, 1).Select ActiveSheet.Paste J = J + 1 Next i

---

---

ton code, comme qui dirait m'interpelle dans mon vécu ( :P ).

que veut tu faire exactement.
si je comprend bien ce que je lit, tu selectionne petit à petit chaque ligne(ligne excel) d'un tableau exitant pour les coller une après l'autre a partir du même n° de ligne dans un autre tableau.

Ce serait pas plu simple de carrément copier la plage (range) de ton tableau à copier, et de le coller a partir de la fin de ce que tu as déjà coller sur ta feuille finale (de résultat)?

quant à ta question sur la suite des 2 tableaux.

tu repart sur J donc ta ligen de copy se fait au même numéro don tu risque d'écraser tes données

sur ton principe, je ferait

Citation:

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Sub essai()   mat = Range("A1").CurrentRegion.Rows.Count   J = 1   For i = 1 To mat Sheets("Feuil1").Select Rows(J).Select Selection.Copy Sheets("Feuil3").Select Cells(J, 1).Select ActiveSheet.Paste J = J + 1 Next i     mat = Range("A1").CurrentRegion.Rows.Count   J = 1   For i = 1 To mat Sheets("Feuil2").Select Rows(J).Select Selection.Copy Sheets("Feuil3").Select Cells(J, 1).Select ActiveSheet.Paste J = J + 1 Next i End Sub

---

---

je remplacerait la deuxième partie par

Code:

---

1 2 3 4 5 6 7 8 9 10 11

i = 1   For i = 1 To mat Sheets("Feuil2").Select Rows(i).Select Selection.Copy Sheets("Feuil3").Select Cells(i+J, 1).Select ActiveSheet.Paste i = i + 1 Next i

---

tu t'est un peut embrouillé avec les j et i

tu devrait avoir moi de risque mais, bon, je pense que là avec ta méthode c'est un peut "lourde", par les ranges de plage et collage en fin de plage vide sur ta fauille résultat, ça devrait être plus "fin"

Cordialement

XHY65

salut XHY65

merci de ta reponse

mais je ne sais pas comment on fait avec les range

car je veux copier les deux feuille de calcul l'une a la suite de l'autre

mais je ne connais pas la taille de la feuille , le nombre de ligne a l'avance

si ta methode avec range est mieux je suis preneur

merci

si tu fait un truc du type

pour copier:

Code:

---

1 2 3 4 5 6 7 8

range("A1").select 'si tes tableau à copier commence en A1 (c'est ce que j'ai compris avec ton code)   CurrentRegion.select 'Cela va selectionner l'ensemble de ton tableau à copier   Selection.copy 'J'ai besoin d"expliquer?

---

pour coller :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

sheets("feuil3").select 'là aussi?   range("B1").select 'apparement dan ton code tu colle en B donc ......   selection.end(xldown).select 'selection de la dernière ligne écrite dans ta feuille "résultat"   activecell.offset(1,0).select 'on selectionne la cellule en dessous   selection.paste 'reste plus qu'à coller

---

en plus cela devrait prendre serieusement moins de temps.

n'oubli pas de geler et degeler ton ecran pour ce genre d'opération, cela évitera de voir ton écran avoir la dans de saint guy

Code:

---

1 2 3 4

' gel de l'affichage Application.ScreenUpdating = False ' degel de l'affichage Application.ScreenUpdating = true

---

je te donne au passage les info de déplacement dans excel. cela peut être pratique.

la case la plus en bas-->Selection.End(xlDown).Select
la case la plus à droite-->Selection.End(xlToRight).Select
la case la plus à gauche-->Selection.End(xlToLeft).Select
la case la plus haute-->Selection.End(xlUp).Select
Une case vers le bas-->ActiveCell.Offset(1, 0).Select
Une case vers le haut-->ActiveCell.Offset(-1, 0).Select
Une case vers la gauche-->ActiveCell.Offset(0, -1).Select
Une case vers la droite-->ActiveCell.Offset(0, 1).Select

cordialement

XHY65

merci xhy65


mais par contre il me marque une erreur objet requis

sur

Code:

---

1 2	currentregion.select

---

et sinon je n'ai pas tres bien compris ou mettre le code du gel et du degel

merci

Quand tu fait ton range au départ, il faut naturellement selectionner une cellule ou commence tes données avant ton "currentregion.select"

si cela ne commence pas en A1 mais en A2 ou A3 ou A4

tu peut faire une boucle de test

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'on selection A1 (naturellement si le début des données sont dans la col A) range("A1").select   'tant que la valeur de la cell = rien du tout do while activecell.value = ""   'tu descent de 1 activecell.value(1,0).select   'et tu recommence loop

---

ce qui donne sans commentaire

Code:

---

1 2 3 4 5

range("A1").select   do while activecell.value = "" activecell.value(1,0).select loop

---

pour ton gel et degel le plus simple est de le mettre en tous début de script et de le dégeler en fin de script

genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

sub machin() ' gel de l'affichage Application.ScreenUpdating = False   '****************** ' code du script '******************   ' degel de l'affichage Application.ScreenUpdating = true end sub

---

cordialement

XHY65

alors voici ce que j'ai mis avec la boucle

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

Sub essai1() Application.ScreenUpdating = False   Range("A1").Select   Do While ActiveCell.Value = "" ActiveCell.Value(1, 0).Select Loop   CurrentRegion.Select     Selection.Copy   Range("A1").Select   CurrentRegion.Select   Selection.Copy     Sheets("feuil3").Select 'là aussi?   Range("B1").Select   Selection.End(xlDown).Select   ActiveCell.Offset(1, 0).Select 'on selectionne la cellule en dessous   Selection.Paste   Application.ScreenUpdating = True End Sub

---

Mais le probleme c'est qu'il me met toujours une erreur

sur current.region disant qu'un objet requis


Merci[/code]

Citation:

---

Envoyé par fab101

erreur
sur current.region disant qu'un objet requis

---

currentRegion , te donne accés à une plage contigu à la plage d'origine, cela fais la même chose que lorsque sous excel tu sélectionne une cellule puis tu actionne les touches : CTRL *

il faut appliquer currentregion à la plage initiale exemple

Code:

---

Range("B5").CurrentRegion.select

---

:roll: :wink:

Oups !!!!!!!!!!!!!

désolé, c'est

Code:

---

ActiveCell.CurrentRegion.Select

---

qu'il faut marquer, pas juste "CurrentRegion.Select"

comme tu as fait ta boucle pour trouver le début de plage, c'est normalement bon.

Cordialement

XHY65

Citation:

---

Envoyé par fab101

Sub essai1()
Application.ScreenUpdating = False

Range("A1").Select

Do While ActiveCell.Value = ""
ActiveCell.Value(1, 0).Select
Loop

CurrentRegion.Select


Selection.Copy

Range("A1").Select

CurrentRegion.Select

Selection.Copy


Sheets("feuil3").Select
'là aussi?

Range("B1").Select

Selection.End(xlDown).Select

ActiveCell.Offset(1, 0).Select
'on selectionne la cellule en dessous

Selection.Paste

Application.ScreenUpdating = True
End Sub
[/code]
[/code]

---

Y'a un problème dans ton code


(Debut du code).......

Range("A1").Select

Do While ActiveCell.Value = ""
ActiveCell.Value(1, 0).Select
Loop

activecell.CurrentRegion.Select 'là je modifie


Selection.Copy

et là, je comprend pas tu reselectionne ton A1 donc ce que tu as fait avant ne sert à rien (je pense qu'il vaut mieux le supprimer)

Range("A1").Select

CurrentRegion.Select

........(suite du code)



je l'ai pas mis en code pour que tu voit les différence

Cordialement

XHY65

salut

merci mais je comrend pas j'ai maintenant une erreur sur selection.paste

enfin avec ce que tu m'a donne je pense que je vais trouve


Merci

voilà ton code tester,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Sub test() Application.ScreenUpdating = False   Range("A1").Select   Do While ActiveCell.Value = "" ActiveCell.Offset(1, 0).Select Loop   ActiveCell.CurrentRegion.Select     Selection.Copy   Sheets("feuil3").Select     Range("B1").Select If ActiveCell.Value = "" Then ActiveSheet.Paste Else Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select ActiveSheet.Paste End If   Application.ScreenUpdating = True End Sub

---

redésolé, c'est pas selection paste mais activesheet.paste ( :traine: je suis un boulet aujourd'hui. que personne ne daigne répondre "comme d'habitude" svp)

J'ai testé, cela fonctionne sans souccis

Cordialement

XHY65

petite explication du if

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

'tu selectionne B1 Range("B1").Select   'si rien B1 tu colle If ActiveCell.Value = "" Then ActiveSheet.Paste Else   'si quelque chose en B1 'tu va en bas des données, tu descend de 1 et tu colle Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select ActiveSheet.Paste End If

---

cordialement

XHY65

merci ca marche


merci beaucoups