Discussion :

[jokenjo]

Bonsoir
je connais le nombres de ligne (nbrligne)et de colonne(nbrcol) de mon tableau j´aimerai travaille avec ces facteurs dans ma feuille .Comme par exemple faire le la selection de ce tableau ou encore d´autre calcul avec le nombre de ligne er de colonne.

Code :

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

1
2
 
j´avais essaye cela "worksheets("feuil1").range("A1").offset("nbrligne,nbrcol")"

quelque chose comme ca ...

merci

[ouskel'n'or]

Le mieux pour qu'on comprenne ce que tu veux serait que tu nous dises ce que tu veux faire
A+

[jokenjo]

Le mieux pour qu'on comprenne ce que tu veux serait que tu nous dises ce que tu veux faire
A+

J´aimerai changer le format des valeurs de ma table , et faire le trie des valeurs ou tout en selectionant seulement ma table en foncion du nombre de ligne et de colonne .
(Je travaille avec differentes tablesdonc differentes dimensions ).

[ouskel'n'or]

Tes tables sont-elles séparées par des colonnes et des colonnes vides ou sont-elles adjacentes ?
A+

[jokenjo]

les tables sont pas separer par des colonnes elles sont de pleine de A á H

[jokenjo]

Code :

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

Worksheets("feuil1").Range(Cells(lig, col), Cells(lig, col)).Select

je vien de trouver ce code mais pas de resultat sur ma table .Alors que je connais deja les valeurs de ma ligne (lig) et ma colonne (col) trouver par :

Code :

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

1
2
3
lig= worsheets("feuil1").range("A1").entirecolumn.specialcells(xlcelltypelastcell).row
 
col = worsheets("feuil1").range("A1").entirecells.specialcells(xlcelltypelastcell).column

[SilkyRoad]

bonjour


Tu peux tester

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Ws As Worksheet
Dim Lig As Integer, Col As Integer
 
Lig = 5
Col = 8
 
Set Ws = Worksheets("feuil1")
 
'Cells(1, 1) correspond à la cellule A1
MsgBox Ws.Range(Ws.Cells(1, 1), Ws.Cells(Lig, Col)).Address
Ws.Range(Ws.Cells(1, 1), Ws.Cells(Lig, Col)).Select

michel

[jokenjo]

bonjour


Tu peux tester

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Ws As Worksheet
Dim Lig As Integer, Col As Integer
 
Lig = 5
Col = 8
 
Set Ws = Worksheets("feuil1")
 
'Cells(1, 1) correspond à la cellule A1
MsgBox Ws.Range(Ws.Cells(1, 1), Ws.Cells(Lig, Col)).Address
Ws.Range(Ws.Cells(1, 1), Ws.Cells(Lig, Col)).Select

michel

super ces cela que je voulais .le code marche tres bien
Merci