selection plusieur cellules avec Cells

[darkspoilt]

Bonjour quelqu'un sait comment on peut sélectionnet plusieur cellule avec Cells
car g besoin de rentrer le numéro de ligne et de colonne

et [cpp]xls.Sheets("toto").Cells("L1:L2,C1:C2") [/cpp] ne fonctionne pas
a moins que l'on peu rentrer le numéro de ligne et de colonne avec range

Merci d'avance

 

[zeb]

Tu confonds effectivement Cells et Range. Voir l'aide de VBA/Excel pour t'en convaincre.

 

[darkspoilt]

Elle est ou ton aide?? je ne la vois pas dans le forum

 

[zeb]

zeb --> [:nicky95] [:telerotor:1] <-- darkspoilt

Pas dans PPC, dans EXCEL. Demande à l'un de ces huits abrutis là

Vous devez être connecté pour voir les images.

 

[darkspoilt]

bah ca tu crois que c'est pas déja fait ta rien d'expliquer sur comment on selectionne plusieurs celulles cote a cote a mois ke je cherche mal

 

[zeb]

Range au lieu de Cells.
Mais tu l'as écrit toi-même !!!!!

(Je suis content d'apprendre que tu les connais. Trop de monde poste sans avoir lu ce putain de manuel)

 

[darkspoilt]

ah oui pardon je vois l'erreur j'ai pas grillé
L1, L2, C1 et C2 sont des numéro de ligne et de colonne d'ou la confusion
j'ai voulu faire court j'ai mal fait pardon
j'avoue je mérite des claque sur ce coup la
xls.Sheets("toto" ).Range(Ligne1&":"&Ligne2,Colonne1&":"&Colonne2 )
ou un truc genre Range(ligne1:ligne2,colonne1:colonne2)

 

[zeb]

:heink:
.... bon, d'accord ....

[:whatthefuck]

Range("1:2,A:B")

 

[darkspoilt]

voila mon probleme
colonne 1 et colonne 2 sont des nombre
d'ou ma fonction de recherche du champs vide car apres je fais des calcul sur les numéro de colonne et d'ou ma volonté d'utilisé Cells
et [cpp]Range ("1:2","1:" & colonne)[/cpp] ne prends en compte que des lignes pas des colonne

 

[zeb]

Essaie avec la méthode Address

Exemple

Function ColonneEnLettre(col As Integer) As String
    Dim s As String
    Dim a
    
    ' Les paramètre 1, 0 donnent la ligne en absolue et la colonne en relatif.
    ' Un $ apparaît donc idéalement entre lettre (colonne) et 
    s = Cells(1, col).Address(1, 0)
    a = Split(s, "$")
    ColonneEnLettre = a(0)
End Function

 

[darkspoilt]

Ta méthode ne fonctionne pa apparement

 

[zeb]

1° elle fonctionne
2° je te propose d'utiliser "Address" et je ne te montre qu'un exemple. [:spamafote]