Concaténation de cellules

Version imprimable

09/07/2012, 11h39
erlerwade

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

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

Bonjour,

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

Code:

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

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:

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

Bonjour à tous, ou encore pour ce cas

Code:

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

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

Code:

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:

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

09/07/2012, 15h11
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:

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
09/07/2012, 15h21
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

jfontaine ,
Voila toute l'histoire:

Code:

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

09/07/2012, 15h37
jfontaine

et l'erreur ?

Donc quand je remplace ces ligne de codes:
Code:

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

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:

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

En affichant ce message d'erreur:
Code:

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

un peu méli mélo tes explications :mouarf:

Si "Requete.Fields(2).Value" retourne une valeur NULL il est normal que la conversion plante.

Il te fait faire un test avant
Exemple :
Code:

1 2 3 4 5 If isnull(Requete.Fields(2).Value) = false then Enregistrement = Enregistrement & ";" & Format(CDbl(Requete.Fields(2).Value), "0.000000") else Enregistrement = Enregistrement & ";" end if

09/07/2012, 16h47
erlerwade

Merci à tous!!!

Jfontaine l'erreur viens du fait que la valeur field.(2) était nulle; Merci particulièrement.