Discussion :

[thirdeye]

Je voudrais savoir s'il est possible de définir que je veux inclure dans une recherche ma cellule sélectionnée + plus la cellule P dans le ligne sélectionnée ?

Cela complèterait ma formule qui suit pour être plus claire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub moteur_firefox()
Dim mavar As String
mavar = ActiveCell.Value & (" ") & [ici je veux la cellule "P" correspondant à la ligne que j'ai selectionnée]

Dim RetVal  As Long

    RetVal = Shell("C:\Program Files (x86)\Mozilla Firefox\firefox.exe " & "http://www.google.fr/search?q=" & Replace(mavar, " ", "+"))

End Sub

Merci

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mavar = range("A" & ActiveCell.row) &"+" &range("P" & ActiveCell.row)

[Gorfael]

Salut thirdeye et le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub moteur_firefox()
Dim mavar As String
Dim RetVal  As Long
mavar = ActiveCell.Value & " " & cells(activecell.row,"P") 
    RetVal = Shell("C:\Program Files (x86)\Mozilla Firefox\firefox.exe " & "http://www.google.fr/search?q=" & Replace(mavar, " ", "+"))
End Sub

Je comprends pas tout :
Pourquoi tu n'utilises pas directement ce que tu sembles avoir besoin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mavar = ActiveCell.Value & " + " & cells(activecell.row,"P"

Mais comme je ne sais pas ce que tu espères...
Nota : regroupe toutes tes déclarations au même endroit : ça ne change pas le fonctionnement, et ça permet de les retrouver plus facilement, alors que si tu en émailles ton code, ça devient vitepénible de les retrouver.
A+

[thirdeye]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mavar = range("A" & ActiveCell.row) &"+" range("P" & ActiveCell.row)

Ca marche. Merci pour l'aide

[Chipss]

Ca m'etonnerait que ce soit ce que tu veux!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
mavar = range("A" & ActiveCell.row) & "+" & range("P" & ActiveCell.row)

Je metterais ca plutot sinon tu fait ca directement avec une formule !

Dans les cellules de la colone Q par exemple tu met =A1 & "+" & P1 et ensuite tu ft descendre pr toutes les adapter...