Sélection en langage VBA
Résolu
megatronnbjja
Messages postés
67
Statut
Membre
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je souhaiterais effectuer la chose suivante en langage VBA:
sélectionner des cellules jusqu'à la derniere ligne de mon tableau.
Problèmes:
-je veux sélectionner des cellules dans les colonnes B, E et G. Les colonnes ne sont donc pas collées les unes aux autres.
-la dernière ligne non vide de mon tableau est variable. Parfois j'ai 20 lignes et parfois 50. j'aimerais que la détection soit automatique.
Je n'ai aucune formation en VBA mais je dois faire ça pour mon entreprise et dois surtout être capable d'expliquer le tout à mon tuteur. Si vous avez des éléments de réponse j'aimerais aussi quelques infos sur les fonctions utilisées.
Merci d'avance pour votre aide.
Megatronnbjja
Je souhaiterais effectuer la chose suivante en langage VBA:
sélectionner des cellules jusqu'à la derniere ligne de mon tableau.
Problèmes:
-je veux sélectionner des cellules dans les colonnes B, E et G. Les colonnes ne sont donc pas collées les unes aux autres.
-la dernière ligne non vide de mon tableau est variable. Parfois j'ai 20 lignes et parfois 50. j'aimerais que la détection soit automatique.
Je n'ai aucune formation en VBA mais je dois faire ça pour mon entreprise et dois surtout être capable d'expliquer le tout à mon tuteur. Si vous avez des éléments de réponse j'aimerais aussi quelques infos sur les fonctions utilisées.
Merci d'avance pour votre aide.
Megatronnbjja
5 réponses
-
Tu veux sélectionner tout ça en VBA ? Pour ça on utiliserait plus du SQL, en tout cas je n'ai aucune idée de comment en langage VBA uniquement on pourrait sélectionner tout cela.
En SQL ça donnerai :" Select B, E, G FROM **Nomdetatable**;" -
Bonjour,
exemple avec enregistreur de macro
Sub Macro1()
'
' Macro1 Macro
' enregistreur de macro: selection plages de cellules
Range("J3:J14,L3:L14,N3:N14").Select
End Sub
votre macro:
Sub test()
'ligne derniere cellule non vide feuille1,colonne B
derlig = Worksheets("feuil1").Range("B" & Rows.Count).End(xlUp).Row
'selection des cellules B1 a Bderlig,D1 a Dderlig,G1 a Gderlig
Worksheets("feuil1").Range("B1:B" & derlig & ",E1:E" & derlig & ",G1:G" & derlig).Select
End Sub
Bonne suite-
Bonjour,
merci pour ta réponse, ça me sort du petrin.
Je me pose toutefois deux questions:
1/ derlig = Worksheets("feuil1").Range("B" & Rows.Count).End(xlUp).Row
pourquoi xlUp alors que l'on souhaite avoir la dernière ligne (j'aurais pensé a xlDown) et à quoi sert le .Row ?
2/ j'avais écrit pour une autre application la ligne suivante:
Range("$A$2", Range("$AC$2").End(xlDown)) avec dernière ligne:10
Ceci me permet bien de sélectionner la plage (A2:AB10) ?
merci d'avance,
Megatronnbjjja -
-
-
-
-
Alors je ne connais pas du tout le SQL. Où suis-je censé écrire ce type de langage?
Merci de ta réponse en tout cas. -
Bonjour,
1/ derlig = Worksheets("feuil1").Range("B" & Rows.Count).End(xlUp).Row
pourquoi xlUp alors que l'on souhaite avoir la dernière ligne (j'aurais pensé a xlDown) et à quoi sert le .Row ?
Ici tu pars de la dernière ligne de la feuille (rows.count=nombre de lignes de la feuille) et tu remontes pour trouver la dernière ligne occupée.
Toi, avec xldown, tu pars de A2 et tu cherches la dernière ligne occupée de la zone en cours.
Si tu as 20 lignes avec la ligne 10 vide tu seras sur la ligne 9. Si tu es sûr qu'il n'y a pas de vides c'est bon.
Avec la 1ère syntaxe tu seras sur la ligne 20, la dernière occupée réelle même s'il y a des vides.
.row te donne le n° de ligne du range.
F1 sur une fonction te donne l'aide excel qui est très bien faite
eric
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.-
-
Bonjour eriic,
Merci pour ta réponse. J'ai bien compris.
J'ai une nouvelle question concernant la sélection de plage de cellules en fonction de la dernière cellule non vide.
Avec le code suivant je demande à excel de trouver la dernière colonne occupée ainsi que la dernière ligne:
Dim derlig As Long Dim dercol As Integer Dim tableau As Range derlig = Range("A" & Rows.Count).End(xlUp).Row dercol = Cells(5, Cells.Columns.Count).End(xlToLeft).Column tableau = Range( tableau.Select
Je ne trouve pas la bonne syntaxe pour le Range de la variable tableau. J'ai essayé pas mal de combinaison entre " , & derlig, dercol mais rien de probant.
Merci encore pour ton aide. -
Set est obligatoire, tableau est un objet (un range), pas une variable.
2 exemples :
Set tableau = Range([A2], Cells(derlig, dercol))
ou
Set tableau = [A2].Resize(derlig - 1, dercol)
Les colonnes ne sont donc pas collées les unes aux autres.
tu peux utiliser l'intersection et l'union de plages :
Set tableau = Intersect(tableau, Union([A:A], [C:F], [H:H]))
eric
PS: un .select est très souvent totalement inutile, et toujours chronophage. -
-
il ne faut pas séparer le nom des cellules par " : " ?
oui si tu connais les cellules.
Ici tu connais 1ère cellule, dernières ligne et colonne. Ca serait plus long à écrire pour obtenir range("A2:C5") mais tu pourrais.
eric
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Ta demande était :
alors si par exemple je veux filtrer la plage (A1:A10) avec comme critère: ne contient ni "a" ni "b" ni "c",
C'est fichier qui correspond à ta demande et qui permet tous les test de tous les cas de figure que je voulais.
Pas un torchon avec une seule cellule de remplie avec "JF" sur A1:A10.
Ca j'arrive à le faire en 0.2s...
Ras le bol des demandeurs qui ne fournissent pas un fichier minimum pour travailler sur leur question.
J'abandonne, la question de départ étant résolue tu peux mettre en résolu.
eric
