Discussion :

[illight]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 )
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 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ? )


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 j'aimerai bien savoir comment sélectionner 2 colonnes par leur numéro, et non par leur lettre

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

Merci pour votre aide

[chmod777]

pour convertir un chiffre en lettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Columns("BS:BT").Select
columns("" & lettre & ":" & lettre2 ).select

[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 ?

[SfJ5Rpw8]

par exemple utilise union ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AlainTech]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[illight]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 merci beaucoup

[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

[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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Rows(5), Rows(10)).Select

[Masterdidou]

Super, merci unparia

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

MERCI !!!

[patricktoulon]

divers exemples

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Masterdidou]

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