VBA - Selections lignes tableau sous Excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBA - Selections lignes tableau sous Excel

fidoboulette

Bonjour,

J'ai fait une recherche sur le forum et je n'ai rien trouvé qui corresponde à mon problème alors voilà:
J'ai réalisé sous VBA un programme me créant un tableau Excel. Dans la suite de mon programme, je souhaiterai sélectionner toutes les lignes de ce tableau pour pouvoir, entre autre, trier les données à partir de la première colonne. Il est possible que certaines lignes soient vides sauf la première colonnes, du coup la "fonction" curent region ne fonctionne pas. Le nombre de ligne peux être variable mais pas le nombre de colonne.... ça ressemble à quelque chose de ce genre:

...
5 2 1 14 25
4
3 1 2 30 12
2
1 9 4 15 78

Merci d'avance de votre aide car là je ne vois vraiment pas comment démarrer la macro.

Publicité

mmarle

Bonjour,

Voici un petit bout de code qui devrait répondre au problème.

Code :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'*************************'
'* Sélection de ligne(s) *'
'*************************'
'Déclaration variable(s)'
Dim DEB As Integer
Dim FIN As Integer
'Attribution des valeurs'
DEB = 1
FIN = Range("A65536" ).End(xlUp).Row
'Sélection'
Range("A" & DEB, "A" & FIN).EntireRow.Select
End Sub

Il ne reste plus qu'a ajouter la commande "Sort" pour trier les lignes.

@bientôt

Message cité 1 fois

fidoboulette

Ouaouh!!! quelle rapidité!! je m'empresse de tester ceci et te tiens au courant... quoiqu'il en soit, merci!!!!

EDIT: Et bien avec une petite adaptation à mon besoin, cela à parfaitement fonctionné... encore merci.
Par contre, histoire d'améliorer ma compréhension, que veulent dire en "bon français" les lignes de programme?

Message édité par fidoboulette le 25-02-2011 à 13:39:08

fidoboulette

mmarle a écrit :

Bonjour,

Voici un petit bout de code qui devrait répondre au problème.

Code :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'*************************'
'* Sélection de ligne(s) *'
'*************************'
'Déclaration variable(s)'
Dim DEB As Integer
Dim FIN As Integer
'Attribution des valeurs'
DEB = 1
FIN = Range("A65536" ).End(xlUp).Row
'Sélection'
Range("A" & DEB, "A" & FIN).EntireRow.Select
End Sub

Il ne reste plus qu'a ajouter la commande "Sort" pour trier les lignes.

@bientôt

Bonjour, bonjour,

bon ben finalement, je reviens vers vous car je ne m'en sort pas finalement avec le tri....
Alors voila le code que j'ai ecrit à partir de la réponse de mmarle:

Code :

Sub Reinit_R14()
'
Sheets("R14" ).Select
Dim DEB As Integer
Dim FIN As Integer
DEB = 9
FIN = Range("A65536" ).End(xlUp).Row
Range("A" & DEB, "H" & FIN).Select
ActiveWorkbook.Worksheets("R14" ).Sort.SortFields.Clear
ActiveWorkbook.Worksheets("R14" ).Sort.SortFields.Add Key:=Range("A9" ), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
End Sub

Sur la ligne Range, si j'ai bien compris, on peut dire à la macro où se trouvent les données: ici entre les colonnes A et H.... jusqu'ici, tout fonctionne bien, j'ai bien tout mon tableau qui est sélectionné au lancement de la macro....

Après, à partir de l'enregistreur de macro, j'ai lancé un tri et recopié le code.... mais là, rien ne se fait... ce que je voudrai, c'est que le tri soit croissant à partir de la colonne A.... je suppose que c'est pas très dur à corriger mais je ne vois pas où est le problème...
D'ailleurs, si quelqu'un pouvait m'expliquer la signification de la ligne 9: "ActiveWorkbook.Worksheets("R14" ).Sort.SortFields.Clear" ce serait très gentil.
merci de votre aide.

EDIT: Bon ben je viens de résoudre mon pb en rajoutant les lignes suivantes (merci l'enregistreur ):

Code :

With ActiveWorkbook.Worksheets("R14" ).Sort
.SetRange Range("A" & DEB, "H" & FIN)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Je ne sais pas si la ligne setRange est orthodoxe mais ça fonctionne bien.... peut être avez vous plus simple?

Message édité par fidoboulette le 06-03-2011 à 15:22:16

mmarle

Salut fidoboulette,

Ce code fonctionne bien.

Code :

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'*************************'
'* Sélection de ligne(s) *'
'*************************'
'Déclaration variable(s)'
Dim DEB As Integer
Dim FIN As Integer
'Attribution des valeurs'
DEB = 1
FIN = Range("A65536" ).End(xlUp).Row
'Sélection'
Range("A" & DEB, "A" & FIN).EntireRow.Select
'Tri automatique des lignes'
With Selection
.Sort Key1:=Range("A" & DEB), order1:=xlAscending, header:=xlGuess, Orientation:=xlTopToBottom
End With
End Sub

Message cité 1 fois

fidoboulette

mmarle a écrit :

Salut fidoboulette,

Ce code fonctionne bien.

Code :

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'*************************'
'* Sélection de ligne(s) *'
'*************************'
'Déclaration variable(s)'
Dim DEB As Integer
Dim FIN As Integer
'Attribution des valeurs'
DEB = 1
FIN = Range("A65536" ).End(xlUp).Row
'Sélection'
Range("A" & DEB, "A" & FIN).EntireRow.Select
'Tri automatique des lignes'
With Selection
.Sort Key1:=Range("A" & DEB), order1:=xlAscending, header:=xlGuess, Orientation:=xlTopToBottom
End With
End Sub

Je confirme.... merci

fidoboulette

Bonjour à tous et surtout à mmarle qui est mon sauveur....
j'ai encore deux problème et une fois résolus, je viendrai à bout de mon "projet".
alors voila:
une fois que j'ai fait mes petites manip avec mon tableau... je souhaite dans un premier temps enregistrer mon fichier puis effacer toutes mes données (du tableau sus cité) et toutes les feuilles sauf trois qui sont identifiées... une sorte de réinitialisation en somme.
Une fois fait, je veux ré-enregistrer le tout sous un nom que j'appellerai "modèle".

En faisant une recherche sur google, j'ai trouvé des bout de lignes qui colleraient... presque!
Le nom du premier enregistrement se ferait en fonction de la valeurs de certaines cellules d'une feuille... mais surtout, je voudrais que l'enregistrement se fasse dans le dossier où il a été ouvert.
voici le bout de code d'enregistrement:

Code :

Sheets("PVD" ).Select
Dim Chemin
Chemin = "C:\Users\Pierre\Documents\Mes documents\ONF\Fond de coupe\"
Dim MonFichier
MonFichier = Chemin & Range("K7" ).Value & " _ VB FDC _ P" & Range("E26" ).Value2 & ".xls"
ActiveWorkbook.SaveAs Filename:=MonFichier, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

le problème c'est que là je lui indique un chemin et je ne vois pas comment triturer le code pour que ça s'enregistre dans un répertoire "relatif" (je sais pas si je suis clair.... :whistle: )

Mon deuxième problème est que un peu plus loin, je voudrait effacer toutes les feuilles du classeurs sauf trois feuilles qui portent tjrs le même nom.
Pareil, après une recherche google, j'ai trouvé un bout de code qui théoriquement devrait le faire:

Code :

Dim Feuille As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
For Each Feuille In Worksheets
If (Feuille.Name <> "PVD,R14,bases de référence" ) Then
Feuille.Delete
End If
Next

or dans ce cas, il m'éfface tout sauf la dernière feuille nommée "bases de référence"...
voilà, vu que je ne comprend pas grand chose à ce que je fais, peut être que c'est trois fois rien à modifier mais je n'y arrive pas...
merci de votre aide.

Message édité par fidoboulette le 09-03-2011 à 17:33:44

mmarle

Salut fidoboulette,

A - Pour le chemin relatif, si j'ai bien compris, ce serait le chemin par défaut où se trouve le classeur ouvert.

Code :

Chemin = ActiveWorkbook.Path & Application.PathSeparator

où

Code :

Activeworkbook.path

est le chemin du classeur ouvert

et

Code :

Application.PathSeparator

est un "\".

B - Pour la suppression de feuille(s) (Réinitialisation)

Cas où les feuilles à garder sont au début:

Code :

'****************************'
'* Suppression des Feuilles *'
'****************************'
'Déclaration variable(s)'
Dim Feuille As Byte
Dim DEB As Byte
Dim FIN As Byte
'Attribution valeur'
DEB = 4
FIN = Sheets.Count
'Procédure'
For Feuille = FIN To DEB Step -1
Sheets(Feuille).Delete
Next Feuille

Cas où les feuilles à garder sont à la fin:

Code :

'****************************'
'* Suppression des Feuilles *'
'****************************'
'Déclaration variable(s)'
Dim Feuille As Byte
Dim DEB As Byte
Dim FIN As Byte
'Attribution valeur'
DEB = 1
FIN = Sheets.Count - 3
'Procédure'
For Feuille = DEB To FIN
Sheets(Feuille).Delete
Next Feuille

Il ne reste plus qu'a adapter le code.

@+

Message cité 1 fois
Message édité par mmarle le 10-03-2011 à 07:54:03

fidoboulette

mmarle a écrit :

Salut fidoboulette,

A - Pour le chemin relatif, si j'ai bien compris, ce serait le chemin par défaut où se trouve le classeur ouvert.

B -
'Cas où les feuilles à garder sont à la fin'

'Déclaration variable(s)'
Dim Feuille As Byte
Dim DEB As Byte
Dim FIN As Byte

'Attribution valeur'
DEB = 1
FIN = Sheets.Count - 3

'Procédure'
For Feuille = DEB To FIN
Sheets(Feuille).Delete
Next Feuille[/cpp]Il ne reste plus qu'a adapter le code.

@+

Génial ... merci Mais lorsque je lance ma macro, j'ai le message d'erreur "déclaration existante dans portée en cours"...
effectivement, j'utilise déjà la fonction Dim DEB et Dim FIN au début pour sélectionner automatiquement mon tableau.... comment pallier à ce problème?

Pour le pt A - tu as tout à fait compris... le fichier excel doit pouvoir être transporté d'une clé USB à une autre, ou sur un PC.... donc l'enregistrement doit se faire dans le répertoire où le fichier est ouvert.

Merci à toi.

mmarle

Salut fidoboulette,

Le message d'erreur survient dès lors qu'une variable est déclarée plus d'une fois sous le même nom.

Code :

Sub MaProcédure()
Dim DEB As integer
...
...
...
Dim DEB as integer
...
...
...
End Sub

Une erreur est générée! Il suffit donc de supprimer une des deux déclarations où bien de déclarer sous un autre nom (Exemple: DEBTab pour le tableau et DEBFeu pour les feuilles)
@+

Message cité 1 fois

Publicité

fidoboulette

mmarle a écrit :

Salut fidoboulette,

Le message d'erreur survient dès lors qu'une variable est déclarée plus d'une fois sous le même nom.

Code :

Sub MaProcédure()
Dim DEB As integer
...
...
...
Dim DEB as integer
...
...
...
End Sub

Une erreur est générée! Il suffit donc de supprimer une des deux déclarations où bien de déclarer sous un autre nom (Exemple: DEBTab pour le tableau et DEBFeu pour les feuilles)
@+

Bonjour mmarle (et les autres aussi...),
bon j'ai encore un problème... et un message d'erreur: "Erreur execut '9': L'indice n'appartient pas à la sélection" ... lorsque je lance le débogage, j'ai la ligne "Sheet(Feuille).Delete" qui est surlignée en jaune..
je me suis dit que ce n'était pas "Feuille" qu'il fallait mettre entre les parenthèses mais le nom du dernier onglet (pour moi, il s'appelle "Base de référence).... mais apparemment ce n'est pas ça.....

Donc dans mon effacement d'onglet, je voudrai garder les 3 derniers et effacer tous ceux avant.... j'ai donc repris ton code comme ceci en modifiant le nom:

Code :

'****************************'
'* Suppression des Feuilles *'
'****************************'
'Cas où les feuilles à garder sont à la fin'
'Déclaration variable(s)'
Dim Feuille As Byte
Dim DEBFeu As Byte
Dim FINFeu As Byte
'Attribution valeur'
DEBFeu = 1
FINFeu = Sheets.Count - 3
'Procédure'
For Feuille = DEBFeu To FINFeu
Sheets("bases de référence" ).Delete
Next Feuille

Je suppose que c'est une erreur bête mais vu que je ne suis qu'une bille en macro....
merci encore à toi

mmarle

Salut fidoboulette,

Je ne comprend pas, je viens de vérifier le code et tout fonctionne!

Peut-être pourrais-tu publier le code complet de ton application, avec une description précise de toutes les tâches que tu souhaites réaliser en fonction des conditions requises (Exemples:Nbre de feuilles par défaut, leurs noms, etc...).

@+

Message cité 1 fois

fidoboulette

mmarle a écrit :

Salut,
en fait, j'ai trouvé la réponse en demandant à des spécialistes informatiques de ma boite....
voici le code qu'ils m'ont proposé et qui fonctionne très bien pour mon cas:

Code :

'* Suppression des Feuilles *'
Dim ws As Worksheet
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each ws In Worksheets
If ws.Name <> "PVD" And ws.Name <> "R14" And ws.Name <> "bases de référence" Then
ws.Delete
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True

mon problème est résolu... :bounce:
et mon fichier est quasiment terminé...
Je viens juste de découvrir un nouveau souci avec une impression automatique mais j'en ferai part au forum (et à toi puisque tu es le seul à avoir proposé des soluces.... ) si je ne trouve pas.
en tout cas, merci bcps de t'être décarcassé
A+

mmarle

Oui trés bonne solution que de parcourir la collection Worksheets!

@bientôt

Message cité 1 fois

fidoboulette

mmarle a écrit :

Oui trés bonne solution que de parcourir la collection Worksheets!

@bientôt

Ah?? c'est ce que j'ai fais???
Non vraiment, j'y comprend pas grand chose aux macros... mais cette année j'aurai des formations donc j'espère que ça m'éclairera un peu... c'est vraiment chiant de faire des trux que je ne comprend aps complètement..... :fou:
merci encore à toi

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VBA - Selections lignes tableau sous Excel

Sujets relatifs
Supprimer des lignes	copier lignes excel et coller dans corps de mail outlook (VBA)
[VBA Excel] Keycode -> ? [Résolu]	Excel ?
Sauts de lignes Textarea (nl2br fonctionne pas)	afficher un fichier texte dans un tableau avec android
[VBA] Dernière ligne vide dans un fichier excel vide
Plus de sujets relatifs à : VBA - Selections lignes tableau sous Excel

Page générée en 0.066 secondes