Code illisible sans retour à la ligne.

Résolu
vaanbasch Messages postés 717 Date d'inscription lundi 28 juillet 2008 Statut Membre Dernière intervention 19 octobre 2024 - 25 juil. 2024 à 01:39
vaanbasch Messages postés 717 Date d'inscription lundi 28 juillet 2008 Statut Membre Dernière intervention 19 octobre 2024 - 28 juil. 2024 à 11:14

Bonjour,

Comment écrire un code lisible ici.

Mon exemple ici : https://forums.commentcamarche.net/forum/affich-38074592-bloque-sur-une-macro

Le code est illisible. Pas de retour à la ligne, ni rien.

Comment faire ?

Merci d'avance :)


Windows / Chrome 126.0.0.0


2 réponses

Bonjour

Un simple copier-coller sans mise en forme reproduit son texte:

Sub commission_test()

Dim wk_fichier1 As Workbook
Dim ws_fichier1feuil1 As Worksheet

Dim wk_fichier2 As Workbook
Dim ws_fichier2feuil1 As Worksheet
Dim lstrw As Long
Dim ligne_coller As Long

'définir les variables fichiers et onglets
Set wk_fichier1 = ActiveWorkbook
Set ws_fichier1feuil1 = wk_fichier1.Worksheets(1)

Set wk_fichier2 = Application.Workbooks.Open("\\XXX\Point candidature.xlsx")
Set ws_fichier2feuil1 = wk_fichier2.Worksheets(1)

'identifier dernière ligne colonne A fichier2feuil1
lstrw = ws_fichier2feuil1.Cells(Rows.Count, 1).End(xlUp).Row

ligne_coller = lstrw + 1

'copier coller cellules
ws_fichier2feuil1.Range("A") = fichier1feuil1.Range("A")
ws_fichier2feuil1.Range("B") = ActiveSheet.Range("B")
ws_fichier2feuil1.Range("C") = ActiveSheet.Range("J")
ws_fichier2feuil1.Range("D") = ActiveSheet.Range("Z")
ws_fichier2feuil1.Range("E") = ActiveSheet.Range("L")


End Sub

 Ou bien

Utiliser des balises,

ou bien  même la touche rapide "Insérer un extrait de code puis coller du "code mis en forme pour la programmation" dedans. (Ctrl + v pour coller).

 C'est presque parfait.

Voir les guides de rédaction sur ccm:

https://www.commentcamarche.net/infos/25911-forum-ccm-mode-d-emploi-astuces-et-conseils-de-redaction/

https://codes-sources.commentcamarche.net/faq/11288-poster-un-extrait-de-code

int compteur = 0;

while (compteur < 10)
{
    printf("Bienvenue sur OpenClassrooms !\n");
    compteur++;
}
1
vaanbasch Messages postés 717 Date d'inscription lundi 28 juillet 2008 Statut Membre Dernière intervention 19 octobre 2024 656
28 juil. 2024 à 01:28

Et bien merci :) 

0
jee pee Messages postés 40464 Date d'inscription mercredi 2 mai 2007 Statut Modérateur Dernière intervention 22 novembre 2024 9 425
28 juil. 2024 à 09:39

Bonjour,

C'est un bug actuel sur CCM, si pour le code on ne précise pas de langage, il n'y a pas de retour à la ligne https://forums.commentcamarche.net/forum/affich-38068262-bloc-de-code-perd-les-tabulations


1
vaanbasch Messages postés 717 Date d'inscription lundi 28 juillet 2008 Statut Membre Dernière intervention 19 octobre 2024 656
28 juil. 2024 à 11:14

Merci Jee Pee pour cette précision :)

0