Discussion :

[jefferson_PBL]

Bonjour a tous,

Je cherche a faire des passages dynamiques dans un objet range type

Code :

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

1
2
3
4
 
With ActiveWorkbook.Worksheets("data")
 Range(stypedata & "15").Value = .Range(datatype & "1").Offset(keydata, 2).Value
End With

Qd j'affiche les objects de manière séparés comme par exemple :

Code :

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

1
2
 
MsgBox Range(stypedata & "15").Value

L'acces a la case s'effectue, mais l'allocation elle plante...

J'avoue ne pas savoir comment résoudre le probleme

Merci d'avance pour votre aide...

Jeff

[ouskel'n'or]

Tes deux cellules sont dans la même feuille ?
A+

[jefferson_PBL]

Tes deux cellules sont dans la même feuille ?
A+

Non d'ou le with et le .Range

[ouskel'n'or]

Alors il peut y avoir un pb au niveau de l'un des ranges
Ou Range(stypedata & "15") est dans Worksheets("data"), auquel cas tu dois mettre .Range(stypedata & "15")
ou
Range(stypedata & "15") est dans la feuille active et ton code est correct. Mais les guillemets ne sont pas indispensables pour tes N° de lignes : le symbole "&" convertit un nombre en string

Code :

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

1
2
3
With ActiveWorkbook.Worksheets("data")
 Range(stypedata & 15).Value = .Range(datatype & 1).Offset(keydata, 2).Value
End With

Maintenant, nous ne savons pas ce qu'il y a dans stypedata ni dans datatype
Pour être certain que l'un ou l'autre ne contient pas 0, parcours ta macro avec F8 et passe ta souris sur les variables, ligne à tester exécutée.

[jefferson_PBL]

EN fait je bosse dans une fonction.. de fait on ne peut peut etre pas faire des affectations directement d'une fonction

les stypedata contiennent des lettres type A

d'ou stypedata & "1" donne A1...

Faudrait-il (peut-on?) effectuer une allocation global (different de local ??))

Merc pr votre aide !!

[ouskel'n'or]

Ce serait bien si tu nous mettais plus de code.

d'ou stypedata & "1" donne A1...

J'ai bien compris mais si stypedata est vide, ça donne 1
(Si stypedata = "A" alors stypedata & 1 donne aussi A1... juste pour que tu ne t'embêtes pas avec la conversion d'un N° de ligne en string )
A+

[LeForestier]

Faudrait-il (peut-on?) effectuer une allocation global (different de local ??))

Merc pr votre aide !!

Pour faire une allocation Globale/Public tu doit ajouter un module et y entrer tes déclarations en Public, elle serront ainsi visible depuis toute l'appli.
A+