bonjour,

j'ai des tableaux sous cette forme :

et je veux obtenir ceci automatiquement :

c'est à dire : si cA et cB vides déplacer la ligne à la suite de la précédente (plusieurs milliers de lignes)

une formule ou macro, quelque chose de facile à mettre en œuvre car je suis nul.

merci d'avance

Bonjour,

Si tu peux fournir un classeur modèle comme support, ce sera bien...

Cordialement.

Salut Debrief !

C'est bien pour ça qu'une illustration permet de faire le tour des variantes, voir les mises en forme à rétablir, etc.

Et ça permet d'écrire du code en situation...

Bonne journée.

Debrief a écrit :

Slt,

C'est sûr que "si cA et cB vides" s'apparente à est une nouvelle technique de référence aux cellules

Je pense que prosper34 veut dire que si Ax et Bx sont vides, il faut déplacer Cx et Dx en Gx-1 et Hx-1 (sur la base des données affichées)

c'est exactement ça

Questions:

- Combien de lignes consécutives possibles où Ax et Bx sont vides ? 1 seule maximum ? Si plusieurs, où placer Cx et Dx ?
- Que faire si seulement Ax ou Bx est vide ? Ignorer la valeur non vide ? Ça n'arrive jamais ?
- Que faire si A1 et B1 sont vides ? Ça n'arrive jamais ?

Cordialement,
D.

bonjour et merci de ta réponse,

très bien tes questions à choix multiple

Anonyme a écrit :

il faut déplacer Cx et Dx en Gx-1 et Hx-1

Non pas -1 car il y a une suppression de ligne pour chaque report.

merci de ta réponse

la suppression de ligne pourra se faire en tri.

re,

Sinon, une petite macro qui fait tout, facile à programmer possible si tu veux.

Oh ! oui, avec plaisir, merci

merci Debrief,

merci à toi, je me penche sur le truc et te tiens au courant (mon neurone est fatigué et je n'aime pas faire quelque chose que je n'ai pas compris).

Bonsoir,

Ma préférence irait à un travail entièrement sur tableau, sans copie. On compose le tableau souhaité en VBA et on l'affecte à la fin, cela devrait être légèrement plus rapide.

Cordialement.

merci à vous mais ça fonctionne très bien comme ça :

En G1 -> =SI(ET(A2="";B2="";C2<>"");C2;"")
En H1 -> =SI(ET(A2="";B2="";D2<>"");D2;"")

le reste dépasse mon domaine de compétence

@+jp

A quelques milliers de lignes on ne devrait pas saturer... au-delà ? C'est effectivement l'interaction en écriture avec la feuille qui bouffe du temps.

Si tu l'évites, à la fin tu peux effacer en bloc (Clear pour supprimer les mises en forme). Tu réaffectes et tu remets en forme...

Mais bel effort (sans fichier) !

Remarque pour les suppressions de lignes, tu pouvais te contenter de l'effacement d'une cellule (sur la colonne en jaune par exemple) pour faire une suppression globale à la fin avec : colonne.SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Ya un gain, mais moins qu'avec les Array... Expérience faite par Galopin (sur une construction de tableau que j'avais trouvé laborieuse, élément par élément, je pensais être plus rapide avec SpecialCells, et au chronométrage quelques millisecondes dans la vue au profit du tableau...)

A+

plage(dimensionnée).Value = tablo

Bonne journée

ne me viennent pas encore naturellement

Ne me venaient pas naturellement il y a 20 ans...