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.

**Pompaero** · 28/04/2013, 21h34

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 :

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

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 :

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

enfin c'est ma pensée !!!
mais je suis complétement perdu.

Cordialement

**Ashireon** · 29/04/2013, 09h46

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....

++

**Pompaero** · 29/04/2013, 10h44

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...

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

cordialement

**Ashireon** · 29/04/2013, 10h53

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

Merci

**Pompaero** · 29/04/2013, 12h06

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.

**Ashireon** · 29/04/2013, 12h35

ESt ce que c'est le résultat voulu?

**Pompaero** · 29/04/2013, 12h46

Excuse moi je n'arrive pas a ouvrir ton fichier "sous RAR"

**Ashireon** · 29/04/2013, 12h48

en zip peut être :-)

**Pompaero** · 29/04/2013, 13h02

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 :

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

**Ashireon** · 29/04/2013, 13h08

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

Code :

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

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

Par

Code :

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

Feuil2.Cells(Lig, 2).Font.Color = RGB(0,0,0)

**SfJ5Rpw8** · 29/04/2013, 13h45

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

mais pour évite le bug
modifie ta ligne Goto :

Code :

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

if Lig > 0 then   GoTo ville

**Pompaero** · 29/04/2013, 14h14

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

**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.

Problème de bug [XL-2007]

Macros et VBA Excel

Discussions similaires

Partager

Partager