[Résolu] VBA - Rechercher une valeur dans une ligne et renvoyer la colonne

[NeMoS]

Bonjour,

Je cherche la syntaxe correcte (car la mienne est semble-t-il très incorrecte vu que cela ne fonctionne pas) pour rechercher une valeur dans une ligne et renvoyer la colonne où se trouve cette valeur, tout en sachant que la colonne ainsi identifiée sera utilisée comme variable pour la suite de la macro....

J'espère être à peu près claire....

Je vous remercie par avance

Gwen

 

[Pierrot93]

Re : VBA - Rechercher une valeur dans une ligne et renvoyer la colonne

Bonjour,

un exemple ci dessous pour une recherche ligne 2 :

Dim x As Range
Set x = Range("2:2").Find("ValeurCherchée", , xlValues, xlWhole, , , False)
If Not x Is Nothing Then msgbox  x.Column

sans plus de détails ...

bon après midi
@+

Edition : bonsoir Robert🙂 lol
Aarf oublié le msgbox moi....

 

[Robert]

Re : VBA - Rechercher une valeur dans une ligne et renvoyer la colonne

Bonjour Gwen, bonjour le forum,

Peut-être comme ça (à adapter...) :

Dim r As Range
Dim col As Integer

Set r = Rows(ta_ligne).Find(ta_valeur, , xlValues, xlWhole)
If Not r Is Nothing Then col = r.Column

[Édition]
Ma ! Pierrot tou é plou rapide que Lucky Luke ! Porca la Madonna... Oui je sais : du calme Jo ! Du calme...

 

[NeMoS]

Re : VBA - Rechercher une valeur dans une ligne et renvoyer la colonne

Bonjour,

Merci pour la réponse.
Je pense que cela correspond à ce que je cherche...en partie 🙂

Mais je veux pouvoir utiliser la colonne identifiée dans la suite de ma macro c'est à dire est-ce que je peux utiliser le x.column tel quel (ou en passant par une variable) pour l'utiliser par ex comme suit :

For i=1 to 100
if range( "a"&i : x.column) = "1" then
do macro
end if

Encore merci

Gwen

 

[NeMoS]

Re : VBA - Rechercher une valeur dans une ligne et renvoyer la colonne

Ha ben j'ai répondu trop vite, je pense que j'ai ma réponse avec Robert....

Encore merci à vous deux

Gwen

 

[Pierrot93]

Re : VBA - Rechercher une valeur dans une ligne et renvoyer la colonne

Re,

peut être nous en dire un peu plus.... ceci n'est pas correct :

if range( "a"&i : x.column) = "1" then

regarde peut être du coté de "cells"....

 

[NeMoS]

Re : VBA - Rechercher une valeur dans une ligne et renvoyer la colonne

Oui, en fait j'ai corrigé et cela donne plutôt quelque chose comme

if sheets("Sheet1").cells(i,col).value = "1" 'où col=x.column et i une variable d'incrément pour la ligne

Merci !!

Gwen