Discussion :

[erlerwade]

Bonjour Forum,
je voudrai faire une concaténation de cellules.Je m'explique:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 To 28
            Enregistrement = Enregistrement & ";" & Sheets("Menu").Cells(21, i)
            Next i

je voudrai pas prendre en considération le compteur i=2 donc je voudrai pas prendre en compte dans ma boucle la cellue(21,2).
Autrement dit je voudrais boucler sur :
cells(21,1),cells(21,3)......cells(21,28) .
donc il me faut sauter cells(21,2)

Merci d'avance

[Bear the french]

Bonjour,

Si tu veux "ne pas avoir i = 2" alors :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For i = 1 To 28
            If i<>2 then
                Enregistrement = Enregistrement & ";" & Sheets("Menu").Cells(21, i).Value
            End if
Next i

Je ne sais pas si ça répond à ta question...

Bertrand

[jfontaine]

Bonjour,

En complément de Bear the french, dans ton code Enregistrement commencera toujours par ; alors qu'il me semberait plus juste que ce caractère de séparation soit uniquement entre chaque cellule concaténée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For i = 1 To 28
            If i<>2 then
               if Enregistrement <> "" then Enregistrement  = Enregistrement & ";"
                Enregistrement = Enregistrement & Sheets("Menu").Cells(21, i).Value
            End if
Next i

[mercatog]

Bonjour à tous, ou encore pour ce cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With Worksheets("Menu")
    Enregistrement = .Cells(21, 1).Value
    For i = 3 To 28
        Enregistrement = Enregistrement & ";" & .Cells(21, i).Value
    Next i
End With

[Philippe Tulliez]

Bonjour,
Une autre option avec JOIN. Valable uniquement pour ce cas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub JoinTable()
  Const Row As Byte = 21   ' Ligne de la feuille
  Const ColStart As Byte = 3 ' 1ère Colonne
  Const ColEnd As Byte = 28  ' Dernière Colonne
  Dim mytable
  Dim Letexte As String
  mytable = Range(Cells(Row, ColStart), Cells(Row, ColEnd))
  Letexte = Cells(Row, 1) & ";" & Join(WorksheetFunction.Index(mytable, 0, 0), ";")
  Debug.Print Letexte
End Sub

[EDIT]
Un seul argument suffit à la fonction INDEX

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Letexte = Cells(Row, 1) & ";" & Join(WorksheetFunction.Index(mytable, 0), ";")

[erlerwade]

bonjour,

merci pour vos réponses.
Mais j'ai toujours un message d'erreur , je pense que j'ai oublier de vous dire qu'avant de boucler j'avais cette ligne de code au dessus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Enregistrement = Requete.Fields(0).Value
For i = 1 To 28
            Enregistrement = Enregistrement & ";" & Sheets("Menu").Cells(21, i)
            Next i

Pour plus désinformation: je boucle sur cette plage de cellules sur excel en insérant les valeurs dans mon fichier texte dont le séparateur est un ";"

merci

[jfontaine]

et a quoi sert cette ligne si tu l'effaces juste en dessous ?

A noter que sans le numéro d'erreur, le descriptif de l'erreur et le code qu'il y a avant, impossible d'en dire plus

[erlerwade]

jfontaine ,
Voila toute l'histoire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Do While Not (Requete.EOF)
        If Requete.Fields(1).Value > 0 Then ' Test sur period
            Enregistrement = Requete.Fields(0).Value
            Enregistrement = Enregistrement & ";" & Requete.Fields(1).Value
            Enregistrement = Enregistrement & ";" & (1 / CDbl(Requete.Fields(2).Value))
 
            For CompA = 3 To 17
                Enregistrement = Enregistrement & ";" & Trait0(CDbl(Requete.Fields(CompA).Value))
            Next CompA
 
            Enregistrement = Enregistrement & ";" & Trait0(CDbl(Requete.Fields(17).Value) - CDbl(Requete.Fields(18).Value))
            Enregistrement = Enregistrement & ";" & Trait0(CDbl(Requete.Fields(19).Value))
            Enregistrement = Enregistrement & ";" & Trait0(CDbl(Requete.Fields(19).Value) - CDbl(Requete.Fields(20).Value))
            Enregistrement = Enregistrement & ";" & Trait0(CDbl(Requete.Fields(21).Value))
            Enregistrement = Enregistrement & ";" & Trait0(CDbl(Requete.Fields(21).Value) - CDbl(Requete.Fields(22).Value))
            Enregistrement = Enregistrement & ";" & Trait0(CDbl(Requete.Fields(23).Value))
            Enregistrement = Enregistrement & ";" & Trait0(CDbl(Requete.Fields(23).Value) - CDbl(Requete.Fields(24).Value))
            Enregistrement = Enregistrement & ";" & Trait0(CDbl(Requete.Fields(25).Value))
            Enregistrement = Enregistrement & ";" & Trait0(CDbl(Requete.Fields(25).Value) - CDbl(Requete.Fields(26).Value))
            Enregistrement = Enregistrement & ";" & Trait0(CDbl(Requete.Fields(3).Value) - CDbl(Requete.Fields(27).Value))
 
        Else
Enregistrement = Requete.Fields(0).Value
For i = 1 To 28
            Enregistrement = Enregistrement & ";" & Sheets("Menu").Cells(21, i)
            Next i
        End If

les 5 dernières lignes constituent le codes a changer en faisant la concaténation .

Merci

[jfontaine]

et l'erreur ?

[erlerwade]

Donc quand je remplace ces ligne de codes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 To 28
            Enregistrement = Enregistrement & ";" & Sheets("Menu").Cells(21, i)
            Next i

Par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For i = 1 To 29
            If i<>2 then
               if Enregistrement <> "" then Enregistrement  = Enregistrement & ";"
                Enregistrement = Enregistrement & Sheets("Menu").Cells(21, i).Value
            End if
Next i

La macro bloque a ce niveau de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Enregistrement = Enregistrement & ";" & Format(CDbl(Requete.Fields(2).Value), "0.000000")

En affichant ce message d'erreur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Erreur d’exécution '94'
Utilisation incorrecte de Null.

alors que la macro s’exécute sans erreur lorsque j'utilise pas la concaténation
Merci