VBA Sélections Multiples avec cells

MJ13 · 8 Octobre 2010

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:

Code:

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

Merci d'avance.

Pierrot93 · 8 Octobre 2010

Re : VBA Sélections Multiples avec cells

Re,

Aarf, désolé Mickaël🙂 pour le "Romain", me basais bêtement sur le pseudo... je vais tâcher de m'en rappeler... mais c'est pas gagné.... bon après midi
@+

mromain · 8 Octobre 2010

Re : VBA Sélections Multiples avec cells

Ne t'inquiète pas Pierrot 🙂.
Y'a aucun mal

a+

MJ13 · 8 Octobre 2010

Re : VBA Sélections Multiples avec cells

Re, Bonjour efgé

Et oui, Pierrot, je me suis fait déjà fait avoir 😱. C'est pour cela que souvent j'écris, Mromain, de façon que les gens sachent de qui je parle. Car si je mets Mickaël, ils disent "Mais qui c'est ce Mickaël" 😛.

Mromain: Bon je vois que dans ton dernier post 😉, d'ici ce soir tu vas me donner du boulot, à moins que quelqu'un d'autre 🙂.

Efgé: Bon, c'est vrai que j'ai un peu dévié. Mais comme j'ai eu une réponse avec Range de Mickaël, une avec Union de Pierrot et JM, je mes suis dit et pourquoi ne pas exploiter la lettre du range que m'a donné Pierrot dans sa version2 (Faut suivre 😕).

Tu m'as donné une autre piste. Mais la j'avoue que cela devient complexe pour moi (on dirait du JM 😉).

Donc pour l'instant je suis sur le range(...address....address). J'ai à peu près compris et c'est plus dans ma logique 😕.

Mais bon l'intérêt de notre discussion c'est que je peux la retrouver facilement, vu que c'est moi qui ai posé la question 😉.

Merci encore à tous 🙂.

Pierrot93 · 8 Octobre 2010

Re : VBA Sélections Multiples avec cells

Re,

Aarf, le code que j'avais proposé ci-dessous, renvoie un mauvais résultat sur colonne AZ par exemple....

Pierrot93 à dit:
Re,

pour 2 lettres (colonne EF par exemple):

Code:

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 · 8 Octobre 2010

Re : VBA Sélections Multiples avec cells

Re Pierrot

Quoi, tu m'as enduit en horreur. Mais tu es nul 😛.

Non, je plaisante 😉.

Sinon j'ai trouvé cette discussion (recherche avancée, Colonne dans le titre avec MJ13, je savais, qu'on en avais déjà parlé, par contre je n'ai jamais vérifé à fond 🙂)

https://www.excel-downloads.com/threads/lettre-dune-colonne.89519/

Bonne soirée 🙂.

pierrejean · 8 Octobre 2010

Re : VBA Sélections Multiples avec cells

Bonjour a tous

Histoire de participer

Code:

Union(Range(Cells(1, "A"), Cells(18, "A")), Range(Cells(1, "D"), Cells(18, "D"))).Select

MJ13 · 8 Octobre 2010

Re : VBA Sélections Multiples avec cells

Re, Bonjour PierreJean

Merci (L'union fait la force 😱). C'est bien aussi 🙂.

Et j'ai testé ceci et cela fonctionne aussi:

Code:

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

C'est fou les possibiltés qu'on a 😛.

Sinon pour le problème de Pierrot sur la colonne AZ, en vérifiant sur mon programme Getcol.xls que j'avais trouvé sur le net, j'ai le même problème 😕.

Bon, vous avez le Week-end (J'aurai pas trop le temps 😱) .

Bon Week-end 🙂.

pierrejean · 8 Octobre 2010

Re : VBA Sélections Multiples avec cells

Re

A partir du # 7 de mon ami Pierrot

Tester avec colonne=52
Nb: Fonctionne aussi avec 2010 et plus de 256 colonnes

Code:

Function lc(colonne)
lc = Split(Cells(1, colonne).Address, "$")(1)
End Function

MJ13 · 8 Octobre 2010

Re : VBA Sélections Multiples avec cells

Re Pierre-Jean

Merci beaucoup PierreJean 😉.

Cela a l'air de fonctionner 😱.

Bonne soirée 🙂.

Staple1600 · 8 Octobre 2010

Re : VBA Sélections Multiples avec cells

Bonsoir tous

MJ13

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 tu les connais, tu n'as pas à chercher à les connaitre 😉
Car dans ce cas:
Cells(1,"A") -> A1
Cells(1,"F") -> F1

D'où mon premier message indiquant que je ne comprenais la finalité de ta question

MJ13 · 8 Octobre 2010

Re : VBA Sélections Multiples avec cells

Re JM

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.

Oui, je viens de m'apercevoir que je m'étais trompé, je voulais dire:

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

Heureusement que tu veilles sur nous 😉.

Bonne Soirée 🙂.

Ah! ce fut une journée riche d'enseignement 😱.

Efgé · 8 Octobre 2010

Re : VBA Sélections Multiples avec cells

Re à tous, Bonsoir pierrejean,
Arrétez moi si je me trompe mais il me semble que, comme le dit si bien Staple, si on connais la colonne... ...on connais la colonne 😀.
Par contre cela peut (peut être) être utile pour une formule.
Exemple:

Code:

[COLOR=blue]Sub[/COLOR] test()
   [COLOR=green]'On cherche la dernière colonne en ligne 1[/COLOR]
    Col = Cells(1, Application.Columns.Count).End(xlToLeft).Column
   [COLOR=green]'On récupère la lettre de la colonne[/COLOR]
    Lettre = Split(Cells(1, Col).Address, "$")(1)
   [COLOR=green]'On utilise la lettre dans une formule[/COLOR]
    Cells(1, Col + 1).FormulaLocal = "=$" & Lettre & "$1+100"
[COLOR=blue]End Sub[/COLOR]

Ce qui donne, par exemple en C1

Code:

=$B$1+100

C'était mon quart d'heure "Je suis pas sûr mais..."
Cordialement
EDIT MJ13 On s"est croisés

MJ13 · 9 Octobre 2010

Re : VBA Sélections Multiples avec cells

Re à tous

Merci Efgé.

Par contre cela peut (peut être) être utile pour une formule.
Exemple:

Code:
Sub test() 'On cherche la dernière colonne en ligne 1 Col = Cells(1, Application.Columns.Count).End(xlToLeft).Column 'On récupère la lettre de la colonne Lettre = Split(Cells(1, Col).Address, "$")(1) 'On utilise la lettre dans une formule Cells(1, Col + 1).FormulaLocal = "=$" & Lettre & "$1+100"End Sub

Oui, c'était un peu à quoi je pensais. Il est vrai que j'ai un peu dévié car mon but est de pouvoir facilement programmer la sélection de zones non contigues de colonnes ou de parties de colonnes. Or dans ce cas j'avais besoin de connaître toutes les possibilités, dont certaines sont souvent inexploitées.

On dira que c'est plus pour la recherche fondamentale sur Excel 😉.

Bon Week-end à tous 🙂.

VBA Sélections Multiples avec cells

MJ13

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

mromain

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

Discussions similaires

VBA Sélections Multiples avec cells

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency