Discussion :

[k-eisti]

Bonjour,


pour selectionner une plage de cellules dans Excel on fait par exmeple

Code :

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

feuille.Range("B8:H16").Select

je veux donner a la fonction le nombre de ligne comme parametres et je fait:

Code :

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

feuille.Range(Cells(l3, 2), Cells(lignes+13, 7)).Select

le souci c'est que sa ne marche j'ai essayer de faire

Code :

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

feuille("Cells(l3, 2)":"Cells(20, 7)").Select

et sa ne marche pas non plu,

merci de montrer comme resoudre ce petit problème

[illight]

Ton lignes il est défini comment au départ ?

[k-eisti]

je vais être un peut plus précis,

moi je doit faire apel a une fonction qui créer un tableau , mais le souci c'est que les lignes du tableau ne sont pas identiques

a chque fois il faut que je précise a ma fonction le nombre de lignes : donc je lui donne comme argument le nombre de lignes : comme suite

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub CreerTableau(feuille As Worksheet, ligne As Integer)
    feuille.Select
'    feuille.Range(Cells(l3, 2), Cells(ligne+13, 7)).Select
 
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

avec

Code :

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

feuille.Range("B8:H40").Select

sa marche bien , mais avec

Code :

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

feuille.Range(Cells(l3, 2), Cells(ligne+13, 7)).Select

sa ne marche pas , le problème c'est que je lai déja utilisé dans une autre macro et sa a fonctionnée , je ne sais pas ou est le problème
ou elle est l'erreur ?

merci de m'aider pour que je puisse avancer dans mon projet

[illight]

Tu peut écrire ça comme ça sinon :

Code :

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

Feuille.Range("B13:G" & ligne + 13).Select

[ouskel'n'or]

avec

Code :

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

feuille.Range("B8:H40").Select

sa marche bien , mais avec

Code :

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

feuille.Range(Cells(l3, 2), Cells(ligne+13, 7)).Select

sa ne marche pas , le problème c'est que je lai déja utilisé dans une autre macro et sa a fonctionnée , je ne sais pas ou est le problème
ou elle est l'erreur ?

Tu es sûr de feuille ? Moi je le suis moins.
Remplace

Sub CreerTableau(feuille As Worksheet, ligne As Integer)

par

Code :

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

1
2
3
4
5
6
Sub CreerTableau(feuille, ligne)
    With feuille.Range(Cells(13, 2), Cells(ligne+13, 7))
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
    End with
    '... etc

et instancie feuille dans la macro appelante

Code :

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

1
2
3
4
5
6
Sub LaMacro()
Dim feuille as worksheet, ligne as long
    Set feuille = Worksheets("feuil1")
    Ligne = 25
    CreerTableau feuille, ligne
    '....

A+

[illight]

Ousk, je comprend pas trop tes changements ? tu pourrait expliquer un peu pourquoi tu as fait ces changements ?

On dirait, par rapport à ce que je vois, qu'il ne faut pas quand on créé une procédure faire comme variable pour celle-ci un worksheet..En tout cas c'est comme ça que je comprend tes modifs..
Surtout que toi comme tu le fais, en faisant

Code :

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

1
2
 
Sub (feuille,ligne)

Ta feuille et ta ligne ce sont des Variant au départ non ?

[ouskel'n'or]

Non. Si tu instancies feuille as Worksheet dans la macro appelante, tu passes l'instance à la sub appelée. Idem pour une variable
L'utilité du format se trouve dans l'appel d'une fonction qui elle va te retourner un type de variable non déclarée dans la sub appelante

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub LaMacro()
Dim i as byte
Dim j as byte
     i = 5
     j = 2
     Reponse = LaFonction(i,j)
     if Reponse then msgbox "C'est vrai !"
End sub
 
Function LaFonction(i,j)as boolean
    LaFonction = i*j = 10
End function

Mais comme je n'ai pas la science infuse, je sais que ça "marche" comme ça, maintenant si ça marche "par hasard" alors le hasard fait bien les choses car je n'ai jamais eu le moindre pb en appliquant "mes règles"
A+

Edit
Hello Illight, tu as testé mon code précédent avec l'instance de la feuille ?
A+

[k-eisti]

j'ai trouvé l'erreur


il faut pas mettre des chiffres dans

Code :

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

cells(2,2)

la soulution est de faire come suite:

Code :

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

1
2
3
4
5
Sub CreerTableau(feuille As Worksheet, ligne As Integer)
    Dim ligne1 As Integer
    ligne1 = 13
    feuille.Select
  feuille.Range(Cells(ligne1, 2), Cells(ligne1 + ligne, 7)).Select

A++