Problème de bug

**Pompaero** · 28/04/2013, 13h52

Bonjour le forum

Après plusieurs jours de recherche pour réssoudre mon problème, Je souhaiterai un peu d'aide sur le BUG de mon fichier que je compte évoluer.

Mon fichier présentes 3 feuilles, dés lors que je suis sur les feuil2 ou 3 et que je souhaite revenir sur la feuil1 celà BUG.
voiçi ou ça bug:

Code :

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

1
2
3
4
5
6
7
8
9
ville:
 If Feuil2.Cells(Lig, 2).Font.ColorIndex = -4105 Then
 Feuil1.TextBox2.Value = Feuil2.Cells(Lig, 2).Value
 Exit Sub
    Else
    Lig = Lig - 1
    GoTo ville
 End If
End Sub

puis le code complet:

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
Private Sub ComboBox1_Change()
    Dim Lig As Integer
    
Feuil1.TextBox1.Value = Feuil1.ComboBox1.Text

'recherche le nom et prénom dans la liste
    With Feuil2.Range("B:B")
        Set c = .Find(ComboBox1, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then Lig = c.Row
    End With

'renvoi les valeurs de tableau1 dans les differents textbox
    Feuil1.TextBox3.Value = Feuil2.Cells(Lig, 3).Value
    Feuil1.TextBox4.Value = Feuil2.Cells(Lig, 4).Value
        'plus si affinité

    'chargement des checkbox correspondant au nom choisi dans la combobox1
If Feuil4.Cells(Lig, 4).Value = 1 Then
   Feuil1.CheckBox1.Value = True
Else
   Feuil1.CheckBox1.Value = False
End If
    
If Feuil4.Cells(Lig, 5).Value = 1 Then
   Feuil1.CheckBox2.Value = True
Else
   Feuil1.CheckBox2.Value = False
End If
    'plus si affinité

ville:
 If Feuil2.Cells(Lig, 2).Font.ColorIndex = -4105 Then
 Feuil1.TextBox2.Value = Feuil2.Cells(Lig, 2).Value
 Exit Sub
    Else
    Lig = Lig - 1
    GoTo ville
 End If
End Sub

Dans l'attente je vous souhaite une bonne journée.

Cordialement

**SfJ5Rpw8** · 28/04/2013, 14h04

bonjour,

Cela veut dire quoi "cela Bug" .. tu n'as pas un message qui s'affiche sur ton écran ?

il ne faut pas utiliser Goto ... excepté pour la gestion d'erreur ...

quel est le but de ce code ?

**Pompaero** · 28/04/2013, 14h38

Bonjour Bbil

Si effectivement un message d'erreur s'affiche

Le bug est ce message :
Erreur d'exécution 1004
Erreur définie par l'application ou l'objet.

**SfJ5Rpw8** · 28/04/2013, 14h57

je suppose que cela se passe à la ligne 32 ...

au moment du débug clique sur le bouton continuer et passe ensuite la souris sur la variable Lig pour lire sa dans la bulle d'aide ...

**Pompaero** · 28/04/2013, 17h28

Je confirme ça se passe bien à ligne 32...

Désolé mais au moment du débug, je ne peux pas cliquer sur le bouton continuer (pas accésible).

Donc j'ai cliqué sur débegage puis passé la souris sur la variable Lig qui m'indique dans sa bulle "Lig=0"

**SfJ5Rpw8** · 28/04/2013, 18h21

et le problème vient de la il n'y as pas de ligne 0 dans une feuille de calcul excel !! revoit ton calcul du numéro de ligne.

**SfJ5Rpw8** · 29/04/2013, 14h19

Envoyé par bbil

bonjour,

Cela veut dire quoi "cela Bug" .. tu n'as pas un message qui s'affiche sur ton écran ?

il ne faut pas utiliser Goto ... excepté pour la gestion d'erreur ...

quel est le but de ce code ?

**Pompaero** · 29/04/2013, 16h37

Re bbil

c'est de récupérer le nom de la ville dans la textbox2 quand je sélectionne un nom avec la combobox1.

tu as essayé mon fichier ? quand tu quitte les feuilles tableau1 ou tableau2 et reviens sur feuille coordonnées, ça plante.

Erreur d'exécution 1004
Erreur définie par l'application ou par l'objet

bbil, re

je viens de réessayer ton code "if Lig > 0 then GoTo ville" et ça a l"air de fonctionner après qques essais, la raison pourquoi ça ne fonctionnai pas est simple, mes feuilles était protégées.

par contre quand je recherche un agent sur la feuil "coordonnées" ensuite passe sur feuil "tableau1 ou tableau2" puis reviens sur feuil "coordonnées" la textbox2 garde le nom de la dernière ville sélectionné.
Alors qu'à l'Activate de la feuill "coordonnées" les combobox1 et 2 sont Clear.

**SfJ5Rpw8** · 29/04/2013, 16h42

ben à l'activate de la feuille cordonnée efface tes texbox..

**Pompaero** · 29/04/2013, 17h22

bbil, Ashireon merçi a vous pour votre aide.

Je crois que je viens de trouver, après qques essais cela à l'air de fonctionner correctement comme je le souhaitai, reste à approfondir les essais quand même, je reste prudent!!

une erreur de ma part a du participer au bug, dans ma formule :
Sub worksheets activate
j'ai mis
feuil1.combobox2.clear
au lieu de
feuil1.combobox2=clear (le . à la du =)

en tout cas ça fonctionne mieux.

merçi encore à vous 2 puis le forum biensur.

Je mettrai RESOLU après mes essais approndi.

Cordialement