Comment retrouver en VBA
coupidon
Messages postés
98
Statut
Membre
-
eriiic Messages postés 25847 Statut Contributeur -
eriiic Messages postés 25847 Statut Contributeur -
Bonjour,
Je souhaiterais en VBA, car je ne sais comment procéder
avec une textbox lorsqu'on le tape un code postal me retrouve le département automatiquement sur une combobox.
j'ai une feuil ou se trouve tout les départements sur la colonne A
et sur la colonne B les codes postaux qui leurs correspondent.
ex : en A1 et B1
Ain 1
Aisne 2
etc etc
dans la textebox, je veux inscrire un code postal complet du type 01200 ou 54000 ou 57150 etc, mais je veux diviser ce nombre par 1000 et que grâce à ce calcul les tranforme en 01,2 ou 54,0 ou 57,150 mais je veux garder que les nombres entiers qui donnerons 01 ou 54 ou 57 et que la combobox puisse retrouver dans la feuil ou se trouve les départements l'équivalence qui lui correspond.
pour résumer si je tape dans textbox un code postal du type "57400"
sur la combobox cela affichera automatiquement la "Moselle"
ou autre exemple : textbox "08200" sur la combobox "Ardenne"
je sais que cela est possible mais je comprend pas le VBA
merci au spécialiste
Je souhaiterais en VBA, car je ne sais comment procéder
avec une textbox lorsqu'on le tape un code postal me retrouve le département automatiquement sur une combobox.
j'ai une feuil ou se trouve tout les départements sur la colonne A
et sur la colonne B les codes postaux qui leurs correspondent.
ex : en A1 et B1
Ain 1
Aisne 2
etc etc
dans la textebox, je veux inscrire un code postal complet du type 01200 ou 54000 ou 57150 etc, mais je veux diviser ce nombre par 1000 et que grâce à ce calcul les tranforme en 01,2 ou 54,0 ou 57,150 mais je veux garder que les nombres entiers qui donnerons 01 ou 54 ou 57 et que la combobox puisse retrouver dans la feuil ou se trouve les départements l'équivalence qui lui correspond.
pour résumer si je tape dans textbox un code postal du type "57400"
sur la combobox cela affichera automatiquement la "Moselle"
ou autre exemple : textbox "08200" sur la combobox "Ardenne"
je sais que cela est possible mais je comprend pas le VBA
merci au spécialiste
A voir également:
- Comment retrouver en VBA
- Retrouver message supprimé whatsapp - Guide
- Comment retrouver son code de telephone - Guide
- Comment retrouver un numero supprimé - Accueil - Android
- Comment retrouver un film - Télécharger - Divers TV & Vidéo
- Retrouver une musique avec les notes - Guide
2 réponses
Bonjour
remplacez la macro
Private Sub TextBox7_Change()
par
Cdlt
remplacez la macro
Private Sub TextBox7_Change()
par
Private Sub TextBox7_Change()
' cette procédure permet de renseigner la cellule N8 en fonction de la donnée
' écrite dans le formulaire à la parti Code Postal
Sheets("BASE de DONNEE").Select
[N8] = TextBox7.Value
Select Case Left(TextBox7, 1)
Case 0
Dept = Mid(TextBox7, 2, 1)
Case Is <> 0
Dept = Left(TextBox7, 2)
End Select
Set c = Sheets("Départements").Columns("A").Find(Dept, LookIn:=xlValues)
If c Is Nothing Then Exit Sub
TextBox9 = c.Offset(0, 1).Value
End Sub
Cdlt
Bonjour,
attention, tu as des communes distribuées par un département voisin et le code postal ne correspond pas au département réel.
eric
attention, tu as des communes distribuées par un département voisin et le code postal ne correspond pas au département réel.
eric
je suis plus ou moins d'accord avec toi, le truc je veux juste retrouver le département pas la commune en faite...
en tapant exemple, 57100 ou 57000 ou 57520 ect... c'est pas les 3 derniers chiffres qui m’intéresse mais les 2 premiers le 57, et avec ça je dois retrouver le département correspondant au 57 en l’occurrence ici la moselle dans une feuille qui regroupe tout les département avec leur correspondance en chiffre...
en tapant exemple, 57100 ou 57000 ou 57520 ect... c'est pas les 3 derniers chiffres qui m’intéresse mais les 2 premiers le 57, et avec ça je dois retrouver le département correspondant au 57 en l’occurrence ici la moselle dans une feuille qui regroupe tout les département avec leur correspondance en chiffre...
Je te parle bien des 2 premiers chiffres.
Pour Saint-Pierre-Laval par exemple le code postal est 03250 ce qui te donne le département de l'Allier (03).
Seulement cette commune est en réalité dans la Loire (42), c'est son bureau distributaire qui est dans le département voisin (03).
https://fr.wikipedia.org/wiki/Liste_des_communes_de_la_France_dont_le_code_postal_ne_correspond_pas_au_d%C3%A9partement
Ca ne te gène peut-être pas mais je préférais te le signaler au cas où...
eric
Pour Saint-Pierre-Laval par exemple le code postal est 03250 ce qui te donne le département de l'Allier (03).
Seulement cette commune est en réalité dans la Loire (42), c'est son bureau distributaire qui est dans le département voisin (03).
https://fr.wikipedia.org/wiki/Liste_des_communes_de_la_France_dont_le_code_postal_ne_correspond_pas_au_d%C3%A9partement
Ca ne te gène peut-être pas mais je préférais te le signaler au cas où...
eric
pourquoi utiliser la textbox9 ?
comment s'affiche le résultat disons dans une nouvelle textbox15 par exemple...
si je comprend ton code, tu va chercher la valeur dans le textbox7 qui mettra sur la ligne en N8, après je comprend rien,lol
bref sa marche pas...
je vous donnes une exemple, sur la textbox7 je tape allez 76650
la textbox15 affiche seine-maritime
je pensais quand transforment les 5 chiffres de la textbox en 2 chiffres pourrait permettre de facilité la recherche dans la feuil Départements en faite...
donc dans l'exemple, le 76650 se transforme en 76 afin de pouvoir retrouver sur la ligne ou se trouve le 76 dans la feuil "Départements" le nom seine-maritime.
Mais je tiens pas à toucher à la donnée que j'inscrit dans la textbox et qui se retrouverais en N8, pour faire simple sur N8 je veux que cela reste 76650 et pas 76....
pour cela j'ai une feuill Départements qui à les correspondances, alors sur la colonne A j'ai les noms du département et en colonne B les chiffres de 1 à 95.
tout simplement....
bref sa marche pas... Chez moi, si
Comme il n'y a pas le fichier en pièce jointe et que je vous ai déjà répondu récemment sur un problème de textbox. J'ai supposé que vous travailliez toujours sur le même fichier.
Donc, faute de nouveau support, j'ai chercher à vous dépanner avec ce que j'avais à ma disposition, et les textbox concernées étaient la 7 pour le code postal et la 9 pour la ville. Si entre-temps, vous avez fait des modifications, il ne vous reste plus qu'à adapter ou bien remettre le nouveau fichier en pièce jointe.
voici le fichier...
par contre sur la textbox7 je tape un code postal complet,
mais le but c'est que la combobox ou été choisi le département peu être transformer en textbox pour afficher le département qui aura été trouvé avec les explications du dessus...
Private Sub TextBox7_Change() ' cette procédure permet de renseigner la cellule N8 en fonction de la donnée ' écrite dans le formulaire à la parti Code Postal Sheets("BASE de DONNEE").Select [N8] = TextBox7.Value Select Case Left(TextBox7, 1) Case 0 Dept = Mid(TextBox7, 2, 1) Case Is <> 0 Dept = Left(TextBox7, 2) End Select Set c = Sheets("Départements").Columns("A").Find(Dept, LookIn:=xlValues) If c Is Nothing Then Exit Sub ComboBox3 = c.Offset(0, 1).Value End Sub