problème de concaténation

Citation:

---

Envoyé par Krovax

Sans avoir tester

Code:

---

1 2 3 4

dim cel as range for each cel in Range("A1:D20") 'tu met ta zone avec le taleau if isempty(cel) then : cel.Delete shift:=xlUp next cel

---

Pour avoir la zone avec le tableau tu peux chercher la dernière ligne et dernière colonne
Dernière ligne et la dernière colonne renseignées d'une feuille

Edit : je vien de voir la remarque d'aalex c'est vrai qu'il y a un post qui utilisé les specialcell ca doit dater d'un jour ou deux max

---

Je viens d'essayer cette méthode, elle fonctionne trés bien, mais elle est trés trés longue, à cause du nombre vraiment trés important de ligne de donnée (du genre qui s'approche des 2000 voir un petit peu plus ) ^^

Mais c'est pas grave pour le moment sa me convient je verrai plus tard pour peut être faire plus rapide

Cordialement

A mon avis en désactivement le rafraichissement de l'écran ca ira plus vite, tu as même la gestion d'erreur en cadeau pour que l'écran soit de nouveau rafraichi en cas de problème

Code:

---

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

Dim i As Long, j As Long, DerniereLigne As Long Dim valeur As String   On Error GoTo gest Application.ScreenUpdating = False Dim cel As Range For Each cel In Range("A1:D20") 'tu met ta zone avec le tableau If IsEmpty(cel) Then: cel.Delete shift:=xlUp Next cel   gest:: Application.ScreenUpdating = True If Err <> 0 Then MsgBox "Erreur n°: " & Err.Number & Chr(13) & "Description : " & Err.Description End If

---

oui en effet sa va deja bien plus vite ^^
mais je ne sais pas pourquoi, sa ne va pas jusqu'en haut de ma feuille, la remonté des données s'arrête à la 541 ème lignes ...

arf a mon avis ca vien du fait que si tu as par exemple supprimé B8 l'ancien B9 remonte en B8 mais il testera plus B8. Normalement on part par le bas mais avec les for each on ne peu pas trop maitriser (ou du moins je ne sais pas comment faire :roll:)

Si personne ne trouve j'ai une petite idée mais elle est barbare on va espérer que quelqu'un ai quelque chose de plus estétique

Citation:

---

Envoyé par Krovax

j'ai une petite idée mais elle est barbare

---

si barbare que sa ? 8-)

par contre j'ai remarqué quelque chose, c'est que plus j'éxécute le code plus les données remonte vers le heut de ma feuille ...

Oui tellement babare que j'entrais dans une boucle infinie histoire d'être sure de faire pire que les autres :aie:

Sinon une solution pas trop mal mais un peu lente (je n'ai pas testé)

Code:

---

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

Dim i As Long, j As Long, DerniereLigne As Long   On Error GoTo gest Application.ScreenUpdating = False   for i=1 to derniereligne for j = = 1 to dernierecolonne If IsEmpty(cells(i,j)) Then: cells(i,j).Delete shift:=xlUp Next j next i   gest:: Application.ScreenUpdating = True If Err <> 0 Then MsgBox "Erreur n°: " & Err.Number & Chr(13) & "Description : " & Err.Description End If

---

voila je viens d'essayer, et sa ne fonctionne pas, j'ai deboger et il ne rentre pas dans la premiere boucle "For", il va sur la ligne de code et passe directement à "gest::"

de toute facon ca ne pouvais pas fonctionner corectement on aurait eu le même problème

Code:

---

1 2 3 4 5

for i= derniereligne to 1 step -1 for j = =dernierecolonne to 1 step -1 If IsEmpty(cells(i,j)) Then: cells(i,j).Delete shift:=xlUp Next j next i

---

Par contre c'est a toi de donner les valeur de derniereligne et dernierecolonne (ca ta pas parut bizard de mettre i qui va de 1 a quelque chose sans avoir besoin de préciser quel est ce quelque chose? Faut pas prendre les code que tu trouve sur internet pour parole d'évangile, a la rigueur les FAQ et TUTO, les contribution sont pas mal du tout mais le reste faut les relire ;)


regarde ici Pour savoir comment

Merci bien, je vais voir sa de plus prés :ccool:

Cordialement