Discussion :

[Invité]

Ouvrez la fenêtre Exécution (Ctrl-G) , pouvez-vous me donner les lignes générées ?

[l.flipper]

[Invité]

Vous n'avez qu'une seule ligne ? Il faut remonter en tête de la fenêtre.

[l.flipper]

il n'y a que ça

[Invité]

il n'y a que ça

OK, je réfléchis.

[l.flipper]

Une ligne s'ajoute chaque fois que je lance la macro, j'ai le message d'erreur dès le premier total

[Invité]

Vos variables x, y, z sont typées variant (par défaut), elles peuvent prendre n'importe quel type. Déclarez les en Integer.

[l.flipper]

Fait pour x, y et ,z

L'erreur est sur le "CDbl(ValeurCellule)"

[Invité]

Est-ce que cette formule change quelque chose ?

Code :

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

1
2
 
TotalDu = TotalDu + Val(ValeurCellule)

[l.flipper]

Plus de message d'erreur, mais je récupère la valeur entière uniquement

[l.flipper]

[Invité]

Testez cette fonction :

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
 
Function TotalDu(ByVal TableauEnCours As Table, ByVal ColonneTotal As Integer) As Double
 
Dim I As Integer, J As Integer, K As Integer
Dim CellulesTotal As Cells
Dim MaValeurSansBlanc As String
 
    TotalDu = 0#
    Set CellulesTotal = TableauEnCours.Columns(ColonneTotal).Cells
    For I = 2 To CellulesTotal.Count - 1 ' Sauf la ligne Total
        With CellulesTotal(I)
             MaValeurSansBlanc = ""
             For J = 1 To Len(.Range.Text)
                 Select Case Mid(.Range.Text, J, 1)
                      Case Chr(32), Chr(160), Chr(7), Chr(13)
 
                      Case Else
                           MaValeurSansBlanc = MaValeurSansBlanc & Mid(.Range.Text, J, 1)
                 End Select
             Next J
             TotalDu = TotalDu + CDbl(MaValeurSansBlanc)
        End With
    Next I
    Set CellulesTotal = Nothing
 
End Function

[l.flipper]

Toujours incompatibilité de type avec le cdbl

[Invité]

Pouvez-vous mettre un exemple avec plusieurs lignes représentatives sans données confidentielles en ligne ?

[l.flipper]

Pouvez-vous mettre un exemple avec plusieurs lignes représentatives sans données confidentielles en ligne ?

Lignes du fichier excel ou du publipostage ?

[Invité]

Lignes du fichier excel ou du publipostage ?

Le publipostage.

[l.flipper]

chaque capture est un client différent

[Invité]

Je souhaitais tester un fichier .docm avec uniquement vos tableaux . Avec des images, cela va être difficile...

[l.flipper]

Je vous mets le fichier demain matin, il vous faut également les fichiers Excel qui servent de base ?

[Invité]

J

Oui, si vous pouvez.
Quel séparateur décimal avez-vous sur Excel ?