Probleme relation 2 classeurs

[BOBBY]

Coucou tout le monde !!!
Comment va ?

Voila un nouveau problème pour vous :

J'ai 2 classeurs ouverts.

Un bouton sur mon classeur 2 devrait agir sur le classeur 1, mais ca marche pas, voici ma formule:

Workbooks2.Sheets(1).Range('B161').End(x1Up).Value = Activecell.Offset(0,3).Value


Et là ca bloque...!!!

Pourquoi donc ça qu'est-ce ???

Merci d'avance !!!

A+

 

[DSA]

Bonjour,

déjà, référence mieux ton 2eme classeur, (je ne suis pas sur que workbooks2 existe, à la rigeur WorkBooks(2): classeur n°2 ds la liste d'objet Workbook)) avec un système de variable de type workbook:
dim Classeur2 as Workbook (sans s car c'est un objet seul)
set classeur2 =.....
et dans ta formule, c'est .End(xlYp) et non pas End (x1Up).

A+

DSA

 

[Creepy]

Hello,

Je ne comprends pas bien ton code :

Workbooks2.Sheets(1).Range('B161').End(x1Up).Value = Activecell.Offset(0,3).Value

Tu veux remplacerla valeur de B161 ou tu veux remplacer la première valeur de en remontant de B161 vers 1 ?


Deja je vois x1Up -> devrtait être XLup ! Erreur de frappe ou pas ?

Après correction ca marche chez mois donc pas pb !! Cela depend peut être de la cellule active ?

Le plus imple serait de mettre un exemple !

++

Creepy

 

[BOBBY]

DSA, Creepy

Oui en effet, je n'ai pas été très clair alors je reprend ma formule:

WorkBooks('JOURNEE').Worksheet(1).Range('B161').End(xlUp).Value = Activecell.Offset(0,3).Value


En fait ca marche, mais au lieu de me remplir la ligne suivante, ca me rempli toujours la même ligne...

Bizarre non?

A+

 

[Bebere]

bonjour

'sélectionne la dernière cellule non vide
'on l'employe s'il y a des cellules vides ds la colonne
Worksheet(1).Range('B65536').End(xlUp).select
'offset(1,0) pour remplir la cellule une ligne plus bas avec la valeur située
3 colonnes à droite de WorkBooks('JOURNEE').Worksheet(1).Range('B65536').End(xlUp).Value
WorkBooks('JOURNEE').Worksheet(1).Range('B65536').End(xlUp).Offset(1,0).Value = Activecell.Offset(0,3).Value

'colonne sans cellules vides
WorkBooks('JOURNEE').Worksheet(1).Range('B1').End(xldown).Value = Activecell.Offset(0,3).Value

au revoir