Discussion :

[Willyson]

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

[Quentin77170]

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 :

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

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 :

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

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

Quentin

[Quentin77170]

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

Code :

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

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 :

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

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"

[joe.levrai]

Bonjour,

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

Code :

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

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 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)

[Quentin77170]

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

[Willyson]

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

[joe.levrai]

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

[Willyson]

Super Merci Joel.levrai Ca marche
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