textbox

apdf1 · 10 Septembre 2011

Bonjour,

Je suis a la recherche du code suivant.

J'aimerais que si je rentre le N° de code postal dans la textbox se trouvant sur la feuil1et que les codes se trouvent dans la liste à la feuil2.

ex: le 01110 j'aimerais que dans la colonne" A" que l'on retrouve les code postal 01110 et que dans la colonne "B" on retrouve tous les noms des villes correspondante.

Ci-joint mon fichier exemple qui seras plus parlant

Je vous remercie d'avance

Cordialement
Max

job75 · 10 Septembre 2011

Re : textbox

Bonjour,

Dans le code de Feuil1 :

Code:

Private Sub TextBox1_Change()
Dim plage1 As Range, plage2 As Range
[A2:B65536].ClearContents
With Feuil2 'CodeName
  .AutoFilterMode = False
  Set plage1 = .Range("B1", .[B65536].End(xlUp))
  plage1.AutoFilter 1, TextBox1 'filtre automatique
  Set plage1 = plage1.SpecialCells(xlCellTypeVisible)
  .AutoFilterMode = False
  If plage1.Count = 1 Then Exit Sub
  Set plage1 = Intersect(plage1, .[2:65536])
  Set plage2 = plage1.Offset(, -1)
End With
plage1.Copy [A2]
plage2.Copy [B2]
End Sub

A+

job75 · 10 Septembre 2011

Re : textbox

Re,

Noter qu'on peut mettre sans problème les colonnes Code Postal au format spécial "Code Postal".

Normalement cela devrait diminuer le nombre d'octets utilisés.

A+

apdf1 · 10 Septembre 2011

Re : textbox

Bonjour Job75

Je te remercie beaucoup je suis de modifier un fichier d'une carte de France qui renseigne dans une ComBobox la région dans une autre le N° CP et le département et moi je suis entrain de faire en cascade une ComBobox vers les villes et après une ComBobox vers les cantons pas facile tous sa! du moins j'essaye avec l'aide des gens comme toi.

Si tu as toutefois un exemple de combobox en cascade je suis preneur.

Je te remercie d'avance et te souhaite un bon Week End

@+

Max

CHALET53 · 10 Septembre 2011

Re : textbox

Des exemples de listes en cascades (à adapter) en quantité ici :

Listes en cascade

a+

textbox

apdf1

XLDnaute Impliqué

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

apdf1

XLDnaute Impliqué

CHALET53

XLDnaute Barbatruc

Discussions similaires

textbox

apdf1

XLDnaute Impliqué

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

apdf1

XLDnaute Impliqué

CHALET53

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency