Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel plage lignes et colonnes

plage lignes et colonnes

7 réponses
Avatar
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
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.C
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


Avatar
LSteph
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




Avatar
LSteph
...

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




Avatar
j
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" a écrit dans le message de news:
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






Avatar
Hervé
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é.


"" a écrit dans le message de
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




Avatar
Daniel.C
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" a écrit dans le message de news:
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








Avatar
j
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" a écrit dans le message de news:
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" a écrit dans le message de news:
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