Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Selection d'une Plage variable en VBA

Selection d'une Plage variable en VBA

3 réponses
Avatar
Golem13
Bonsoir .

Je selectionne une plage qui commence en C2 et qui finie sur N , ce N etant
variant .

Je passe par ce petit code la :

---------------------------------------------------------------

fin = Worksheets(1).Range("N65536").End(xlUp).Row

Tabl = Worksheets(1).Range("C2" & ":N" & fin).Value

--------------------------------------------------------------

Cela marche , mais est'il possible de faire cela sur une seule ligne ?


Merci

Golem13
Signaler un problème avec ce contenu

3 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
MichDenis
Bonjour Golem13,


Tu as trouvé toi-même la réponse :

'--------------------
fin = Worksheets(1).Range("N65536").End(xlUp).Row

Tabl = Worksheets(1).Range("C2" & ":N" & fin).Value
'--------------------

Tu remplaces par :

With Worksheets(1)
Tabl = .Range("C2:N" & ":N" & .Range("N65536").End(xlUp).Row).Value
End With


Salutations!


"Golem13" a écrit dans le message de news: 42179459$0$825$
Bonsoir .

Je selectionne une plage qui commence en C2 et qui finie sur N , ce N etant
variant .

Je passe par ce petit code la :

---------------------------------------------------------------

fin = Worksheets(1).Range("N65536").End(xlUp).Row

Tabl = Worksheets(1).Range("C2" & ":N" & fin).Value

--------------------------------------------------------------

Cela marche , mais est'il possible de faire cela sur une seule ligne ?


Merci

Golem13
Avatar
MichDenis
Erreur lors du copier-coller :

With Worksheets(1)
Tabl = .Range("C2:N" & .Range("N65536").End(xlUp).Row).Value
End With


Salutations!


"MichDenis" a écrit dans le message de news:
Bonjour Golem13,


Tu as trouvé toi-même la réponse :

'--------------------
fin = Worksheets(1).Range("N65536").End(xlUp).Row

Tabl = Worksheets(1).Range("C2" & ":N" & fin).Value
'--------------------

Tu remplaces par :

With Worksheets(1)
Tabl = .Range("C2:N" & ":N" & .Range("N65536").End(xlUp).Row).Value
End With


Salutations!


"Golem13" a écrit dans le message de news: 42179459$0$825$
Bonsoir .

Je selectionne une plage qui commence en C2 et qui finie sur N , ce N etant
variant .

Je passe par ce petit code la :

---------------------------------------------------------------

fin = Worksheets(1).Range("N65536").End(xlUp).Row

Tabl = Worksheets(1).Range("C2" & ":N" & fin).Value

--------------------------------------------------------------

Cela marche , mais est'il possible de faire cela sur une seule ligne ?


Merci

Golem13
Avatar
Golem13
Bonjour .


Merci beaucoup.


@+




"MichDenis" a écrit dans le message de
news:e$
Erreur lors du copier-coller :

With Worksheets(1)
Tabl = .Range("C2:N" & .Range("N65536").End(xlUp).Row).Value
End With


Salutations!


"MichDenis" a écrit dans le message de news:


Bonjour Golem13,


Tu as trouvé toi-même la réponse :

'--------------------
fin = Worksheets(1).Range("N65536").End(xlUp).Row

Tabl = Worksheets(1).Range("C2" & ":N" & fin).Value
'--------------------

Tu remplaces par :

With Worksheets(1)
Tabl = .Range("C2:N" & ":N" & .Range("N65536").End(xlUp).Row).Value
End With


Salutations!


"Golem13" a écrit dans le message de news:
42179459$0$825$

Bonsoir .

Je selectionne une plage qui commence en C2 et qui finie sur N , ce N
etant

variant .

Je passe par ce petit code la :

---------------------------------------------------------------

fin = Worksheets(1).Range("N65536").End(xlUp).Row

Tabl = Worksheets(1).Range("C2" & ":N" & fin).Value

--------------------------------------------------------------

Cela marche , mais est'il possible de faire cela sur une seule ligne ?


Merci

Golem13