Programmation VBA

Helimeleck@3 Messages postés 10 Date d'inscription dimanche 10 avril 2016 Statut Membre Dernière intervention 11 mai 2016 - Modifié par Helimeleck@3 le 3/05/2016 à 10:07
Helimeleck@3 Messages postés 10 Date d'inscription dimanche 10 avril 2016 Statut Membre Dernière intervention 11 mai 2016 -
Bonjour,

je débute à peine avec VBA et je voudrais créer une macro dans laquelle j'ai 4 champs Adresse , ville , pays et CP de sorte que lorsque je saisie l'adresse j'ai automatiquement le nom de la ville et du Pays qui apparaissent dans leur champs .

Besoin d'aide s'il vous plait!

voici mon début








3 réponses

Réponse 1 / 3
Arkana0 Messages postés 6365 Date d'inscription mercredi 11 février 2009 Statut Modérateur Dernière intervention 10 février 2023 182
3 mai 2016 à 10:19
Bonjour, n'aurais-tu pas plus vite fait de créer un tableau de correspondance Adresse - Ville - Pays - CP et ensuite d'utiliser la fonction RECHERCHEV() ?
0
Helimeleck@3 Messages postés 10 Date d'inscription dimanche 10 avril 2016 Statut Membre Dernière intervention 11 mai 2016
3 mai 2016 à 10:43
Comment tu t'y prends?
0
Arkana0 Messages postés 6365 Date d'inscription mercredi 11 février 2009 Statut Modérateur Dernière intervention 10 février 2023 182 > Helimeleck@3 Messages postés 10 Date d'inscription dimanche 10 avril 2016 Statut Membre Dernière intervention 11 mai 2016
Modifié par Arkana0 le 3/05/2016 à 11:00
Et bien tu crées ton tableau de correspondance dans un coin de la feuille, ou sur une feuille à part.
Je vais partir du principe qu'il est sur la même feuille, des colonnes A (adresse) à D (CP) pour la suite.

Là où tu veux que les infos se renseignent automatiquement, tu tapes la formule : 
=RECHERCHEV(La case avec l'adresse;$A$1:$B$x;y;FAUX)

Où x est la dernière ligne du tableau de correspondance et y la colonne de ce tableau à renvoyer.

Par exemple, si tu veux renvoyer la ville, il faudra y = 2. y = 3 pour le pays, etc.

Remarque : ça implique qu'une adresse corresponde à une seule ville pour que ça marche. Et ça n'est pas forcément le cas, ça c'est seulement toi qui le saura.

Le même principe peut s'appliquer en ne faisant le remplissage automatique qu'à partir de la ville, ou avec un autre critère tel qu'une référence.
0
Réponse 2 / 3
Helimeleck@3 Messages postés 10 Date d'inscription dimanche 10 avril 2016 Statut Membre Dernière intervention 11 mai 2016
3 mai 2016 à 11:01
Ok merci j'essaye et je te redis.
0
Réponse 3 / 3
Helimeleck@3 Messages postés 10 Date d'inscription dimanche 10 avril 2016 Statut Membre Dernière intervention 11 mai 2016
3 mai 2016 à 11:15
C'est bon sa marche merci, pour le tableau maintenant il faut faire un lien avec la macro.

0
Arkana0 Messages postés 6365 Date d'inscription mercredi 11 février 2009 Statut Modérateur Dernière intervention 10 février 2023 182
3 mai 2016 à 11:48
Deux possibilités : soit tu veux que ça change quand on y apporte une correction, dans ce cas il faudra utiliser une formule : 
Cells(x,y).FormulaLocal = "=RECHERCHEV(...)"

Et dans ce cas, attention aux variables qu'il faut insérer dans la chaîne de caractères.
Autrement : 
Cells(x,y).Value = vlookup(...)

Vlookup étant l'équivalent de recherchev() en vba.
0
Helimeleck@3 Messages postés 10 Date d'inscription dimanche 10 avril 2016 Statut Membre Dernière intervention 11 mai 2016 > Arkana0 Messages postés 6365 Date d'inscription mercredi 11 février 2009 Statut Modérateur Dernière intervention 10 février 2023
3 mai 2016 à 11:55
OK sa marche merci, j'essaie et je te redis .
0
Helimeleck@3 Messages postés 10 Date d'inscription dimanche 10 avril 2016 Statut Membre Dernière intervention 11 mai 2016 > Helimeleck@3 Messages postés 10 Date d'inscription dimanche 10 avril 2016 Statut Membre Dernière intervention 11 mai 2016
3 mai 2016 à 12:07
Arkana0, j'arrive pas à faire le lien!!!!!!!!!!!!!!
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur


'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

5 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

Bonjour,

Je cherche comment faire stopper de quelques secondes le déroulement de ma macro en vba excel et ceci de maniere invisible pour l'utilisateur.
Si quelqu'un à un bout de code ça serait sympa !!!

je suis en vba excel 2007

merci

Configuration: Windows XP / Internet Explorer 7.0

10 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

3 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll


Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

0 réponse