un msgbox qui ne s'affiche pas

**soria_t** · 29/08/2008, 10h39

J'ai écrit un msgbox qui refuse de s'afficher vous auriez une idée pourquoi ?
Alors le reste de mon code fonctionne
C est le nom de la première occurence

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set cAutre = Cells.Find(What:="Séquences des amorces PCR", After:=c).Offset(1)
        cAutre.Select
        If Not cAutre Is Nothing Then
        Mat(i, 2) = Sequence(cAutre, "F")
        RSmarq!mar_seq_f = Mat(i, 2)
        Else: MsgBox "Il n'y a pas de séquence F" & c
        End If
        If Not cAutre Is Nothing Then
        Mat(i, 3) = Sequence(cAutre, "R")
        RSmarq!mar_seq_r = Mat(i, 3)
        Else: MsgBox "Il n'y a pas de séquence R" & c
        End If

Merci d'avance

**Godzestla** · 29/08/2008, 11h45

Salut

Else: MsgBox "Il n'y a pas de séquence F" & c

Ecrit comme clea, c'est une étiquette pour un GOTO, et pas un else.

la syntaxe correcte est

Code :

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

1
2
3
4
5
6
 
if condition then
  ....
 else
 ....
endf

et pas else:

**ucfoutu** · 29/08/2008, 11h52

Bonjour,

Nin
Le problème est ailleurs : cAutre n'est pas nothing ... ++>> pas de msgbox ...

**Godzestla** · 29/08/2008, 11h56

Nin
Le problème est ailleurs : cAutre n'est pas nothing ... ++>> pas de msgbox ...

. trop vite mais j'avais pensé à cette option sans checker...

bonne journée.

**soria_t** · 29/08/2008, 13h00

Je n'ai pas compris vos réponses.

Le problème est ailleurs : cAutre n'est pas nothing ... ++>> pas de msgbox

Mon test affiche le fait qu'il y a quelque chose dans cAutre
alors il récupère l'info
sinon il renvoie un msgbox avec le fait qu'il me manque des informations.

Ce n'est pas le cas ?

**ucfoutu** · 29/08/2008, 13h13

Envoyé par soria_t

Je n'ai pas compris vos réponses.

Mon test affiche le fait qu'il y a quelque chose dans cAutre
alors il récupère l'info

Bien ...

Maintenant : Qu'est donc le mot clé Nothing ? (petit tour à faire dans ton aide en ligne)...

Edit : je vais t'aider à comprendre (je préfère, en ce qui me concerne) à travers un petit exemple :

Une textBox Text1 et un bouton de commande Command1

Code :

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

1
2
3
4
5
6
Private Sub Command1_Click()
  Set toto = Text1
 If Not toto Is Nothing Then
   MsgBox "pas rien du tout, mais " & toto.Name & " meme si " & toto.Name & " ne contient rien"
 End If
End Sub

Réfléchis, ... à partir de là !

**soria_t** · 29/08/2008, 17h06

Et bien oui puisque j'ai besoin de passer par toutes les fiches qui démarrent par chaine1. Qui est définit comme "Nom du marqueur"

Voilà.

Je sais il y a un gros problème. Je fais des choses compliqué mais pour ce qui est simple je

.

Dur hein, mais ça ne m'explique pas comment contourner le problème du msgbox ?

**ouskel'n'or** · 29/08/2008, 17h07

J'ai corrigé ma réponse précédente. Jète un oeil

**soria_t** · 29/08/2008, 17h44

Qu'est ce que ça changerait fondamentalement dans mon code (à part 2 jours pour tout débugger

oui je suis aussi lente)

A propos je suis sous une version excel de 2002:

Je vous donne le code de la sub au complet vous comprendrez peut être mieux (moi et les explications on est pas copains

)

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
 
Private Sub Lecture()
Dim Chaine1$, NbOccurrences As Integer, Mat(), RSmarq As Recordset, RSgene As Recordset
Dim i As Integer, Pos As Integer, ListeChaines, j As Integer
Dim c As Range, cSuivant As Range, cAutre As Range
' Chaîne permettant de repérer le nombre de fiches et le nom du marqueur
Chaine1 = "Nom des marqueurs"
NbOccurrences = WorksheetFunction.CountIf(Range("A:A"), Chaine1 & "*")
' Adapatation de Mat(), utilisée pour stocker les données à reporter dans la base.
ReDim Mat(NbOccurrences - 1, 7)
' On initialise "c" comme la dernière cellule utilisée en colonne A. En effet, la méthode "Find" d'un objet "Range" (une plage de cellules) commence
' après la cellule indiquée comme référence. Si "c" était en ligne 1, c'est la seconde fiche qui serait trouvée en premier.
Set c = Range("A" & ActiveSheet.UsedRange.Rows.Count + 1)
' RSmarq pour la table "tbl_marqueurs", RSgene pour "tbl_gene"
Set RSmarq = DB.OpenRecordset("tbl_marqueurs")
Set RSgene = DB.OpenRecordset("tbl_genes")
'boucle permettant de passer par toutes les fiches
  For i = 0 To NbOccurrences - 1
  RSmarq.AddNew
    If RSmarq.RecordCount = 0 Then RSmarq!id_marqueur = 1
    ' Détermination de la cellule correspondant au début de chaque fiche, grâce à l'argument "After:=c"
    Set c = Cells.Find(What:=Chaine1, After:=c, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    Set cSuivant = Cells.FindNext(c)
    Pos = InStr(1, c, ":", vbTextCompare)
    Mat(i, 0) = Mid(c, Pos + 1 + IIf(Asc(Mid(c, Pos + 1, 1)) = 32 Or Asc(Mid(c, Pos + 1, 1)) = 160, 1, 0))
    RSmarq!mar_nom = Mat(i, 0)
    Set cAutre = Cells.Find(What:="Nom du gène", After:=c)
      If MemeFiche(c, cSuivant, cAutre) Then
      Pos = InStr(1, cAutre, ":", vbTextCompare)
      Mat(i, 1) = Mid(cAutre, Pos + 1 + IIf(Asc(Mid(cAutre, Pos + 1, 1)) = 32 Or Asc(Mid(cAutre, Pos + 1, 1)) = 160, 1, 0))
      RSgene.AddNew
      RSgene!gen_nom = Mat(i, 1)
      '            incrémente les deux bases et les mets en relation
      RSmarq!id_gene = RSgene!id_gene
      End If
   ....
 
  Set cAutre = Cells.Find(What:="Position de cartographie génétique", After:=c)
          If Not cAutre Is Nothing Then
            If MemeFiche(c, cSuivant, cAutre) Then
              Pos = InStr(1, cAutre, ":", vbTextCompare)
                If Pos <> Len(cAutre) Then
                  Mat(i, 6) = Mid(cAutre, Pos + 1 + IIf(Asc(Mid(cAutre, Pos + 1, 1)) = 32 Or Asc(Mid(cAutre, Pos + 1, 1)) = 160, 1, 0))
                  RSgene.Fields("CartoGen").Value = Mat(i, 6) & cAutre.Offset(1)
                End If
            End If
          End If
 
    RSgene.Update
    RSmarq.Update
 
  Next
End Sub

Non je vous ai épargné tous le code. encore merci pour vos réposes ça donne envie de continuer

**ouskel'n'or** · 29/08/2008, 17h50

Je reviens au msgbox piskecéd'çaconparle
Tu ajoutes cette ligne ici

Code :

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

1
2
3
4
5
            Loop While Not c Is Nothing And c.Address <> firstAddress And i < NbOccurrences - 1
          else
            MsgBox "Il n'y a pas de séquence F" & c
        End If
    End with

Bonne soirée

Edit

Envoyé par soria_t

Qu'est ce que ça changerait fondamentalementdans mon code

Ca bug chez moi mais c'est normal :p. A propos je suis sous une version excel de 2002

Pour le changement, seulement ta boucle for i = 1 to nboccurence -1 que tu remplaces par mon code.
Et ça fonctionne sous VBA-97 -> 2003... Après, chais pas

**soria_t** · 01/09/2008, 10h59

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

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

).

Donc voici ce que je développe à la place

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
       '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 ?

un msgbox qui ne s'affiche pas

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager