VBA Sélections Multiples avec cells

[MJ13]

Bonjour à tous

Je voudrais pouvoir sélectionner 2 colonnes (ou plus) non contigues en VBA mais en utilisant cells.
J'ai ce code qui fonctionne avec les letttres mais je peine pour l'adapter avec des Cells de façon à ne pas m'occuper du nom de la lettre mais avec des coordonnées de type cells(NumLigne, num colonne).

ex:

Range("A1:A18,D1:D18").Select

Merci d'avance.

 

[mromain]

Re : VBA Sélections Multiples avec cells

Bonjour Michel,

C'est un plaisir de pouvoir t'aider (c'est tellement rare 😉).
Ce code est l'équivalent :

Range(Range(Cells(1, 1), Cells(18, 1)).Address & "," & Range(Cells(1, 4), Cells(18, 4)).Address).Select

Il y a peut-être plus simple, mais en tout cas il fonctionne.

a+

 

[Pierrot93]

Re : VBA Sélections Multiples avec cells

Bonjour Michel🙂, Romain🙂

une autre solution :

Union(Cells(1, 1).Resize(18, 1), Cells(1, 4).Resize(18, 1)).Select

bonne journée
@+

 

[david84]

Re : VBA Sélections Multiples avec cells

Bonjour,
je dis peut-être une bêtise mais à tester (si c'est une bêtise, n'hésitez pas à me corriger !):

Union([A1:A18], [D1:D18]).Select

A+

 

[Pierrot93]

Re : VBA Sélections Multiples avec cells

Re, bonjour David🙂

David, ton code fonctionne, mais notre ami Michel veut s'affranchir d'avoir à renseigner les lettres de colonnes... enfin, si j'ai bien compris...
bon après midi
@+

 

[MJ13]

Re : VBA Sélections Multiples avec cells

Bonjour Mickaël (il me semble), Pierrot, David

Merci pour vos solutions.

Il est vrai que j'avais demandé ave cells, sans le nom des lettres.

Mais David, ta formulation est intéressante , Je ne pense jamais à utiliser [] 😉.

Pour Mromain et Pierrot, vos solutions fonctionnent 🙂.

Merci beaucoup à vous trois .

Une dernière question, je ne me rappelle plus pour connaître la lettre du numéro de colonne. Quelqu'un saurait?
Comme cela, on pourra utiliser les 2 méthodes avec les lettres ou les cells .

 

[Pierrot93]

Re : VBA Sélections Multiples avec cells

Re,

pas sûr d'avoir bien compris, pour récupérer la ou les lettres des colonnes à partir de l'adresse d'une cellule :

lc = Split(ActiveCell.Address, "$")(1)

 

[david84]

Re : VBA Sélections Multiples avec cells

Re
Oui Pierrot🙂, tu as raison, j'avais mal lu😱.
C'est intéressant la manière dont tu te sers de Resize...
A+

 

[MJ13]

Re : VBA Sélections Multiples avec cells

Re

Pierrot: Merci pour ton code, mais c'était plus dans l'esprit, je connais le numéro de colonne ex: la 5 et je voudrais trouver la lettre, donc E.

J'avais déjà vu un code de ce genre il y a longtemps 😱.

Ainsi, on peut faire avec les lettres dans la référence de range car on peut trouver la lettre correspondant au numéro de colonne.

Bonne Journée 🙂.

 

[Pierrot93]

Re : VBA Sélections Multiples avec cells

Re,

si tu es sûr de n'avoir qu'une lettre à récupérer :

Dim c As Byte
c = 5
MsgBox Chr(c + 64)

@+

 

[Staple1600]

Re : VBA Sélections Multiples avec cells

Bonjour à tous

MJ13:
Je ne comprends pas ta question
Car que ce soit par chiffre ou lettre
tu as nécessité de renseigner la colonne 😕
Donc si tu connais ta Range, le plus simple est bien

Range("A1:A18,D1:D18")

Sub a()
Dim x As Range, y As Range, z As Range, m$


Set x = Union(Cells(1, [COLOR=Red]1[/COLOR]).Resize(18, [COLOR=Lime]1[/COLOR]), Cells(1, [COLOR=Red]4[/COLOR]).Resize(18, [COLOR=Lime]1[/COLOR]))
Set y = Union(Cells(1, [COLOR=Red]1[/COLOR]).Resize(18), Cells(1, [COLOR=Red]4[/COLOR]).Resize(18))
Set z = Union(Cells(1, "[COLOR=Red]A[/COLOR]").Resize(18), Cells(1, "[COLOR=Red]D[/COLOR]").Resize(18))

m = x.Address & vbLf & z.Address & vbLf & y.Address

MsgBox m
End Sub

Pierrot93:
Pourquoi le 1 dans ton Resize ?

 

[Pierrot93]

Re : VBA Sélections Multiples avec cells

Re,

pour 2 lettres (colonne EF par exemple):

Dim d As Byte
d = ActiveCell.Column
MsgBox IIf(d < 27, Chr(d + 64), Chr(Int(d / 26) + 64) & Chr((d Mod 26) + 64))

@+

 

[MJ13]

Re : VBA Sélections Multiples avec cells

Re , bonjour JM

Pierrot:

Dim c As Byte
c = 5
MsgBox Chr(c + 64)

Oui c'est ce à quoi je pensais. En plus avec ton code avec 2 lettres, je vais tester.

Merci 🙂.

JM:

MJ13:
Je ne comprends pas ta question

En fait c'est que si je connais mes lettres de colonne à traiter, comment connaître la lettre si je veux utiliser A1 ou F1 par exemple.

Si je le demande, c'est que je peux en avoir besoin. En plus cela a déjà étét traité sur XLD. Tu peux faire des recherches 😉.

 

[Efgé]

Re : VBA Sélections Multiples avec cells

Bonjour MJ13 🙂 ,Pierrot 🙂, Staple 🙂, mromain 🙂, david84,
Je sui ce fil depuis un moment et je ne comprend plus la demande 😱.
Sur la base du code de Pierrot, je propose quand même une idée en espérant qu'elle ne sera pas totalement à côté du sujet...

[COLOR=blue]Sub[/COLOR] MJ13()
[COLOR=blue]With[/COLOR] Sheets("Feuil1")
    Col = Split(.Cells(1, 1).Address, "$")(1)
    Col2 = Split(.Cells(1, 4).Address, "$")(1)
    Range(Range(.Cells(1, Col), .Cells(18, Col)).Address & "," & Range(.Cells(1, Col2), .Cells(18, Col2)).Address).Select
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[mromain]

Re : VBA Sélections Multiples avec cells

Bonjour (ou re) à tous,

Bonjour Mickaël (il me semble)

C'est exact 😉

a+