Macro Excel - sélection d'une plage de donnée
Résolu
fabnad
Messages postés
29
Statut
Membre
-
arcrocnoir Messages postés 3 Statut Membre -
arcrocnoir Messages postés 3 Statut Membre -
Bonjour,
je suis débutant en macro excel.
Je me sers de l'enregistreur, mais cela me limite pas mal.
Notemment pour la sélection d'une plage de données
Je m'explique:
Je demande à la macro d'ouvrir le doc1 (fichier excel) dans lequel figurent mes données à copier.
Ces données commencent en cellule A1 pour finir en cellule Gquelquechose....
En résumé je ne sais pas comment dire à la macro de sélectionner juste les lignes/colonnes dans lesquelles se trouvent une donnée....
Un jeux d'enfant pour vous .....
Merci de vos retour.
A+
je suis débutant en macro excel.
Je me sers de l'enregistreur, mais cela me limite pas mal.
Notemment pour la sélection d'une plage de données
Je m'explique:
Je demande à la macro d'ouvrir le doc1 (fichier excel) dans lequel figurent mes données à copier.
Ces données commencent en cellule A1 pour finir en cellule Gquelquechose....
En résumé je ne sais pas comment dire à la macro de sélectionner juste les lignes/colonnes dans lesquelles se trouvent une donnée....
Un jeux d'enfant pour vous .....
Merci de vos retour.
A+
Configuration: Windows 2007 Internet Explorer 6.0
3 réponses
-
Bonjour,
Normalement, si tu avais sélectionner ta plage avec l'éditeur de macro tu a eu tne plage en référence R1C1.
Pour une plage que tu veux inscrire directement
Plage = Range("A1:F25") .. Par exemple.
A+-
Salut Lermite222,
merci de ce retour rapide
Mais je comprends pas quand tu dis "Normalement, si tu avais sélectionner ta plage avec l'éditeur de macro tu a eu tne plage en référence R1C1. "
moi voici ce que j'ai quand je fabrique ma macro et que je sélectionne la plage de données que je souhaite.
Mais cette plage de données sera différente + ou - de lignes selons les mois. (c'est données sont des incidents)
Donc je souhaite sélectionner uniquement les cellules avec données. Si je vois large et que je sélectionne 20000 lignes je vais avoir des cellules. Ces cellules vides généreront une valeur "vide" dans mes tableaux dynamiques croisés.
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 04/03/2009 par EDF-GDF
'
'
Workbooks.Open Filename:= _
"E:\DONNEES\mabillon-fab\MES DOCUMENTS\Classeurtestextraction.xls"
Range("A1:G172").Select
Selection.Copy
Windows("Classeur2.xls").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=-18
End Sub
-
-
bonjour,
la seule méthode sûre est d'employer ces 2 instructions
lig = Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
col = Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Row
lig étant la dernière ligne utilisée (vide ou pas avant)
col, même punition pour les colonnes
la définition de ctte cellule peut être écrit de cette façon:
cellslig,col)
la propriété usedrange souvent citée n'est valable que pour un tableau plein
il y a souvent des problèmes avec cette instruction: Cells.SpecialCells(xlCellTypeLastCell).Row-
Boonjour Michel,
Merci de ton retour rapide.
Cependant je suis débutant et je comprends pas forcément toutes tes infos.
Pourrais tu me dire ce que tes consignes donneraient dans ma macro.
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 04/03/2009 par
'
'
Workbooks.Open Filename:= _
"E:\DONNEES\mabillon-fab\MES DOCUMENTS\Classeurtestextraction.xls"
Range("A1:G172").Select
Selection.Copy
Windows("Classeur2.xls").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=-18
End Sub
-
-
Re,bonjour l'ami lhermite
petite remarque au départ: dans le TCD, il suffit de décocher "vide" pour qu'ils disparaissent du TCD... (double clic sur un des boutons du TCD)
pour revenir à ta macro en considérant un nombre de colonnes fixes, la colonne A étant utilisée...
remplace
Workbooks.Open Filename:= _
"E:\DONNEES\mabillon-fab\MES DOCUMENTS\Classeurtestextraction.xls"
Range("A1:G172").Select
Selection.Copy
par (xl<2007)
Dim derlig As Long
Workbooks.Open Filename:= _
"E:\DONNEES\mabillon-fab\MES DOCUMENTS\Classeurtestextraction.xls"
derlig = Range("A65536").End(xlUp).Row
Range(Cells(1, 1), Cells(derlig, 7)).Copy
pour te tuyauter sur le VBA
www.info-3000.com (c'est un Michel mais pas moi!)
