Code VBA

Modeste

XLDnaute Barbatruc

• 24 Octobre 2011

• #2

Re : Code VBA

Bonjour marti,

Il s'agit apparemment d'une plage nommée "dynamique": dans ton fichier, au départ de la cellule A2 de la feuille "bd", on "redéfinit" une plage qui s'étend du point de départ vers le bas sur un nombre de lignes correspondant au nombre de cellules non-vides de la colonne A (moins le titre, vraisemblablement) et qui s'étend également sur 4 colonnes (la colonne en cours + 3 colonnes vers la droite, soit de la colonne A à la colonne D)

 

Vote positif 0 Vote négatif

M

marti

Guest

• 24 Octobre 2011

• #3

Re : Code VBA

Ok, mais pourquoi quand je modifie manuellement cette plage, le code ne fonctionne plus ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Octobre 2011

• #4

Re : Code VBA

Bonjour marti, salut Modeste 🙂

Si l'on veut utiliser cette formule en VBA, il faut utiliser la syntaxe anglaise.

Cette macro définit le nom Plage :

Code:

Sub Test()
ThisWorkbook.Names.Add "Plage", "=OFFSET(bd!$A$2,,,COUNTA(bd!$A:$A)-1,4)"
End Sub

A+

 

Vote positif 0 Vote négatif

M

marti

Guest

• 24 Octobre 2011

• #5

Re : Code VBA

Je suis d'accord cela fonctionne, mais je ne comprend toujours pas pourquoi quand je modifie la plage cela ne fonctionne plus.

Voici le tuto en question !

Help Me

MErci d'avance

 

Pièces jointes

• Copie de FormCascade3Niveaux2-1.xls

  105 KB · Affichages: 67
• Copie de FormCascade3Niveaux2-1.xls

  105 KB · Affichages: 68
• Copie de FormCascade3Niveaux2-1.xls

  105 KB · Affichages: 69

Vote positif 0 Vote négatif

M

mikeo

XLDnaute Occasionnel

• 24 Octobre 2011

• #6

Re : Code VBA

Bonjour à tous, Modeste, Job 75

@marti
On peut continuer comme cela pendant longtemps, tant que tu ne montres pas ton fichier. Ce qui est sûr, c'est que que l'erreur ne vient pas du tuto de JB. Donc cela vient de ton fichier. Comment veux-tu qu'on devine où tu as fait l'erreur ?

Mikeo

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Octobre 2011

• #7

Re : Code VBA

Re,

Vous avez renommé la feuille "BD" en "base", cela ne pose aucun problème.

Le nom défini BD s'est redéfini automatiquement par :

Code:

=DECALER(base!$A$2;;;NBVAL(base!$A:$A)-1;4)

Il ne faut surtout pas changer le nom ("BD") de ce nom, le code de Boisgontier ne fonctionnerait plus.

Il faudrait nous dire exactement ce qui vous chiffonne 🙂

A+

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 24 Octobre 2011

• #8

Re : Code VBA

Re-bonjour marti,
Salut job 🙂

@marti: il faut que tu sois plus précis ... que veux-tu dire par

quand je modifie la plage

Cliquez pour agrandir...

et

cela ne fonctionne plus

Cliquez pour agrandir...

... Comment modifies-tu, qu'est-ce que tu modifies et qu'est-ce qui ne fonctionne plus 😕

Edit: bonjour mikeo. C'est dingue, quand même: on lit 3 lignes de code (ou un peu plus 🙂) et tout le monde reconnaît la "patte" de JB.

 

Dernière édition: 24 Octobre 2011

Vote positif 0 Vote négatif

M

marti

Guest

• 24 Octobre 2011

• #9

Re : Code VBA

c'est vrai que je ne suis pas claire ... je souhaite rajouter une colonne ! ou plusieurs ... Mais quand je modifie cela la macro de filtre automatique ça e fonctionne plus, je n'arrive pas a afficher dans ma listebox les resultats ! De plus quand a partir d'un certain nombre de ligne la plage ne s’étend plus ... J’espère avoir été assez claire, je suis débutant je ne connais pas le vocabulaire technique ...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Octobre 2011

• #10

Re : Code VBA

Re marti,

Il y a 4 ComboBox, une pour chaque colonne du tableau.

Et il y a une macro pour chaque ComboBox !

Débutant, vous vous lancez sur des problèmes que beaucoup, même chevronnés, ne maîtrisent pas.

A+

 

Dernière édition: 24 Octobre 2011

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Octobre 2011

• #11

Re : Code VBA

Re,

On n'avait pas bien compris votre problème, mais maintenant je comprends ceci :

- vous ne voulez pas augmenter le nombre de ComboBox (4)

- vous avez juste ajouté une 5ème colonne pn (colonne E) au tableau

- tout ce que vous voulez c'est afficher cette colonne supplémentaire dans la ListBox.

Alors voici ce qu'il faut faire :

1) ne pas modifier la définition du nom BD (tableau dynamique de 4 colonnes) :

Code:

=DECALER(base!$A$2;;;NBVAL(base!$A$1:$A$65536)-1;4)

2) définir le nom Base (tableau de 5 colonnes) par :

Code:

=DECALER(BD;;;;5)

3) dans la macro filtre remplacer cette ligne :

Code:

For k = 1 To [bd].Columns.Count

par :

Code:

For k = 1 To [Base].Columns.Count

4) mettre la propriété ColumnCount de la ListBox à 5

5) ajuster les largeurs des colonnes de la ListBox (propriété ColumnWidths)

Fichier modifié joint.

A+

 

Pièces jointes

• marti(1).xls

  105.5 KB · Affichages: 106

Vote positif 0 Vote négatif

M

marti

Guest

• 24 Octobre 2011

• #12

Re : Code VBA

Merci beaucoup de s’être autant intéressé à mon problème, je vais potasser cela ce soir , je vous tiens au courant 🙂

Encore merci !

MArti

 

Vote positif 0 Vote négatif