Discussion :

[francoiscurtet]

bonjour à tous,

je débute avec VBA. Je travaille sous Excel 2010. J'ai mis en place un formulaire de suivi dans lequel est incorporé une liste déroulante avec saisie semi automatique. Cette liste a été crée à partir d'un tutoriel. Le principe est le suivant:
ajout de 3 colonnes dans mon tableau qui me sert de base de donnée:

Code formule :

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

1
2
3
=--ESTNUM(SIERREUR(CHERCHE('je cherche'!$D$4;K5;1);""))
=SI(L4=1;NB.SI($L$4:L4;1);"")
=SIERREUR(INDEX($K$4:$K$9;EQUIV(LIGNES($M$4:M4);$M$4:$M$9;0));"")

Puis dans le combobox, ajouté une formule de recherche

Code formule :

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

=$N$4:INDEX($N$4:$N$9;MAX($M$4:$M$9);1)

Ca marche plutôt bien! Par contre j'ai un bug d'affichage quand je clique pour choisir un article, le rectangle bleu de sélection reste même quand je sélectionne un autre onglet:




le bug apparait au moment ou j'ajoute la sélection dans un tableau:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Selectionner_article() 'Ajouter article à las liste des controles avec bouton
 
Range("B7").Select
Selection.End(xlDown).Select ' ctrl flèche vers le bas dernière ligne non vide
Selection.Offset(1, 0).Select ' première ligne vide = décallage d'une ligne vers le bas
 
ActiveCell = Range("B5")
 
Range("B8").Select
DLig = Range("B9").End(xlDown).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$" & DLig & ""
 
End Sub

Est-ce que vous auriez des idées d'où ça peut venir ?
Merci d'avance pour votre aide.

[Menhir]

On va commencer par supprimer les Select histoire d'écarter la piste d'une ambigüité.

Remplace ce code par :

Code :

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

1
2
3
4
5
Sub Selectionner_article()   'Ajouter article à las liste des controles avec bouton
    Range("B7").End(xlDown).Offset(1, 0).Value = Range("B5")
    DLig = Range("B9").End(xlDown).Row
    Range("B8").PageSetup.PrintArea = "$A$1:$K$" & DLig
End Sub

[francoiscurtet]

Bonjour,

j'ai remplacé le code, ça m'a mis une erreur sur le printarea "erreur 438" , je l'ai désactivé pour le test (ce n'est que du cosmétique). Avec

Code :

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

 ActiveSheet.PageSetup.PrintArea = "$A$1:$K$" & DLig

ça passe.

le bug d'affichage reste le même... donc ça ne vient pas du . Select

[Menhir]

j'ai remplacé le code, ça m'a mis une erreur sur le printarea "erreur 438" , je l'ai désactivé pour le test (ce n'est que du cosmétique). Avec

Code :

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

 ActiveSheet.PageSetup.PrintArea = "$A$1:$K$" & DLig

ça passe.

Ma faute.
A force de voir des Select partout, j'ai confondu ActiveSheet et ActiveCell, à cause du Range("B8").Select (qui ne sert à rien).

le bug d'affichage reste le même... donc ça ne vient pas du . Select

Etant donné qu'il n'y a rien dans ton code qui concerne un "rectangle bleu", je ne vois pas le rapport avec ton problème...

[francoiscurtet]

Bonjour,

je me demande si ça ne viens pas plutôt du mode de remplissage du combobox:

Code :

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

1
2
3
4
Sub ComboBox_chercher_Article_Change()
ComboBox_chercher_Article.ListFillRange = "Choix_article"
Me.ComboBox_chercher_Article.DropDown
End Sub

car quand je le mets en commentaire, je n'ai plus de bug d'affichage...

Dans "Choix_article" j'ai une liste de référence qui va chercher dans ma table

Code formule :

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

='Liste réduite'!$G$3:INDEX(Table_réduite[Grouper];MAX(Table_réduite[Position]);1)

Quelqu'un aurait une idée?