Discussion concernant la mise à jour du 22/02/2019

[David Aubert]

difference entre “Repondre“ et ”Poster une reponse“ si ce n est l endroit ou on ecrit ?
jean marie

Bonjour,
C’est la même chose.
Bonne journee
David

 

[Usine à gaz]

Bonjour DAVID, le Forum,

C'est tellement bien et beau que je crois que je vais dormir avec
Bravo pour ce travail excellent.
Amicalement,
Lionel,

 

[MJ13]

Bonjour à tous


Merci David pour cette nouvelle mouture du site.

J'aime bien les filtres qu'on peut appliquer sur les forums.

Par contre je trouve que les lettres de couleur sur la gauche quand il n'y a pas d'avatars surchargent le site et empêche de se concentrer sur les intitulés des posts. Un essai avec une couleur unique assez douce sur les lettres de gauche pourrait être testée pour comparer.

 

[Gardien de phare]

Bonjour à tous,
Je découvre... première impression positive. Joli coup de jeune.
Merci David

 

[Paf]

Bonjour à tous,

Quand on colle du code dans une discussion avec la mise en forme "VB" (pas essayé d'autres) il y a systématiquement une ligne vide entre chaque ligne de code.
C'est irrémédiable ? (sauf à supprimer les lignes manuellement) ou y a-t-il une solution ?

La nouvelle mouture doit être bonne, pas de post rageur !!!

 

[David Aubert]

Hello,

Moi perso je suis très satisfait de la nouvelle mouture, autant en navigation utilisateurs que la partie administration qui est topissime!!
Je viens de faire le test ci-dessous, j'ai pris du code VBA dans Excel et copié collé dans le bloc de code.
Je n'ai pas de lignes qui s'insèrent. Tu peux me préciser tes manipulations STP?

'Le Coffret des listes de Validation XLD / September 2003
'Sous-Listes Monique
Sub LienWeb1()
Dim Link As String
    Link = "http://www.excel-downloads.com/html/French/forum/messages/1_31466_31466.htm"
  On Error GoTo PasConnect
  ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
  Exit Sub
PasConnect:
  MsgBox "Impossible d'ouvrir " & Link
End Sub

Bonne soirée

David

 

[Paf]

Je viens de réaliser que ça se produit si je copie une partie d'un code dans un post, et que je la colle dans ma réponse.
je rajoute des lignes issues de excel ou manuelles.
Ca ne présente alors pas de lignes vides rajoutées.
Je coupe par CTRL+X et je clique sur la 12ème icône (de gauche à droite) et je colle ce que je viens de couper.

un exemple :
https://www.excel-downloads.com/threads/vba-afficher-un-msgbox-different-selon-saisie.20029268/

 

[David Aubert]

Je n'arrive pas à reproduire le bug... :-(

 

[Paf]

Private Sub CommandButton1_Click()

'rajout manuel

Dim i As Integer

Dim StartMonth As String, NextMonth As String

'Dim Montant As Long

Dim Montant As Single

Dim Divide As Integer

Dim ctr As Object


StartMonth = ComboBox1.Value

Montant = Me.TextBox13.Value

Divide = TextBox14.Value


'Controls("TxtBox" & i).Value = Val(Montant / Divide)

'rajout manuel

'TextBox1.Value = Val(Montant / Divide)

TextBox1.Value = Montant / Divide


End Sub

 

[Paf]

Le code issu de Excel

Private Sub CommandButton1_Click()
Dim i As Integer
Dim StartMonth As String, NextMonth As String
'Dim Montant As Long
Dim Montant As Single
Dim Divide As Integer
Dim ctr As Object
StartMonth = ComboBox1.Value
Montant = Me.TextBox13.Value
Divide = TextBox14.Value
'Controls("TxtBox" & i).Value = Val(Montant / Divide)
'TextBox1.Value = Val(Montant / Divide)
TextBox1.Value = Montant / Divide
End Sub

le même encapsulé de balise code vb:

Private Sub CommandButton1_Click()
Dim i As Integer
Dim StartMonth As String, NextMonth As String
'Dim Montant As Long
Dim Montant As Single
Dim Divide As Integer
Dim ctr As Object
StartMonth = ComboBox1.Value
Montant = Me.TextBox13.Value
Divide = TextBox14.Value
'Controls("TxtBox" & i).Value = Val(Montant / Divide)
'TextBox1.Value = Val(Montant / Divide)
TextBox1.Value = Montant / Divide
End Sub

le même issu du copier du texte entre les balises du code juste au dessus puis insertion de lignes vides ou commentaires puis Couper et coller dans la 12 ème icône.

Private Sub CommandButton1_Click()

Dim i As Integer

'insertion commentaire + ligne vide dessous


Dim StartMonth As String, NextMonth As String

'Dim Montant As Long

Dim Montant As Single

Dim Divide As Integer

Dim ctr As Object

StartMonth = ComboBox1.Value

Montant = Me.TextBox13.Value

Divide = TextBox14.Value

'Controls("TxtBox" & i).Value = Val(Montant / Divide)

'TextBox1.Value = Val(Montant / Divide)

TextBox1.Value = Montant / Divide

End Sub

J'aurais pu choisir un code plus court

 

[David Aubert]

Désolé je suis lourd mais qu'est ce que tu veux dire par "puis insertion de lignes vides ou commentaires "?

 

[Paf]

Pour réaliser le deuxième "bloc" balise VB, j'ai copié le texte entre balise du premier, je l'ai collé plus bas.
Après la ligne : Dim i As Integer, j'ai fait un retour à la ligne (touche Entrée ou Return)
et j'ai écrit sur cette nouvelle ligne: 'insertion commentaire + ligne vide dessous, suivi d'un retour à la ligne.

J'ai sélectionné l'ensemble, puis CTRL+X puis collage dans l'icône 12...

Mais ne te tracasse pas pour ça, apparemment ça n'arrive qu'à moi, ça vient peut-être de chez moi. Je vais voir de mon coté...

Merci de t'être penché sur mon souci.

 

[David Aubert]

Ça y est j'ai réussi! ;-)
Étonnant effectivement... Par contre je n'ai pas de solution.
En solution de contournement je te propose :
Il vaut mieux "Copier le code" puis appuyer sur l'icone 12 et coller ton texte.
Et tu fais les modifs après.
Ça évite ce problème ;-)
David

 

[Paf]

Ok,

Merci!