Besoin d'aide VBA excel

Bonjour,

Je dois faire de la qualification d'un fichier excel.

Je dois a partir d'un nom (cellule A1) et accessoirement une ville (cellule P1) faire une recherche sur google pour voir si une entreprise dispose d'un site web.

Pour l'instant j'utilise le code suivant

Code:

---

1 2 3 4 5 6 7 8

Sub moteur_firefox() Dim mavar As String mavar = ActiveCell.Value Dim RetVal As Long   RetVal = Shell("C:\Program Files (x86)\Mozilla Firefox\firefox.exe " & "http://www.google.fr/search?q=" & Replace(mavar, " ", "+"))   End Sub

---

Donc la en fait je peux soit chercher le nom soit la ville si je me positionne dans l'une où l'autre cellule.

Ce que j'aimerais c'est que je me positionne dans la cellule nom (A1), ma recherche sur google soit la suivante :
nom (A1) + ville (P1)

Sachant que j'ai 1500 ligne à qualifier et que le nom en A1 et associé à la ville P1,

et que le nom en A50 et associé a la ville situé en P1.

Est-ce possible ?

Merci de vos réponses

Salut thirdeye et le forum
Tu commences sur un sujet, et tu continues sur un autre ??? Continues sur le même fil, ça évitera de recommencer les explications à chaque fois, et à ceux qui ont commencé à t'aider de continuer.

Citation:

---

Sachant que j'ai 1500 ligne à qualifier et que le nom en A1 et associé à la ville P1, et que le nom en A50 et associé a la ville situé en P1.

---

Tout est possible (ou presque). Mais ne connaissant du problème que ce que tu veux bien donner, je ne comprends pas tout :
Il faut faire des couples (A1-P1, A2-P1,..., A1-Pn,...,An-Pn) ou la valeur en P nulle dit que le An doit être associé si la cellule P est vide, à la première ligne de P qui contient un nom de ville ?
A+

Ah oui pardon...

Donc en fait j'ai réussi à modéliser ce que je voulais et ce de cette façon pour ceux que ca interessera :

Code:

---

1 2 3 4 5 6 7 8

Sub moteur_firefox() Dim mavar As String mavar = ActiveCell.Value & (" ") & Range("Q" & ActiveCell.Row) Dim RetVal As Long   RetVal = Shell("C:\Program Files (x86)\Mozilla Firefox\firefox.exe " & "http://www.google.fr/search?q=" & Replace(mavar, " ", "+"))   End Sub

---

Je voulais une recherche à partir de ma cellule sélectionnée (exemple : A1 ) et de la cellule P dans la ligne sélectionnée.

Je sais pas si j'arrive à être clair

Tu n'as pas omis un espace (ou un plus) par hasard?
en A1: Alain en P1: Metz
tu auras mavar=AlainMetz

Bah nan il insere bie n l'espace avec le ' & " " & ' ...

Citation:

---

Envoyé par thirdeye

...

Code:

---

1 2 3 4

Sub moteur_firefox() ... mavar = ActiveCell.Value & (" ") & Range("Q" & ActiveCell.Row) ...

---

Je voulais une recherche à partir de ma cellule sélectionnée (exemple : A1 ) et de la cellule P dans la ligne sélectionnée.

Je sais pas si j'arrive à être clair

---

... 8O