• Initiateur de la discussion Initiateur de la discussion LORDDD
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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:
Re : Syntaxe ligne code

Re,

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

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

Pièces jointes

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
 
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...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
157
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
492
Réponses
4
Affichages
244
Réponses
4
Affichages
464
Réponses
12
Affichages
501
Réponses
2
Affichages
464
Réponses
3
Affichages
668
Retour