Tableau excel
sneik
-
sneik -
sneik -
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,
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 word - Guide
- Trier un tableau excel - Guide
- Imprimer un tableau excel - Guide
- Liste déroulante excel - Guide
- Tableau ascii - Guide
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
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
ma_ligne_transférée.Clearcontents
Il faudrait (mais attention je préfèrerais voir le code d'abord!!!) remplacer par
!!! Delete est irréversible !!! Faites un fichier test au préalable...