Discussion :

[Damsou]

Bonjour là, j'ai un petit problème de transposition ! en effet je souhaiterais avoir cette ligne de code:

Code :

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

    Range("B3:D11,F12:H19").Select

seulement vu que certaines coordonnées de cellules risquent de changer, j'aimerais bien le faire avec la fonction Cells pour ainsi placer une variable !
Quelqu'un arriverai-t-il à transposer ??

Merci d'avance !

PS: si c'est pas très clair, n'hésité pas à demander plus de précisions

[plegat]

Bonsoir,

Une solution un peu brutale serait d'utiliser Cells(...,...).Address pour récupérer lles chaînes correspondant à tes cellules, et de reconstituer la chaine à passer en paramètre à ton Range(...).Select à coup de concaténation (opérateur &).

Pour ton exmple, ça donnerait:

Code :

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

1
2
 
Range(Cells(3,2).Address & ":" & Cells(11,4).Address, Cells(12,6).Address & ":" & Cells(19,8).Address).Select

C'est pas forcément très joli, mais y'a possibilité de faire plus subtil en fonction des coordonnées à faire varier (mais là il nous faut des détails sur ce que tu veux faire...)

[Damsou]

Je vais essayer de faire simple !
Alors en fait c'est pour mettre à jour de facon automatique un graphique ! Il y a une colonne à un endroit, et puis deux colonnes que je ne veux pas, puis deux colonnes que je veut !
en fait ca me donne deux plages qui correspondent à Cells (2, 2), Cells(i, 2) et cells(2,5), cells(i,6) (oui, ce n'est pas les memes coordonnées que dans mon premier post mé c t un exemple lol)
avec i étant le numéro de la colonne ou je dois arrété ma séléction !
Je ne sais pas si c'est assez claire, mais pour plus de précision... ben demandez moi

[bhaal76]

moi, j'ai fais ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro7()
    Dim derniere_ligne As Integer
    Dim premiere_ligne As Integer
 
    premiere_ligne = 2      'dans ton exemple, tu a mis 2, alors ...
 
    Range("D" & premiere_ligne).Activate
    Range(Selection, Selection.End(xlDown)).Select
    derniere_ligne = ActiveWindow.RangeSelection.Count + premiere_ligne - 1   ' on commence a la ligne 2
 
    Range("D" & premiere_ligne & ":D" & derniere_ligne & ",G" & premiere_ligne & ":H" & derniere_ligne).Select
End Sub

[Damsou]

Merci ca marche !! c cool !