Coller du VBA dans Balise code VB du forum

[youky(BJ)]

Bonjour à tous,
Je rencontre un petit problème lors de mon coller . . .
Je copie une macro VBA (Ctrl+c) si je fais Ctrl+v pour insérer mon code (balise code VB)
rien ne se passe, idem si je veux coller dans ma messagerie Courrier W10.
Ensuite j'ouvre le simple Bloc Note et là surprise le coller se fait bien, je re-sélectionne tout et Ctrl+C
et cette fois je colle bien sur le forum ou courrier par Ctrl+v.
Bon j'ai mis le Bloc Note à porté de main, je voudrais savoir si cela arrive à certains Exceliens ou mieux
le remède adéquat.
Bruno

 

[Jacky67]

Bonjour,
Depuis quelques temps , je rencontre exactement le même problème.
J'ai cru avoir involontairement modifié un paramètre, mais je n'ai rien trouvé.
Cela ne réconforte (presque) de savoir que je ne suis pas le seul,
Je prend aussi le remède s'il y a.
Mon pharmacien n'avait rien non plus

Bonne soirée

 

[Staple1600]

Bonsoir le fil, le forum

Moi j'ai un remède.
Mais il est radical
(sans oublier d'être contraignant et à contre-courant )

 

[Lone-wolf]

Bonsoir tout le monde

C'est bizarre, moi je n'ai pas eu de problème en faisant un copier-coler d'une macro de Jean Marie.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rw

    Application.EnableEvents = False
    If [E2] <> vbNullString Then
        With Sheets("Base")
            rw = Application.Match([E2], .Columns(1), 0)
            Range("b2") = .Cells(rw, 2)
            Range("b3") = .Cells(rw, 3)
            Range("c3") = .Cells(rw, 4)
            Range("b4") = .Cells(rw, 5)
            Range("b5") = .Cells(rw, 6)
            Range("c5") = .Cells(rw, 7)
            Range("b6") = .Cells(rw, 8)
        End With
    End If
    Application.EnableEvents = True

End Sub

Et celle-ci que je viens d'inserer.

 

[Jacky67]

Bonsoir tout le monde

C'est bizarre, moi je n'ai pas eu de problème en faisant un copier-coler d'une macro de Jean Marie.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rw

    Application.EnableEvents = False
    If [E2] <> vbNullString Then
        With Sheets("Base")
            rw = Application.Match([E2], .Columns(1), 0)
            Range("b2") = .Cells(rw, 2)
            Range("b3") = .Cells(rw, 3)
            Range("c3") = .Cells(rw, 4)
            Range("b4") = .Cells(rw, 5)
            Range("b5") = .Cells(rw, 6)
            Range("c5") = .Cells(rw, 7)
            Range("b6") = .Cells(rw, 8)
        End With
    End If
    Application.EnableEvents = True

End Sub

Et celle-ci que je viens d'inserer.

Hello Lone-Woff
Essaie d'une copie direct en texte d'une macro quelconque(copier/ coller)
***Rien ne se colle
Essaie par Insérer==>Code
***Rien ne se colle
Essaie par copier coller dans Word puis copier et Insérer==>Code

Sub lectureTempConsultation()
Dim Repertoire As String, nom As String, num As Long, Atemp As String
On Error Resume Next
Repertoire = ThisWorkbook.path & "\TempConsutation\"
If Err = 0 Then
  nom = Repertoire & ThisWorkbook.Name & " TempConsutation.txt"
num = FreeFile
Open nom For Input As #num 'ouvre le fichier en lecture
Line Input #1, Atemp
[tempConsultation] = Atemp
Close #num 'fermeture
End If
On Error GoTo 0
End Sub

Et là ......cela fonctionne
Je deviens Suisse

Hello JM
C'est quoi ton remède miracle

 

[Staple1600]

Re

Le remède c'est celui-ci (que j'ai déjà ingurgité pour un autre problème, celui que j'évoquais dans ce fil)
Le médicament (avec effet secondaire)

 

[youky(BJ)]

Ha, jacky67 comme je suis heureux que tu es le même PB, nous sommes désormais deux pour continuer le combat.
Je vois que Lone-Wolf perd ses ailes en faisant un copier-coler d'une macro de Jean Marie.(hello)
Je ne veux pas oublier Jean Marie que je salue sinon c'est le rappel à l'ordre direct, Lone-Wolf en sait quelque chose.
Par contre JM je n'ai pas bien compris ton jeu de mots. Habituellement je me marre!!!!
Pour en revenir à mon remède je pense qu'un text-enrichi n'ai pas pris en compte.
Suis toujours à la recherche de l'antibiotique.
Bruno

 

[Lone-wolf]

Re jacky

la 2ème macro viens d'un copier-coller depuis Excel. Celle-ci collée dans Word puis copiée-collée ici

Sub lectureTempConsultation()
Dim Repertoire As String, nom As String, num As Long, Atemp As String
On Error Resume Next
Repertoire = ThisWorkbook.path & "\TempConsutation\"
If Err = 0 Then
  nom = Repertoire & ThisWorkbook.Name & " TempConsutation.txt"
num = FreeFile
Open nom For Input As #num 'ouvre le fichier en lecture
Line Input #1, Atemp
[tempConsultation] = Atemp
Close #num 'fermeture
End If
On Error GoTo 0
End Sub

 

[Lone-wolf]

Re

Bruno à dit: je pense qu'un text-enrichi n'ai pas pris en compte

Ooooh le charogne!! . Il c'est enrichi et n'as pas ouvert un compte?!

 

[Staple1600]

Bonsoir youky(BJ), Lone-Wolf, Jacky67

@youky(BJ)
De quel jeu de mot, tu parles?
Le rémède, c'est simplement de désactiviter javascript sur XLD
(chez moi javascript est désactivé par défaut, et je l'active si besoin au cas par cas selon les sites)
Cependant, il y a certains inconvénients (mais il y a des palliatifs)
Par exemple sans javascript, plus d'éditeur en mode avancé, plus quelques autres mineurs problèmes.

C'est ce que j'appelle aller à contre-courant et dans la contrainte (mais ainsi je nourris un peu moins l'ogre G..g.e) et accessoirement je n'ai pas de problème de copier/coller sur XLD.

 

[Jacky67]

Re jacky

la 2ème macro viens d'un copier-coller depuis Excel. Celle-ci collée dans Word puis copiée-collée ici

Sub lectureTempConsultation()
Dim Repertoire As String, nom As String, num As Long, Atemp As String
On Error Resume Next
Repertoire = ThisWorkbook.path & "\TempConsutation\"
If Err = 0 Then
  nom = Repertoire & ThisWorkbook.Name & " TempConsutation.txt"
num = FreeFile
Open nom For Input As #num 'ouvre le fichier en lecture
Line Input #1, Atemp
[tempConsultation] = Atemp
Close #num 'fermeture
End If
On Error GoTo 0
End Sub

Re...
Ce n'est que depuis quelque temps que cela ne fonctionne plus.
Toutes les opérations que tu effectues dans tes exemples , fonctionnaient chez moi aussi, auparavant.
Certains vont dire "Cela fonctionnait avant que cela ne fonctionne plus"

 

[Staple1600]

Re

@Le Fil
Est-ce vous avez essayer mon remède (même temporairement) ?

 

[youky(BJ)]

Merci Jean Marie j'avais pas pigé.
C'est très intéressant ce que tu viens de dire.
Je vais tester
Merci
Lone-Wolf , je vais peux être percer le coffre fort grace au conseil de JM
Bruno

 

[Staple1600]

Re

youky(BJ)
Sache que cela n'est pas de tout repos
il faut saisir les balises BBCODE manuellement dans les messages
on doit passer par plusieurs étapes pour téléverser un fichier
les menus d'XLD qui apparaissent au survol de la souris sont désactivés.

Bref la navigation est moins fluide (mais à l'usage, je m'y suis fait )

 

[youky(BJ)]

J M ,
J'utilise Edge comme navigateur par défaut et JavaScript n'ai pas pris ni reconnu par Edge.
J'ai Chrome mais ne l'utilise plus.
C'est quand même bizarre qu'a partir du bloc-note le coller passe bien.
Les textes formatés ne sont pas reconnus dans certain logiciel
Bruno