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

NeMoS

XLDnaute Junior
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
 
Dernière édition:

Pierrot93

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

Bonjour,

un exemple ci dessous pour une recherche ligne 2 :
Code:
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....
 
Dernière édition:

Robert

XLDnaute Barbatruc
Repose en paix
Re : VBA - Rechercher une valeur dans une ligne et renvoyer la colonne

Bonjour Gwen, bonjour le forum,

Peut-être comme ça (à adapter...) :
Code:
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...
 
Dernière édition:

NeMoS

XLDnaute Junior
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

XLDnaute Junior
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
 

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson