Problème de bug

Version imprimable

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

Problème de bug

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:

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:

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

28/04/2013, 14h04
SfJ5Rpw8

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 ?
28/04/2013, 14h38
Pompaero

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.
28/04/2013, 14h57
SfJ5Rpw8

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 ...
28/04/2013, 17h28
Pompaero

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"
28/04/2013, 18h21
SfJ5Rpw8

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.

je viens de retourner le problème dans tous les sens, malheureusement pour moi aucun résultat.

Se que je cherche c'est des lors que j'effectu une recherche à l'aide de la combobox1 que le textbox2 récupère la ville au de dessus du ou des Nom/Prénom dans la feuil2, tout comme les textbox ci dessous:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 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é
Je pense qu'il faudrai adapter et simplifier (peu etre) mon code comme les textbox au dessus mais en cherchant le texte en noir comme en dessous.
Code:

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
enfin c'est ma pensée !!!
mais je suis complétement perdu.

Cordialement

29/04/2013, 09h46
Ashireon

Bonjour,

Je ne suis pas un pro mais colorindex est une palette référencé sur 56 Couleurs donc -4105 est forcement non référencé dans l'objet....

++
29/04/2013, 10h44
Pompaero

Bonjour Ashireon
et le forum

Merçi de ton aide et tes conseils, mais je viens d'essayer de changer le n° de référence colorindex mais cela me vide ma combobox2 qui correspond a ma liste des villes.

Je suis complétement perdu... :calim2:

Je pense que ma combobox2 se charge 2 fois dans mon fichier...
enfin je crois!!!

cordialement
29/04/2013, 10h53
Ashireon

Explique ce que tu veux faire dans ton bout de code spaghetti Ville ?

Merci
29/04/2013, 12h06
Pompaero

C'est bon spaghetti mais comme ça c'est embettant :).

Ben voilà
Je suis parti sur le principe d'ajouter les nom/prénom sous le nom de ville choisie dans une même colonne.

mon but est simplement récupérer le nom de la ville qui correspond au dessus de la personne sélectionnée.

soucis c'est que les nom de ville et les nom/prénom sont dans la meme colonne.

Pas trés claire tout ça !!! ;).

Pour que ce soit plus claire je met un fichier en piece jointe que j'ai gardé en secours et qui à évolué depuis.

Merçi pour l'aide

Cordialement.
29/04/2013, 12h35
Ashireon

1 pièce(s) jointe(s)

ESt ce que c'est le résultat voulu?
29/04/2013, 12h46
Pompaero

Excuse moi je n'arrive pas a ouvrir ton fichier "sous RAR"
29/04/2013, 12h48
Ashireon

1 pièce(s) jointe(s)

en zip peut être :-)

c'est bon j'ai pu l'ouvrir comme ça.

Toujours le BUG à cette formule quand je suis sur le tableau1 ou tableau2 et reviens sur Coordonnées.

le bug est en rouge pour info.

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
28
29
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
    Feuil1.TextBox5.Value = Feuil2.Cells(Lig, 6).Value
    Feuil1.TextBox6.Value = Feuil2.Cells(Lig, 7).Value
    Feuil1.TextBox7.Value = Feuil2.Cells(Lig, 8).Value
    Feuil1.TextBox8.Value = Feuil2.Cells(Lig, 9).Value
    Feuil1.TextBox9.Value = Feuil2.Cells(Lig, 10).Value
    Feuil1.TextBox10.Value = Feuil2.Cells(Lig, 5).Value
        '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

29/04/2013, 13h08
Ashireon

JE n'ai pas regarder tout le code mais change juste

Code:

Feuil2.Cells(Lig, 2).Font.ColorIndex = -4105

Par

Code:

Feuil2.Cells(Lig, 2).Font.Color = RGB(0,0,0)
29/04/2013, 13h45
SfJ5Rpw8

J'ai pas compris le fonctionnement de ton code ...

mais pour évite le bug
modifie ta ligne Goto :

Code:

if Lig > 0 then GoTo ville
29/04/2013, 14h14
Pompaero

Ashireon je viens d'essayer ta solution, ça marche comme je voudrai MAIS ça bug sur les autre formules comme sur :

le bouton créer et modifier

Bonjour bbil

je viens d'essayer également ta solution, Même chose que Ashireon
29/04/2013, 14h19
SfJ5Rpw8

Citation:

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 ?
29/04/2013, 16h37
Pompaero

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.

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