Discussion :

[alexandrek]

Bonjour

voila j'ai ce code qui me permet de rassembler toutes les données d'une ligne mais le problème c est que j'arrive pas à renvoyer vers les ranges en question ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Dim listdon As Variant
Dim donexp As String
Dim lign As Byte
Dim donner As Variant
 
 
Const Separateur  As String = ";"
 
 
With target
        If .Column <> 4 Or .Row < 27 Then Exit Sub
        lign = .Row - 26
        listdon = Array("CLI", "DS", "SF", "VD", "AMCCY1", "AMCCY2", "CCYON", "CCYTT", "RATES")
        donexp = ""
        For Each donner In listdon
                 donexp = (donexp & Separateur & range(donner & "_" & lign))
        Next donner
 
Call crea_page
Call varcop
 
Sheets(nom).range("CLI", "DS", "SF", "VD", "AMCCY1", "AMCCY2", "CCYON", "CCYTT", "RATES").Select
Selection.Value = donexp
 
 
End With
 
 
Call TypOpe
 
Call transvalneg
 
End Sub

en testant le donexp a la fin d ou mon select ... je vois bien que les valeurs sont prises en compte... cela me permettait juste de tester

[zazaraignée]

Une question que je me pose...

Qu'arrive-t-il lorsque la valeur de lign est plus grande que 255 ? Parce qu'il y a quelque chose comme 65536 objets (propriétés en fait) Row dans un Worksheet et que le type de donnée d'un Row est Long (integer)...

J'avais déjà remarqué dans ton autre post.

Tel quel, ton code crée une adresse de Range qui commence par un ";".

Curieusement, j'aurais plutôt utilisé des variables de type Range pour passer des valeurs d'une feuille à l'autre.
Ou un bon vieux copy - paste.

Une exemple dont tu pourra t'inspirer et qui utilise des variables de type Range:

Code :

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

1
2
3
4
5
6
7
8
9
Sub CopierAversB()
    Dim plageA As Range
    Dim plageB As Range
    Set plageA = Feuil1.Range("B3,D8,C19,F10,G17,H6")
    Set plageB = Range("Copies!B3,D8,C19,F10,G17,H6")
    plageB.Value = plageA.Value
    Set plageA = Nothing
    Set plageB = Nothing    
End Sub

Tu as surement remarqué que j'ai mis le nom de la seconde feuille directement dans l'adresse du Range en le séparant des adresses de cellules par un "!".

Il est important de libérer la mémoire avec l'instruction Set variable = Nothing lorsqu'on affecte un objet à une variable si non, la cellule de mémoire se remplis et reste occupée indéfiniment...

bonne continuation

[Edit]
Juste au cas où... j'ai la version Office XP, donc Excel 2002.

[Didier Gonard]

Bonjour,

En fait :

Il n’y a qu’une propriété Row par objet et elle concerne une plage donc nombre = indéterminé.

Il y a 1.048.576 lignes dans sa version vu qu’il a tagué 2007.

La propriété Row renvoie bien Un Long, mais pas (integer).

cordialement,

Didier

[alexandrek]

merci
Je comprends pas trop la .... en faite vous parlez du type de mes variables


en faite je l'ai défini comme une chaîne de caractére donexp ... mais au sein de donext nous avons autant du texte que des nombres ...

tout le code marche bien car il sélectione bien les données que je veux ...

mais le problème est lorsque je veux affecter chaques variables à leur destination .... le résultat est celui recherché car quand je mets mon curseur de souris sur donexp il m'affiche bien les données mais par contre cela ne les renvoie pas

Code :

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

1
2
3
 
Sheets(nom).Range("RATES", "CCYTT", "CCYON", "AMCCY2", "AMCCY1", "VD", "SF", "DS", "CLI").Select
Selection.Value = donexp

[Philippe Tulliez]

Bonjour,
On te parle de ta variable Lign qui est typée comme un Byte ce qui fait un maximum de 256.
Donc si tu cliques sur une ligne au delà de la ligne 283 tu auras un problème avec cette instruction.

Code :

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

1
2
 
lign = .Row - 26

[alexandrek]

Bonjour,

ah ok ... merci pour la précision !

mais cette variable je peux la faire passer en integer ou en long ... et je n'aurai plus ce problème ??

par contre, savez-vous pourquoi j'ai ce problème dans le rangement de mes données ?