[VBA-E]Recopier un tableau en supprimant les plages vides

Bonjour,

voila mon problème :

j'ai un tableau excel contenant des palges de cellules vides sur une feuille, ces plages étant soumises à une formule conditionelles suivant les entrées d'une feuille précédente.
Ce que j'aimerais obtenir, a laide d'une macro, c'est de recopier les plages remplies sur une autre feuille sans qu'il n'y ai de ligne vides intercalées. (feuille récapitulative).

autre donnée importante c'est que selon l'entrée les plages vides peuvent se remplir.

la macro devrai pouvoir, a chaque fois qu'elle est activée, inserer les les plages vides au bon endroit.

voila un petit schéma de ce que j'aimerais obtenir :

feuille 1
nota : - - - - - = plage de celulles vides
1 ___________
2- - - - - - - - - -
3 ___________
4___________
5 -- - - - - - - -
6 ___________

clic sur macro =>

feuille récapitulative

1 ___________
3 ___________
4___________
6 ___________

et si plus tard la feuille 1 change, l'activation de la macro devrait faire que :

1 ___________
2___________
3__________
4___________
5 -- - - - - - - -
6 ___________

clic sur macro =>

1 ___________
2___________
3__________
4___________
6 ___________

donc je tiens a remercier d'avance quiconque pourrait m'aider a obtenir ce résultat.
Merci,

Bonjour à toi,
Déjà, petite question, qu'est-ce que tu considère comme un ligne remplie ? si une ligne remplie implique que la première cellule est systématiquement remplie, tu peux faire une boucle sur tes x lignes (le nombre de lignes à remplir/ou pas est-il fixe ?), du genre, si il ya une valeur dans la première cellule, j'exporte la ligne dans la deuxième feuille, sinon, non

Cwain

Hello,

désolé mais ton schéma n'est pas clair.

dans le premier cas tu as 2 fois la ligne 3
dans le second cas la 5eme ligne est vide

ça n'aide pas trop à comprendre ce que tu veux ....

salut
fait une boucle avec test et compteur du style:

Code:

---

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

sub remplissage() dim i as integer dim compteur as integer dim test as variant test="" compteur=1 for i=1 to (nombre de ligne) test=feuille.cells(i,colonne).value if test<>"" then compteur=compteur+1 2emefeuille.cells(compteur,colonne).value=test   next i

---

voila a tester et corriger
ajoute aussi des lignes pour les différentes cellules
si c toute la ligne que tu veux copier sur le test d'une cellule c aussi a modifier
rémi

j'ai oublie un end if et de plus, il faut intervertir les deux lignes:

Code:

---

1 2 3

compteur=compteur+1 2emefeuille.cells(compteur,colonne).value=test

---

comme ca

Code:

---

1 2 3

2emefeuille.cells(compteur,colonne).value=test compteur=compteur+1

---

si tu veux commencer des la valeur du début

pour le test, j'ai supposé qu'il fallait mettre qqch du genre

test = sheets("le nom de ma première feuille").cells(i,colonne).value

le problème ce que visual basic n'est pas content quand je lance la macro....

qu'est-ce quil te dit??
sinon pour le code je viens de tester celui la qui marche bien:

Code:

---

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

Sub remplissage() Dim i As Integer Dim compteur As Integer Dim test As Variant   test = ""   compteur = 0 For i = 1 To 15 test = Worksheets("Feuil1").cells(i, 1).Value If test <> "" Then compteur = compteur + 1 Worksheets("Feuil2").cells(compteur, 1).Value = test End If Next i End Sub

---

si tu veux copier toute la ligne sur le test de la premiere colonne tu remplaces

Code:

---

Worksheets("Feuil2").cells(compteur, 1).Value = test

---

par

Code:

---

Worksheets("Feuil2").Rows(compteur).Value = Worksheets("Feuil1").Rows(i).Value

---

voili

et pour selectionner seulement une plage de cellule et pas toutes la ligne comment faire ???

je vais dejà essayé cette dernière version merci,

a+

j'ai une erreur au nivo de la compilation du programme,

sur la ligne worksheets("feuil2").cells(compteur, 1). value = test

cela m'affiche le message suivant

Erreur de compilation :

Attendu : séparateur de liste ou )

que dois je faire....???

merci

ca c autre chose faut que t'aprenne a te servir des objet range (cf faq et tutoriel)
tu peux aussi faire des boucles sur toutes tes cellules en faisant varier lindice de colonne
tu peux aussi écrire toutes les copies si ta pas trop de cellules
du style:

Code:

---

1 2 3

Worksheets("Feuil2").cells(compteur, 1).Value = Worksheets("Feuil1").cells(i, 1).Value Worksheets("Feuil2").cells(compteur, 2).Value = Worksheets("Feuil1").cells(i, 2).Value

---

enfin bon la c plus trop dur tu devrais ten sortir;)

donne ton code pour voir pasque chez moi ca marche tres bien

bonjour,

Mon code est le suivant :

Code:

---

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

Sub remplissage() Dim i As Integer Dim Compteur As Integer Dim test As variant test ="" compteur = 0 For i = 6 to 300 test = worksheets("bilan entrees par mois").Cells(i, 1).Value If test <> "" Then compteur =compteur + 1 Worsheets ("recap des entree par mois).cells(compteur,1).Value= test 'l'erreur se produit ici End If Next i End sub

---

merci,

bonjour
il ya un erreur de syntaxe ta oublié un ":

Code:

---

Worsheets ("recap des entree par mois").cells(compteur,1).Value= test

---

:king:

le truc tout con....
je l'ai lu et relu lu sans le voir

on a tjs besoin d'un avis extérieur

je vais regarder si ça marche

merci

Citation:

---

Worsheets ("recap des entree par mois).cells(compteur,1).Value= test

---

J'espère que le k manquant est une erreur de recopie...

Merci pour l'aide, cela mache très bien...

merci pour tout encore une fois c super sympa

ps : le k manquant était bien une erreur de recopie....