Syntaxe ligne code

LORDDD

XLDnaute Occasionnel
Bonjour au Forum,

J'ai une question, voici un code en exemple, mais j'ai toujour une erreur récurant sur la syntaxe d'une ligne

Private Sub Worksheet_activate()
Dim mois As Byte
mois = Sheets("Feuil1").Range("e5")
Sheets("commentaire").Range("d4:O4").Find(mois, LookAt:=xlWhole).Select
With Selection
.Offset(1, 0) = Sheets("Chambre").Range("b10")
.Offset(2, 0) = Sheets("Ca").Range("b10")
.Offset(3, 0) = Sheets("Pm").Range("b10")
End With
End Sub

La plus part du temps je modifie cette ligne part :
Sheets("commentaire").activate
Range("d4:O4").Find(mois, LookAt:=xlWhole).Select

Si vous avezun conseil il serait le bienvenue.
Merci à vous
 
Dernière édition:

LORDDD

XLDnaute Occasionnel
Re : Syntaxe ligne code

Ok, merci pour ces lumières,

Donc il faut chaque fois que l'on veut des donner d'une autre feuille, et pour gagner du temps (activate & select en mangeant pas mal a ce qu'un expert m'avait dis) il faut réfléchir a transformer comme a fait Camarchepas le code en evitant les deux fonctions citée ci dessus.

Milles merci pour cette aide, et leçon...
 

Discussions similaires

Réponses
2
Affichages
210
Réponses
28
Affichages
1 K

Statistiques des forums

Discussions
312 962
Messages
2 093 996
Membres
105 906
dernier inscrit
Evolugame