Affichage ligne de code macro?

  • Initiateur de la discussion Initiateur de la discussion atlonia
  • 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 !

atlonia

XLDnaute Occasionnel
Bonsoir,

J'ai dans une macro la ligne de code suivante:

Range("H7") = "ActiveCell.EntireRow.Offset(0, 0).Range("A1:C1").Select "

Cette ligne est sensée m'afficher la ligne de code au lancement de la macro!

Mais voilà, vba m'annonce une erreur de syntaxe...!

Je pense qu'il s'agit des guillemets de la section Range("A1:C1") qui sont interprétés alors que ceux de début et de fin commande l'affichage.

Quelqu'un connait-il l'astuce pour les afficher au lieu des les interpréter?

Merci à tous
 
Re : Affichage ligne de code macro?

Bonsoir,

en aucun cas cette ligne ne peut fonctionner....

Code:
Range("H7") = "ActiveCell.EntireRow.Offset(0, 0).Range("A1:C1").Select "

Tu ne peux sélectionner une ligne, et l'afficher dans une cellule....
Si tu veux le numéro de la ligne, tu peux le faire ainsi :

Code:
Range("H7") = ActiveCell.EntireRow.Offset(0, 0).Range("A1:C1").Row

qui peut être diminuée ainsi :

Code:
Range("H7") = ActiveCell.Row

Sinon, précise ce que tu désires obtenir...
 
Re : Affichage ligne de code macro?

Je veux afficher la macro utilisée sur la feuille au moment de l'exécution afin de complèter par la suite par une explication de cette macro.

Les boutons "Sélection ligne entière" et "Sélection Plage" sont fonctionnels dans ce nouveau classeur, clic sur un puis sur l'autre, tu comprendra mieux ce que je cherche
 

Pièces jointes

Re : Affichage ligne de code macro?

OK, je commence à comprendre...
Tu voudrais éditer les lignes de code en fonction du besoin....

Personnellement, je regroupe tous mes codes dans des fichiers .txt, avec des noms de fichiers représentatifs....

Un exemple :

mon fichier s'appelle : "Obtenir une description des erreurs.txt"

et à l'intérieur :

Code:
Sub DescriptionErreur()
    NumErr = InputBox("Numéro de l'erreur dont vous voulez la description:")
    If NumErr = "" Then Exit Sub
    On Error Resume Next
    Err.Clear
    Err.Raise NumErr
    If Err.Number <> 0 Then
        Msg = "Description de l'erreur " & Err.Number & " :" _
                & vbLf & vbLf & Err.Description
        MsgBox Msg, vbOKOnly, "Erreur " & NumErr
    End If
End Sub

M'enfin, c'est ma méthode....
 
Re : Affichage ligne de code macro?

Merci bhbh,

Ce n'est pas vraiment ce que je cherche,
je veux juste savoir comment afficher cette ligne de code (guillemets fautifs" sans qu'elle me renvoie un message d'erreur.

Mais ta macro m'interpelle...!

Je l'ai testé, mais elle me renvoie deux messages d'erreur (variable non définies) sur les lignes:

NumErr = InputBox("Numéro de l'erreur dont vous voulez la description:")
Msg = "Description de l'erreur " & Err.Number & " :" _
& vbLf & vbLf & Err.Description

Est-ce normal?
 
Re : Affichage ligne de code macro?

OK, j'ai trouvé,

Il suffit de doubler les guillemets:

Range("H7") = "ActiveCell.EntireRow.Offset(0, 0).Range(""A1:C1"").Select "

bhbh, si tu pouvais m'en dire un peu plus sur ta macro; que fait-elle?
l'appel-t-on d'une autre macro ou bien s'utilise-t-elle seule?

Enfin tu m'as compris je pense, je voudrais le mode d'emploi...!

Merci de ton aide.
 
- 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
10
Affichages
455
Réponses
2
Affichages
409
Retour