[VBA - E] - Manipulation de 2 feuilles EXCEL

Version imprimable

bonjour à tous !

j'ai un petit problème, je dois insérer des donées dans une feuille d'un classeur, puis d'autres données dans le 2ème feuille du même classeur, évidemment j'ai regardé sur le forum et j'ai vu qu'il fallait faire sa :

Code:

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
For i = 1 To y                                     
        Range("A" & vide).Formula = date1(i)
        Range("B" & vide).Formula = numab(i)
        Range("C" & vide).Formula = numordre(i)
        Range("D" & vide).Formula = frappe(i)
        Range("E" & vide).Formula = poids1(i)
        Range("F" & vide).Formula = tvm(i)
        Range("G" & vide).Formula = g1(i)
        Range("H" & vide).Formula = g2(i)
        Range("I" & vide).Formula = m2(i)
        Range("J" & vide).Formula = m6(i)
        Range("K" & vide).Formula = sexe(i)
        Range("L" & vide).Formula = type1(i)
        Range("M" & vide).Formula = obs3(i)
        Range("N" & vide).Formula = tatouage(i)
        vide = vide + 1                                
Next i

    Sheets("lot").Select
    Do                                                
     Range("A" & videlot).Select        
     videlot = videlot + 1
     Loop Until Range("A" & videlot).Value = ""
     videlot2 = videlot
     ....

sa plante à la ligne rouge ! je sais pas pourquoi, sa me fait :

Citation:

la méthode de l'objet range a échoué

help me !!! please

29/06/2006, 14h41
Elstak

Salut,

Essaie :

Code:

range(cells(1,1),cells(videlot,1)).select
29/06/2006, 14h57
jimbololo

désolé mais je comprend pas très bien ta ligne ? excuse moi :oops:
29/06/2006, 14h59
jimbololo

AUTANT POUR MOI ! je me suis mal exprimé, la ligne rouge plante mais c'est à cause du passage d'une feuille a l'autre donc je sais que le bug est en rapport avec la ligne en gras. mais je vois pas comment faire ! dsl elstak
29/06/2006, 15h22
Elstak

hmm,

je vois pas pourquoi tu dis que c'est la ligne en gras qui merde...

petit test, tu creer une nouvelle procédure, tu selectionne un page autre que "lot".

dans ton module tu ne met que :

Code:

Sheets("lot").Select

est ce que la page lot a été selectionnée? Si oui ca vient pas de là.....
29/06/2006, 15h27
jimbololo
oui la page est sélectionée. mais après il ne veut pa sélectionner la cellule de cette feuille.

j'ai donc fait :
Code:

1 2 feuilllot As Worksheet
et quand je fais sa sa marche :
Code:

1 2 3 feuilllot.Activate feuilllot.Range("A" & videlot).Select
mais sa m'embete un peu de mettre feuilllot.range a chaque ligne d'insertion ! car si je ne met pas feuilllot avant il me prend les cellules de l'autre feuille et ce même si j'ai mis feuilllot.Activate. comprend pas :?
29/06/2006, 15h36
Elstak
Je comprend pas trop...

quand tu fais ca :

Code:

feuilllot As Worksheet

apres tu dois definir quelle feuille tu appele feuilllo il me semble... comme ca :

Code:

Set feuilllot = Sheets("feuil2")

Seulement une fois avoir fait ca tu peut faire
Code:

1 2 feuilllot.Activate feuilllot.Range("A" & videlot).Select
enfin peu importe...

le truc qui t'embete c'est jsute de taper feuilllot avant le range ??

tu peux toujours utiliser un With
Code:

1 2 3 4 With feuilllot .Range("A" & videlot).Select etc... end with
29/06/2006, 15h42
jimbololo

ok c'est ce que j'ai fait ! merci beaucoup Elstak pour ton aide ! bonne continuation a tous...;)