Tableau excel

Fermé

sneik - 16 avril 2010 à 09:51
sneik - 16 avril 2010 à 10:40

Bonjour,

j'aurai voulu savoir, comment fait-on dans un tableau excel pour que les lignes remontent automatiquement ( pour pas qu'il y ait de ligne vide).

En faite, jai un tableau avec beaucoup de lignes (environ 100), ce sont des commandes, et lorsque la commande est livré jai crée une macro qui déplace la ligne dans un autre tableau de commandes livrées. donc elle est supprimé de mon tableau de commandes en cours. mais toutes les lignes transferer reste vides apres ... je voudrai que les lignes remontent pour ne créer qu'un bloc.

je sais pas si jai été clair, mais je vous serait tres reconnaissant de m'aider ...

Cordialement,

A voir également:

Tableau excel
Tableau croisé dynamique - Guide
Trier tableau excel - Guide
Tableau ascii - Guide
Tableau word - Guide
Liste déroulante excel - Guide

1 réponse

Réponse 1 / 1

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
16 avril 2010 à 09:55

Bonjour,
Pourriez vous nous communiquer le code de cette macro que vous utilisez?

sneik
16 avril 2010 à 10:04

oui pas de soucis ...

Sub tranpose_dans_tableau()

Dim ligne_active_base As Double

'Test pour déterminer la ligne où coller les infos dans le tableau'
Sheets("réception_fiche_bleu").Activate
'Mémorise le n° de la ligne où coller les données'
If Range("B9").Value = "" Then
ligne_active_base = Range("B9").Row
Else
ligne_active_base = Range("B9").End(xlDown).Row + 1
End If
'Atteindre le formulaire et mémoriser les données'
Sheets("déclaration_fiche_bleu").Range("C8:L21").Copy
Range("B" & ligne_active_base).PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
'Collage avec transposition'
Application.CutCopyMode = False
'Rendre le formulaire vierge'
Sheets("déclaration_fiche_bleu").Activate
Sheets("déclaration_fiche_bleu").Range("C8:L21").ClearContents
Sheets("déclaration_fiche_bleu").Range("C8").Select
'Retourner sur la base de données'
Sheets("réception_fiche_bleu").Activate

End Sub

voila, merci d'avance

sneik
16 avril 2010 à 10:06

ah non mince c pas exactement celle la ...
celle la c avec transposition...
moi jle fai sans transposition... mais le principe reste le meme...
fo ke jrajoute une condition ki dit que si ya aucune données, ba kil remonte les lignes, ou un truc comme ca

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
16 avril 2010 à 10:28

bon si le principe est le même, je suppose que dans ton autre code tu effaces les données de la ligne transférées à un moment. Le code doit être quelque chose comme :
ma_ligne_transférée.Clearcontents
Il faudrait (mais attention je préfèrerais voir le code d'abord!!!) remplacer

.clearcontents

par

.EntireRow.Delete

!!! Delete est irréversible !!! Faites un fichier test au préalable...

sneik
16 avril 2010 à 10:40

merci pijaku, je vais essayer et je t'en dirai des nouvelles ... :)