[VBA-E]Sélection de plusieurs colonnes

Version imprimable

Désolé pour le titre mais jen'ai pas trouvé mieux :oops:
Vu le titre, la question a l'air complètement idiote, et elle l'est :mrgreen: et pourtant je trouve pas de solution 8O
Je vous montre la macro vous dirait après ce que je veux faire :mrgreen: :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub InsertColumn() Dim f As Worksheet Set f = Worksheets("Feuil1") Columns(NumColonne("Feuil1")).Select MsgBox (Columns(1, 1).Name) Selection.Insert Shift:=xlToRight Selection.AutoFill Destination:=Columns(NumColonne("Feuil1") - 1 & ":" & NumColonne("Feuil1")), Type:=xlFillDefault Columns(NumColonne("Feuil1") - 1).Select Selection.Copy Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False End Sub
Pour information, la fonction NumColonne permet de calculer le numéro de la colonne :) afin de savoir où insérer ma colonne :) (pour mon cas par exemple NumCOlonne est égal à 72 je crois :mrgreen: )
Ce que je veuxf aire c'est "sélectionner" 2 colonnes pour tirer les formules de la colonne précédente sur la colonne créée :oops: mais ça marche pas ocmme ça et je sais pas comment passer par les chiffres :?
En fait quand je fais la macro par l'assistant il me donne ça :
Code:

1 2 3 Columns("BS:BS").Select Selection.AutoFill Destination:=Columns("BS:BT"), Type:=xlFillDefault Columns("BS:BT").Select
Il utilise les lettres pour dénomer les colonnes :)

Or moi ce que je veux ce n'est pas utiliser les lettres des colonnes, mais le numéro de la colonne afin de pouvoir l'utiliser dans la procédure au dessus, en sélectionnant 2 colonnes, pour pouvoir tirer mes formules de la colonne précédente :? (moi avoir été compris ? :oops:)

Sinon si vous avez un moyen pour récupérer le "nom" de la colonne, cad la lettre je suis preneur aussi car columns.name ça marche pas :? (sachant que si je prend le "nom" il faudra quand meme que je puisse prendre la lettre précédente pour tirer mes formules..)

Bref :oops: j'aimerai bien savoir comment sélectionner 2 colonnes par leur numéro, et non par leur lettre :)

J'espère avoir été compris :oops: :) si vous avez des questions hésitez pas :P

Merci pour votre aide :)

03/05/2006, 15h47
chmod777
pour convertir un chiffre en lettre

Code:

lettre = Chr(96 + i)

où i est le chiffre bien entendu

une fois que tu as ta lettre et bien c'est tout de suite moins compliqué
Code:

1 2 Columns("BS:BT").Select columns("" & lettre & ":" & lettre2 ).select
03/05/2006, 15h56
illight

je pense pas que ça marchera, justement parce que c'est BS (par exemple)
SI je fais un chr(96 +i) par exemple, avec i = 72, ça va me faire 188 ça va pas me faire une erreur ?
03/05/2006, 18h00
SfJ5Rpw8
par exemple utilise union ?
Code:

1 2 Union(Columns(71), Columns(72)).Select
;)
03/05/2006, 18h01
AlainTech
Code:

1 2 Dim rRange Set rRange = Range(Columns(3), Columns(4))
Te permet d'utiliser rRange partout où tu veux invoquer tes 2 colonnes.

Example:

Code:

rRange.Select

Dans ce cas-ci, j'ai mis les colonnes 3 et 4 pour ne pas devoir dérouler toutes ma feuille pour voir ce qui était sélectionné.
04/05/2006, 07h58
illight
Citation:
Envoyé par AlainTech

Code:

1 2 Dim rRange Set rRange = Range(Columns(3), Columns(4))

Te permet d'utiliser rRange partout où tu veux invoquer tes 2 colonnes.

Example:

Code:

rRange.Select

Dans ce cas-ci, j'ai mis les colonnes 3 et 4 pour ne pas devoir dérouler toutes ma feuille pour voir ce qui était sélectionné.
Yep Merci ça marche nickel :D merci beaucoup :P
23/11/2017, 21h17
Masterdidou

Bonjour,
Je me permets de compléter la question même si ce n'est pas mon sujet, mais à mon niveau je voudrais sélectionner plusieurs lignes comprises entre 2 variables.

donc a défaut je remplace par Line, mais je ne peux pas utiliser les ":" pour préciser que je veux l'ensemble compris entre les deux lignes
Merci d'avance :weird:
23/11/2017, 21h56
mjpmjp

bonjour,
si tu veut absolument des lettres...A..Z = 26
int (72 / 26) = 2 --->"A" = chr(65) --> chr(64 + 1) = 65 --> chr(64 + 2) = 66 = "B"

le reste 72 - (2*26) = 20 =? = ---> "T" --> chr(64 + 20)

72 = BT

@+JP
23/11/2017, 22h42
Masterdidou

J'ai pas tout compris, je ne penses pas que tu réponds à ma question mais à la précédente :(

en effet la fonction ci dessous sélectionne les colonnes,

Code:

Union(Columns(71), Columns(72)).Select

donc je m'en suis inspiré et mis le code ci-dessous ligne1 étant ma variable

Code:

Union(Rows(6), Rows(ligne1)).Select

cependant cela ne me sélectionne pas les lignes intermédiaires (entre la 6ème et la dernière correspondant à ma variable 8O

J'ai bien la possibilité de faire une boucle afin de supprimer l'ensemble des lignes, mais je me dit qu'il y a certainement un code qui m'évite de faire une boucle et de sélectionner directement l'ensemble des lignes pour les supprimer en 1 fois.
23/11/2017, 22h49
unparia

Bonjour

La méthode Union sert à constituer une plage de cellules non contigües. Ce qui n'est pas ce que tu veux ...
Regarde ce que fait (exemple) ceci :

Code:

Range(Rows(5), Rows(10)).Select
23/11/2017, 22h56
Masterdidou

Super, merci unparia

Maintenant que je vois ce code je me dit que c'est évident :) je vais pouvoir finir ma macro :P

MERCI !!!

divers exemples

Code:

1
2
3
4
5
6
'exemple selectionner les colonnes  I et K
'on connait les index  des colonnes 9 et 11
Sub test1()
'par range(cells....)avec index
    Range(Cells(1, 9), Cells(1, 11)).EntireColumn.Select
End Sub

Code:

1
2
3
4
5
6
 
'on connait les lettres des colonnes  "I" et "k"
Sub test2()
    ' par range (cells...)avec lettre
    Range(Cells(1, "i"), Cells(1, "k")).EntireColumn.Select
End Sub

Code:

1
2
3
4
5
Sub test3()
    'formule classique
    'tout ce qui est entre la cellule 1 colonne 1 et next cellule  colonne2 est pris en compte
    Columns("i:k").Select
End Sub

Code:

1
2
3
4
5
Sub test4()
'avec range et lettre double
'ici seulement les colonnes I et K sont selectionnées
Range("I:I,K:K").Select
End Sub

Code:

1
2
3
4
5
'exemple  selectionner les lignes de 5 a 10
Sub test5()
    'par rows et les index
    Rows("5:10").Select
End Sub

Code:

1
2
3
4
Sub test6()
  ' par range(cells((...) et entirerow
    Range(Cells(5, 1), Cells(10, 1)).EntireRow.Select
End Sub

Code:

1
2
3
4
Sub test7()
  ' par range row(index deligne)
    Range(Rows(5), Rows(10)).Select
End Sub

Code:

1
2
3
4
5
'selectionner uniquement les lignes 5 et 10 pas ce qu'il y a entre les deux
Sub test8()
'avec range et index de lignes en double
 Range("5:5,10:10").Select
End Sub

27/11/2017, 23h19
Masterdidou

Merci pour ce complément qui me sera certainement utile pour de prochains développements ;)