Syntaxe ligne code

[LORDDD]

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

 

[Pierrot93]

Re : Syntaxe ligne code

Bonjour,

et le code est placé dans quel module de feuille ?

bonne journée
@+

 

[LORDDD]

Re : Syntaxe ligne code

Merci Pierrot93 pour ta réponse rapide,

Il est placé dans le module de feuille : Feuille commentaire

 

[Pierrot93]

Re : Syntaxe ligne code

Re,

essaye ceci, attention à la plage de cellules, erronée dans ton post (smileys)

Private Sub Worksheet_activate()
Dim mois As Byte, p As Range
mois = Sheets("Feuil1").Range("e5")
Set p = Range("d44").Find(mois, LookAt:=xlWhole)
If Not p Is Nothing Then
    With p
        .Offset(1, 0) = Sheets("Chambre").Range("b10")
        .Offset(2, 0) = Sheets("Ca").Range("b10")
        .Offset(3, 0) = Sheets("Pm").Range("b10")
    End With
End If
End Sub

 

[LORDDD]

Re : Syntaxe ligne code

Ok j'ai modifié

Ca bloque toujours

Erreur execution 1004

 

[DoubleZero]

Re : Syntaxe ligne code

Re-bonjour, bonjour Pierrot ,

@ LORDDD,

Pourquoi cette nouvelle discussion ?

Cf. ici...

A bientôt

 

[Pierrot93]

Re : Syntaxe ligne code

Re,
bonjour 00

aarf z'avais pas vu...

 

[DoubleZero]

Re : Syntaxe ligne code

Re-bonjour,

... aarf z'avais pas vu...

Aucune gravité, Pierrot !

A bientôt

 

[LORDDD]

Re : Syntaxe ligne code

Cette discussion utilise ton code Doublezero, mais ce n'est que pour l'exemple, c'est que lorsque que j'utilise les fonction sheets + range + une action, cela bug tout le temps.

Je souhaitez savoir si cela venez d'une erreur de ma part ou autre.

Deux discussions bien a part , j'aurais pu prendre un autre exemple...

Cordialemment

 

[camarchepas]

Re : Syntaxe ligne code

Bonjour à Toutes et tous ,

@ 00 et Pierrot : Bonjour

@ Lorddd, plutot que de nous dire cela ne fonctionne pas , même si tu nous signales l'erreur 1004 .

Sans avoir le classeur que tu utilises , il va falloir faire appel à Harry Potter .

Si tu n'aimes pas trop la bave de crapaud , il est encore temps de poster le fichier ou un fichier simulant celui ci avec bien sur la macro incorporée ....

 

[LORDDD]

Re : Syntaxe ligne code

Merci,

Effectivement avec un petit fichier c'est plus simple.

J'ai pris un exemple clair pour qu'il n'y est pas de confusion avec un autre Post. Je pense que j'ai loupé quelque chose dans la logique.

Je vous laisse regarder.

Merci à vous tous pour votre expertise

 

[camarchepas]

Re : Syntaxe ligne code

Et voici ,

Mais bon pour le moment , elles font toutes les 2 la même chose

 

[LORDDD]

Re : Syntaxe ligne code

Merci Camarchepas,

Oui effectivement elle font les meme choses, je voulais comprendre pourquoi il y avait un code erreur lors de la syntaxe suivante en partant de la feuille1 : Sheets("feuil2").Range("d3").Select

Cordialement

 

[Pierrot93]

Re : Syntaxe ligne code

Re,

e voulais comprendre pourquoi il y avait un code erreur lors de la syntaxe suivante en partant de la feuille1 : Sheets("feuil2").Range("d3").Select

tu ne peux pas selectionner directement une cellule d'une autre feuille sans avoir au préalable selectionner la feuille en question... A noter également qu'en vba les "select" et autres "activate" sont rarement utiles...

 

[camarchepas]

Re : Syntaxe ligne code

@ Pierrot ,

Et oui d'ou l'adaptation du code

Sub Copietitre2()
Sheets("feuil1").Range("c8") = Sheets("feuil2").Range("d3").Value
End Sub