un msgbox qui ne s'affiche pas

Version imprimable

Voir 40 message(s) de cette discussion en une page

Réfléchir avant d'agir: sentence merveilleuse dont je devrais me souvenir plus souvent :roll:

Bon j'ai changer d'optique et j'ai décider qu'il valait mieux écrire toutes les données manquantes dans une feuille excel plutôt que des msgbox ( quand il y a plus de trois données manquantes, je vous explique pas la galère :aie:).

Donc voici ce que je développe à la place

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
       'Anomalies
    Decal = 1
 
    Workbooks.Add
        With Range("A1:C1")
            .Font.Bold = True
            .HorizontalAlignment = xlCenter
        End With
        With Range("A1")
            .Value = "Marqueur"
            .Offset(0, 1) = "F"
            .Offset(0, 2) = "R"
                For j = 0 To i - 1
                    If Mat(j, 2) = "" Then  ' "F"
                        .Offset(Decal) = Mat(j, 0)
                        .Offset(Decal, 1) = "Néant"
                        Decal = Decal + 1
                    End If
                    If Mat(j, 3) = "" Then  ' "R"
                        .Offset(Decal) = Mat(j, 0)
                        .Offset(Decal, 2) = "Néant"
                        'Il n'y a lieu d'incrémenter Decal que si l'info pour "F" me manquait pas également
                        If Mat(j, 2) <> "" Then Decal = Decal + 1
                    End If
                Next
        End With

Quelqu'un voit un problème avec mon code ?
En tous cas il m'annonce une incompatibilité de type 5, étrange non ?

01/09/2008, 11h23
Godzestla

Salut

MAT() est de type recordset et tu compares avec un string.

Peut-être une piste. ;)
01/09/2008, 11h58
JackOuYA

Citation:

Envoyé par soria_t

...
En tous cas il m'annonce une incompatibilité de type 5, étrange non ?

Bonjour, Sur qu'elle ligne l'erreur .?
02/09/2008, 11h28
soria_t
Désolé pour le manque de réactivité, j'ai eu beaucoup de travail au labo hier.
Alors le problème de type 5 est résolu ne me demander pas comment (je me suis contentée de tester mon code sur une version plus vieille de mon programme. Ca marche presque mais je ne sais pas pourquoi :mouarf:).

Evidemment le monde n'est pas tout rose et mon code qui fait presque ce que je veux me renvoie dans une page Excel ça
Code:

1 2 3 4 5 6 Marqueur F R BGWY053 Néant BGWY055 Néant BGWY056 Néant Néant BGWY057 Néant Néant ...
Ce qui n'est pas du tout ce que je lui demande. Ou plutôt pas du tout ce que j'ai envie qu'il fasse.

Il est censé théoriquement me mettre dans cette page uniquement le nom des marqueurs problématiques(le fait qu'il m'y a pas de marqueur à cette endroit donc le néant en question) et continuer d'incrémenter la base derrière.

Ce qui est étrange c'est que la base est incrémenter jusqu'au premier marqueur probleme (ici BGWY054) mais pas après.

Si quelqu'un voit pourquoi ça ne fonctionne pas je suis preneuse

Voir 40 message(s) de cette discussion en une page