Macro pour Rechercher Valeur

Bonjour,

Je travaille sur une macro qui pour fonctionner , a besoin d'une valeur se trouvant dans une cellule quelconque d'une feuille (cette valeur peut être mise dans n'importe qu'elle cellule mais toujours dans cette feuille) .

Je voudrais écrire un code qui récupère cette valeur dans la dite feuille , tout ce que j'ai comme donnée, c'est que ma valeur se trouve immédiatement en dessous d'une cellule qui contient le mot (TOTAL) mais cette cellule n'a pas de position fixe dans la feuille ce qui ne me facilite pas la tache.

Merci de votre aide

Salut à toi,

Tu pourrais utiliser la fonction FIND qui recherchera la cellule contenant "TOTAL".
Ensuite, tu utilises un offset d'une ligne pour utiliser la valeur qui est sous "TOTAL".

Par exemple :

Code:

---

1 2	Dim CellTotal As Range Set CellTotal = Sheets([le nom ou l'index de ta feuille]).Cells.Find("TOTAL").Offset(1,0)

---

Ainsi, ta variable CellTotal correspondra à la cellule située en dessous de TOTAL à la condition que seule une cellule contienne le mot TOTAL (sinon ça prendra la première que ça trouvera...)

Donc pour l'utiliser par la suite, tu as plus qu'à écrire par exemple :

Code:

---

MsgBox "Le total correspond à " & CellTotal.Value & " euros"

---

Quentin

D'ailleurs, si tu ne souhaites pas passer par une variable objet (CellTotal as Range) alors tu peux directement passer par ton total :

Code:

---

1 2	Dim Total As Double Total = Sheets([le nom ou l index de ta feuille]).Cells.Find("TOTAL").Offset(1,0).Value

---

Ou pour mêler les deux :

Code:

---

1 2 3 4 5

Dim CellTotal As Range Dim Total As Double Set CellTotal = Sheets([le nom ou l'index de ta feuille]).Cells.Find("TOTAL").Offset(1,0) Total = CellTotal.Value MsgBox "Le total correspond à " & Total & " euros"

---

Bonjour,

pour compléter la proposition de Quentin77170, ne pas oublier de tester l'existence du résultat

Code:

---

1 2 3 4 5 6 7

Dim CellTotal As Range Set CellTotal = Sheets("MaFeuille").Cells.Find("TOTAL").Offset(1,0) If Not CellTotal Is Nothing Then MsgBox "Le total correspond à " & CellTotal.Value & " euros" Else MsgBox "Aucune Cellule ne contient la valeur TOTAL" End If

---

Regarde bien l'aide :f1: au sujet de Find, histoire de spécifier l'intégralité des arguments de cette fonction.
Fortement conseillé, sinon VBA utilisera automatiquement les arguments utilisés lors de la dernières Recherche Effectuée (via Excel ou VBA)

Héhé, c'est vrai que j'y suis allé un peu soft... mais je trouve que parfois on surcharge un peu les réponses en donnant la portée de tous les arguments et ça noie le demandeur :)

Merci Quentin77170 et joel.levrai ,le code a fait ce que j'avais effectivement demandé mais en fait j'avais mal présenté le problème , je ne voulais pas récupérer la valeur de la cellule immédiatement en dessous de total mais plutot , sa plage de cellule (Exemple: si en dessous de Total on a 150 euros , je voudrais pas récuperer les 150 euros mais la référence de cette case genre B21 , C32)

Veuillez m"excuser
Merci d'avance de votre aide

La propriété .Value te donne la Valeur de la cellule
La propriété .Address te donne son .... devine :mrgreen:

Super Merci Joel.levrai Ca marche :lol:
J'ai une autre question et si je voulais en plus séparément avoir la colonne et la ligne de ma variable(Avec Adresse j'ai par exemple comme résultat B21 et si je veux d'une part avoir B et d'autre 21) , y a-t-il des fonctions pour ca?

Merci

Bon, dernières pistes sur ce sujet ... je te donne le graal en fin de message


La propriété .Value te donne la Valeur de la cellule
La propriété .Address te donne son ....
La propriété .Row te donne sa ...
La propriété .Column te donne sa ...




Graal : l'aide en ligne :f1:

application directe : recherches-y "Range, membres de l’objet"

bonne lecture ;)

Merci Joel.levrai
Ça marche super bien :lol: