[VBA-Excel] Plagen avec Cells

Version imprimable

12/01/2005, 16h01
Damsou

[VBA-Excel] Plagen avec Cells

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

Code:

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 ! :wink:

PS: si c'est pas très clair, n'hésité pas à demander plus de précisions
12/01/2005, 20h53
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:

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...)
13/01/2005, 09h12
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 :P

moi, j'ai fais ça :

Code:

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

13/01/2005, 10h49
Damsou

Merci ca marche !! c cool !