[VBA-E]selectionner une plage de cellules

Version imprimable

03/05/2007, 13h26
k-eisti

[VBA-E]selectionner une plage de cellules

Bonjour,

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

Code:

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

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

Code:

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

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

Code:

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

et sa ne marche pas non plu,

merci de montrer comme resoudre ce petit problème
03/05/2007, 14h26
illight

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

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:

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:

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

sa marche bien , mais avec

Code:

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

03/05/2007, 15h37
illight

Tu peut écrire ça comme ça sinon :

Code:

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

Citation:

Envoyé par k-eisti

avec

Code:

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

sa marche bien , mais avec

Code:

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

Citation:

Sub CreerTableau(feuille As Worksheet, ligne As Integer)

par
Code:

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:

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+

03/05/2007, 16h05
illight
Ousk, je comprend pas trop tes changements ? :oops: 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:

1 2 Sub (feuille,ligne)
Ta feuille et ta ligne ce sont des Variant au départ non ?

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:

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" :mouarf:
A+

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

03/05/2007, 16h32
illight
Ouaip ça marche ta macro ;) t'a juste oublié le Call :
Code:

1 2 3 4 5 6 Sub LaMacro() Dim feuille As Worksheet, ligne As Long Set feuille = Worksheets("feuil1") ligne = 4 Call CreerTableau(feuille, ligne) End Sub
Comment ça je chipote ? :mrgreen:

Pour revenir à ce que je disais au dessus et en reprenant ton exemple :

Code:

Function LaFonction(i,j)

Quant tu écris ça, i et j sont des Variant au début, OK quand tu les appelle après avant de les mettre dans la fonction tu les définis comme des Bytes, mais au départ, ce sont des Variant.

Je pense, de mon point de vue que écrire ça :

Code:

Function LaFonction(i As Byte,j As Byte)

ça revient au meme en fait, c'est tetre plus lourd, mais c'est peut etre plus rigoureux dans la logique. Tu vois ce qu e je veux dire ? :)

j'ai trouvé l'erreur

il faut pas mettre des chiffres dans

Code:

cells(2,2)

la soulution est de faire come suite:
Code:

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++

03/05/2007, 17h04
ouskel'n'or

Citation:

Ouaip ça marche ta macro ;) t'a juste oublié le Call :

J'ai corrigé mais j'ai pas mis Call :langue: juste pour t'embêter.

Non, écrire

Code:

Function LaFonction(i As Byte,j As Byte)

ou

Code:

Function LaFonction(i, j)

ne revient pas au même. i et j, dans le premier cas, ne sont pas déclarés dans la macro et faut toujours déclarer les variables (me semble qu'on a déjà eu cette discussion :mouarf: )
Or, quand tu les passes à la fonction, ce sont des Bytes de la macro que tu lui passes. Et en plus des constantes. Pourquoi les déclarer de nouveau ?
Réponds à ça si t'es cap' :aie:
04/05/2007, 09h45
illight

Pour le premier cas, tu n'as pa sbesoin de les déclarer dans la macro, puisqu'ils sont déja déclarés :mrgreen: pour la fonction, donc t'as pas besoin de répéter non ?

Citation:

Envoyé par illight

Pour le premier cas, tu n'as pas besoin de les déclarer dans la macro, puisqu'ils sont déja déclarés :mrgreen: pour la fonction, donc t'as pas besoin de répéter non ?

Tu réponds à côté.
Dans la sub appelante, i et j ne sont pas déclarées. Or faut toujours déclarer les variables. Et si tu les déclares dans la sub appelante, normal, et que tu réitères dans la sub appelée, tu les as déclarées deux fois. Où est l'erreur ?
Ou alors, c'est que tu ne les as pas déclarées dans la macro appelante et... c'est pas bien :mouarf:

Maintenant, suppose que tu utilises les variables i et j dans la procédure appelante après avoir appelé la procédure appelée, alors pour toi, elle sont toujours déclarées ? Et toc ! :scarymov: :langue:

Mais je sens que tu n'es pas convaincu :mouarf:
Quand tu instancies une feuille, tu peux en avoir besoin tout au long de la procédure appelante... Donc tu vas la déclarer. Sinon c'est pas bien...
Si tu places cette instance en paramètre dans l'appel d'une macro, que la macro appelée reconnaît l'instance pour ce qu'elle est, pourquoi la déclarer une nouvelle fois ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub ProcédureAppelante() Dim FL As Worksheet Set FL = Worksheets("Feuil1") NoLigne = 1 ProcédureAppelée FL, NoLigne 'ou Call ProcédureAppelée(FL, NoLigne) 'pour te faire plaisir bien qu'inutile ^^^ End Sub Sub ProcédureAppelée(LaFeuille, NoLigne) LaFeuille.Cells(NoLigne, 1).Value = "Pourquoi ça marche ?" End Sub
Dans la procédure appelée, tu crois que FL est considérée comme variant ? Et toc ! :bebe:

Toujours pas convaincu ? Alors je te renvoie à l'aide à fonction

Citation:

Function, instruction
Syntaxe
[Public | Private | Friend] [Static] Function name [(arglist)] [As type]
'...
'...
type Facultatif. Type de données de la valeur renvoyée par la procédure Function ; elle peut être de type Byte, Boolean, Integer, Long, Currency, Single, Double, Decimal (non pris en charge actuellement), Date, String ou (à l'exception des chaînes de longueur fixe), Object, Variant, ou tout type défini par l'utilisateur.

Là, il était question de fonctions.
Pour les sub, je suis allé chercher un exemple dans l'aide à Call puisque pour le type, il est dit à peu près la même chose.
Citation:
Call, instruction, exemple
Cet exemple illustre comment l'instruction Call est utilisée pour transférer le contrôle vers une procédure Sub, une fonction intrinsèque etc.
Code:

1 2 3 4 5 6 7 ' Appelle une procédure Sub. Call PrintToDebugWindow("Bonjour à tous") ' L'instruction ci-dessus transfère le contrôle à la ' procédure Sub suivante. Sub PrintToDebugWindow(AnyString) Debug.Print AnyString ' Affiche dans la fenêtre Exécution. End Sub
Enfin, et, pour ce qui me concerne j'ai épuisé le sujet, la déclaration du type d'une fonction se justifie selon le type de la donnée qu'elle renvoie si ce n'est un Variant. Mais là, c'est le type de la fonction dont je parle.

Code:

Function OuiNon(Fl, NoLigne, NoCol, Question) as boolean

Mais je ne prétends pas t'apprendre quelque chose :(

Allez, je vois bien que tu n'as pas changé d'avis, alors avant les sub de mon exemple précédent, ajoute "Option Explicit", tu verras bien que le bug est sur les variables non déclarées (il y en a une) pas sur les paramètres...

Tout ça pour te dire que si j'ai passé et me suis emmberté une heure à vérifier et tester tout ça, c'est pour gagner du temps quand j'écris mes procédures :mouarf:

07/05/2007, 10h40
illight

Ok ok c'est bon t'a gagné :mrgreen:

Merci en tout cas pour ces éclaircissements, maintenant je ferai comme toi :aie:

Merci de t'avoir emmerdé une heure, meme si pour moi tu t'es pas vraiment emmerdé et je suis sur que tu as appris des choses aussi :mrgreen:
07/05/2007, 10h50
ouskel'n'or

Et d'abord, je me suis pas em...comme tu dis mais emmberté, contraction des mots em... et embêter... :aie:
Faut pas donner le mauvais exemple et toujours rester correct sur le forum :mouarf:

PS - Bon, après cette intéressante discussion, ça ne t'ennuie pas si je fais le ménage des posts jusqu'à la dernière réponse de k-eisti ? Non, je pense que ça t'emmbertera pas... mais tu dis ;)