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

MJ13

XLDnaute Barbatruc
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. ;)
 
Dernière édition:

Paf

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Administrateur
Modérateur
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?

VB:
'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

XLDnaute Barbatruc

Paf

XLDnaute Barbatruc
VB:
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

XLDnaute Barbatruc
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:

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

Paf

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Administrateur
Modérateur
Ç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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 851
dernier inscrit
vaiata