plage lignes et colonnes

Le
j
Bonjour,

J'utilise cette ligne de code pour selection mes lignes en fonction du
nombre :

Range("A2:BQ" & Range("F65536").End(xlUp).Row).Select

Je souhaiterai également le faire pour les colonnes et ne pas mettre BQ
comme dans le cas ci-dessus

J'essaye avec ce bout de code mais je n'arrive pas a l'intégrer dans ma
premiere ligne de code.

'Dim Maplage As Variant
'Set Maplage = Range([A1], Cells(1, "IV").End(xlToLeft))
'Maplage.Select

Si il y a qq qui peut me donner un coup de main
Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #19692431
Bonjour.

Range([A2], Cells([F65536].End(xlUp).Row, _
[IV1].End(xlToLeft).Column)).Select

Cordialement.
Daniel

Bonjour,

J'utilise cette ligne de code pour selection mes lignes en fonction du nombre
:

Range("A2:BQ" & Range("F65536").End(xlUp).Row).Select

Je souhaiterai également le faire pour les colonnes et ne pas mettre BQ comme
dans le cas ci-dessus

J'essaye avec ce bout de code mais je n'arrive pas a l'intégrer dans ma
premiere ligne de code.

'Dim Maplage As Variant
'Set Maplage = Range([A1], Cells(1, "IV").End(xlToLeft))
'Maplage.Select

Si il y a qq qui peut me donner un coup de main
Merci


LSteph
Le #19692501
Bonjour,
outre la quesrtion , déjà traitée par Daniel

Select est dans 99% des cas inutile!

Exemple

[a1].select
[selection].copy

s'écrit

[a1].copy


'lSteph

a écrit :
Bonjour,

J'utilise cette ligne de code pour selection mes lignes en fonction du
nombre :

Range("A2:BQ" & Range("F65536").End(xlUp).Row).Select

Je souhaiterai également le faire pour les colonnes et ne pas mettre BQ
comme dans le cas ci-dessus

J'essaye avec ce bout de code mais je n'arrive pas a l'intégrer dans ma
premiere ligne de code.

'Dim Maplage As Variant
'Set Maplage = Range([A1], Cells(1, "IV").End(xlToLeft))
'Maplage.Select

Si il y a qq qui peut me donner un coup de main
Merci




LSteph
Le #19692621
...

Dim maplage as range

Set maplage=Range("a1",cells([f65536].end(xlup).row, _
[iv1].End(xlToLeft).column))



a écrit :
Bonjour,

J'utilise cette ligne de code pour selection mes lignes en fonction du
nombre :

Range("A2:BQ" & Range("F65536").End(xlUp).Row).Select

Je souhaiterai également le faire pour les colonnes et ne pas mettre BQ
comme dans le cas ci-dessus

J'essaye avec ce bout de code mais je n'arrive pas a l'intégrer dans ma
premiere ligne de code.

'Dim Maplage As Variant
'Set Maplage = Range([A1], Cells(1, "IV").End(xlToLeft))
'Maplage.Select

Si il y a qq qui peut me donner un coup de main
Merci




j
Le #19692611
Merci bien, mais ça ne marche pas !!!
Je recupere que la colonne F du 1er fichier et j'importe cette colonne qu'en
B

Voici la macro entiere avec l'ancienne ligne de code

Merci


Sub Import_Query()


nf = Application.GetOpenFilename("Fichiers Xls,*.xls") ' selection du
fichier xls

If Not nf = False Then ' si aucune selection pour eviter d'avoir un
blocage de la macro

Workbooks.Open Filename:=nf ' ouverture du fichier selectionne
Sheets("Table").Select
Range([F16], Cells([F65536].End(xlUp).Row,
[IV1].End(xlToLeft).Column)).Select

'Range("F16:BV" & Range("F65536").End(xlUp).Row).Select '
selectionne en fonction du nombre de lignes
Selection.Copy

Workbooks("SU49-JB1.xls").Activate ' selection fichier de traitement
Sheets("Table").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse

Application.CutCopyMode = False ' evite d'avoir le presse papier

Workbooks(Dir(nf)).Close saveChanges:úlse 'fermeture sans modif du
fichier initial

End If

End Sub


"Daniel.C" Oe2QOOI$
Bonjour.

Range([A2], Cells([F65536].End(xlUp).Row, _
[IV1].End(xlToLeft).Column)).Select

Cordialement.
Daniel

Bonjour,

J'utilise cette ligne de code pour selection mes lignes en fonction du
nombre :

Range("A2:BQ" & Range("F65536").End(xlUp).Row).Select

Je souhaiterai également le faire pour les colonnes et ne pas mettre BQ
comme dans le cas ci-dessus

J'essaye avec ce bout de code mais je n'arrive pas a l'intégrer dans ma
premiere ligne de code.

'Dim Maplage As Variant
'Set Maplage = Range([A1], Cells(1, "IV").End(xlToLeft))
'Maplage.Select

Si il y a qq qui peut me donner un coup de main
Merci






Hervé
Le #19692921
Bonjour,

Sub Plage()

Dim Fe As Worksheet
Dim MaPlage As Range

Set Fe = ActiveSheet

With Fe
Set MaPlage = .Range(.Cells(2, 1), .Cells( _
.Cells.Find("*", .[A1], -4123, , 1, 2).Row, _
.Cells.Find("*", .[A1], -4123, , 2, 2).Column))
End With

MsgBox MaPlage.Address

Set MaPlage = Nothing
Set Fe = Nothing

End Sub



Hervé.


"" news:4a4f11a4$0$1526$
Bonjour,

J'utilise cette ligne de code pour selection mes lignes en fonction du
nombre :

Range("A2:BQ" & Range("F65536").End(xlUp).Row).Select

Je souhaiterai également le faire pour les colonnes et ne pas mettre BQ
comme dans le cas ci-dessus

J'essaye avec ce bout de code mais je n'arrive pas a l'intégrer dans ma
premiere ligne de code.

'Dim Maplage As Variant
'Set Maplage = Range([A1], Cells(1, "IV").End(xlToLeft))
'Maplage.Select

Si il y a qq qui peut me donner un coup de main
Merci




Daniel.C
Le #19692911
J'ai déduit de ce que tu avais écrit :
"Set Maplage = Range([A1], Cells(1, "IV").End(xlToLeft))"
que tu avais des données en ligne 1. Sinon, il faut remplacer le "1" de
IV1 dans :

Range([A2], Cells([F65536].End(xlUp).Row, _
[IV1].End(xlToLeft).Column)).Select

par une ligne pertinente dans ton contexte.
Note que, au vu de ton code, je partage entière le spoint de vue de
LSteph en ce qui concerne les "Select".
Daniel

Merci bien, mais ça ne marche pas !!!
Je recupere que la colonne F du 1er fichier et j'importe cette colonne qu'en
B

Voici la macro entiere avec l'ancienne ligne de code

Merci


Sub Import_Query()


nf = Application.GetOpenFilename("Fichiers Xls,*.xls") ' selection du
fichier xls

If Not nf = False Then ' si aucune selection pour eviter d'avoir un
blocage de la macro

Workbooks.Open Filename:=nf ' ouverture du fichier selectionne
Sheets("Table").Select
Range([F16], Cells([F65536].End(xlUp).Row,
[IV1].End(xlToLeft).Column)).Select

'Range("F16:BV" & Range("F65536").End(xlUp).Row).Select ' selectionne
en fonction du nombre de lignes
Selection.Copy

Workbooks("SU49-JB1.xls").Activate ' selection fichier de traitement
Sheets("Table").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse

Application.CutCopyMode = False ' evite d'avoir le presse papier

Workbooks(Dir(nf)).Close saveChanges:úlse 'fermeture sans modif du
fichier initial

End If

End Sub


"Daniel.C" Oe2QOOI$
Bonjour.

Range([A2], Cells([F65536].End(xlUp).Row, _
[IV1].End(xlToLeft).Column)).Select

Cordialement.
Daniel

Bonjour,

J'utilise cette ligne de code pour selection mes lignes en fonction du
nombre :

Range("A2:BQ" & Range("F65536").End(xlUp).Row).Select

Je souhaiterai également le faire pour les colonnes et ne pas mettre BQ
comme dans le cas ci-dessus

J'essaye avec ce bout de code mais je n'arrive pas a l'intégrer dans ma
premiere ligne de code.

'Dim Maplage As Variant
'Set Maplage = Range([A1], Cells(1, "IV").End(xlToLeft))
'Maplage.Select

Si il y a qq qui peut me donner un coup de main
Merci








j
Le #19693281
Mais merci beaucoup, c'est déjà super pour moi
j'ai fini par comprendre, ça marche maintenant
en réalité c'était 69 qu'il fallait mettre et qui correspond a au nombre de
colonne a conserver sur la gauche

Bonne journée



"Daniel.C" O7yTE6I$

J'ai déduit de ce que tu avais écrit :
"Set Maplage = Range([A1], Cells(1, "IV").End(xlToLeft))"
que tu avais des données en ligne 1. Sinon, il faut remplacer le "1" de
IV1 dans :

Range([A2], Cells([F65536].End(xlUp).Row, _
[IV1].End(xlToLeft).Column)).Select

par une ligne pertinente dans ton contexte.
Note que, au vu de ton code, je partage entière le spoint de vue de LSteph
en ce qui concerne les "Select".
Daniel

Merci bien, mais ça ne marche pas !!!
Je recupere que la colonne F du 1er fichier et j'importe cette colonne
qu'en B

Voici la macro entiere avec l'ancienne ligne de code

Merci


Sub Import_Query()


nf = Application.GetOpenFilename("Fichiers Xls,*.xls") ' selection du
fichier xls

If Not nf = False Then ' si aucune selection pour eviter d'avoir un
blocage de la macro

Workbooks.Open Filename:=nf ' ouverture du fichier selectionne
Sheets("Table").Select
Range([F16], Cells([F65536].End(xlUp).Row,
[IV1].End(xlToLeft).Column)).Select

'Range("F16:BV" & Range("F65536").End(xlUp).Row).Select '
selectionne en fonction du nombre de lignes
Selection.Copy

Workbooks("SU49-JB1.xls").Activate ' selection fichier de
traitement
Sheets("Table").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse

Application.CutCopyMode = False ' evite d'avoir le presse papier

Workbooks(Dir(nf)).Close saveChanges:úlse 'fermeture sans modif
du fichier initial

End If

End Sub


"Daniel.C" Oe2QOOI$
Bonjour.

Range([A2], Cells([F65536].End(xlUp).Row, _
[IV1].End(xlToLeft).Column)).Select

Cordialement.
Daniel

Bonjour,

J'utilise cette ligne de code pour selection mes lignes en fonction du
nombre :

Range("A2:BQ" & Range("F65536").End(xlUp).Row).Select

Je souhaiterai également le faire pour les colonnes et ne pas mettre BQ
comme dans le cas ci-dessus

J'essaye avec ce bout de code mais je n'arrive pas a l'intégrer dans ma
premiere ligne de code.

'Dim Maplage As Variant
'Set Maplage = Range([A1], Cells(1, "IV").End(xlToLeft))
'Maplage.Select

Si il y a qq qui peut me donner un coup de main
Merci












Publicité
Poster une réponse
Anonyme