Ligne de code trop longue

Résolu/Fermé

viret1290 Messages postés 137 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 - 14 févr. 2016 à 12:54
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 - 14 févr. 2016 à 21:23

Bonjour,

Voici ma ligne de code et j'aimerai rajouter
+ " " + FListeImpressionsPlusieursFiche.Cells(23, 3)
il me dit que ma ligne est trop longue comment puis-je faire.

merci

If FListeImpressionsPlusieursFiche.Cells(1, 1) = 16 Then
Feuil1.Cells(1, 1) = FListeImpressionsPlusieursFiche.Cells(6, 3) + " " + FListeImpressionsPlusieursFiche.Cells(7, 3) + " " + FListeImpressionsPlusieursFiche.Cells(8, 3) + " " + FListeImpressionsPlusieursFiche.Cells(9, 3) + " " + FListeImpressionsPlusieursFiche.Cells(10, 3) + " " + FListeImpressionsPlusieursFiche.Cells(11, 3) + " " + FListeImpressionsPlusieursFiche.Cells(12, 3) + " " + FListeImpressionsPlusieursFiche.Cells(13, 3) + " " + FListeImpressionsPlusieursFiche.Cells(14, 3) + " " + FListeImpressionsPlusieursFiche.Cells(15, 3) + " " + FListeImpressionsPlusieursFiche.Cells(16, 3) + " " + FListeImpressionsPlusieursFiche.Cells(17, 3) + " " + FListeImpressionsPlusieursFiche.Cells(18, 3) + " " + FListeImpressionsPlusieursFiche.Cells(19, 3) + " " + FListeImpressionsPlusieursFiche.Cells(20, 3) + " " + FListeImpressionsPlusieursFiche.Cells(21, 3) + " " + FListeImpressionsPlusieursFiche.Cells(22, 3)
End If

A voir également:

Ligne de code trop longue
Site de vente en ligne particulier - Guide
Partage de photos en ligne - Guide
Hors ligne instagram - Guide
Aller à la ligne excel - Guide
Code asci - Guide

2 réponses

Réponse 1 / 2

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
14 févr. 2016 à 21:23

Bonjour à tous les deux

Tu peux quand même faire plus simple

Dim k As Long, s As String
Dim FListeImpressionsPlusieursFiche ' à toi de préciser le type
With FListeImpressionsPlusieursFiche
  If .Cells(1, 1) = 16 Then
    s = ""
    For k = 6 To 23
      s = s & " " & .Cells(k, 3)
    Next k
    Feuil1.Cells(1, 1) = Right(s, Len(s) - 1)
  End If
End With

Cdlmnt

Réponse 2 / 2

viret1290 Messages postés 137 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 2
14 févr. 2016 à 13:16

il faut mettre en espace et _ et aller à la ligne

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

Statut « en ligne » alors que non

[référencement] Ne pas être référencé

Discussions similaires

Newsletters