Discussion :

[jimbololo]

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 :

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

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

help me !!! please

[Elstak]

Salut,

Essaie :

Code :

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

range(cells(1,1),cells(videlot,1)).select

[jimbololo]

désolé mais je comprend pas très bien ta ligne ? excuse moi

[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

[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 :

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

Sheets("lot").Select

est ce que la page lot a été selectionnée? Si oui ca vient pas de là.....

[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 :

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

1
2
 
feuilllot As Worksheet

et quand je fais sa sa marche :

Code :

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

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

[Elstak]

Je comprend pas trop...

quand tu fais ca :

Code :

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

feuilllot As Worksheet

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

Code :

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

Set feuilllot = Sheets("feuil2")

Seulement une fois avoir fait ca tu peut faire

Code :

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

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 :

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

1
2
3
4
With feuilllot
   .Range("A" & videlot).Select
   etc...
end with

[jimbololo]

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