macro renvoyer la valeur d'une cellule à emplacement variable mais au contenu fixe

**djoce44** · 09/12/2012, 17h30

Bonjour,

je fais appel à vos lumières car je suis une burne en macro
j'ai réussi à trouver une macro qui résout une partie de mon problème mais je trouve pas pour le reste

Mon problème :

dans mon classeur sur une nouvelle feuille placée à la fin du classeur je veux lister le nom des onglets présent dans le fichier (ça c'est bon) et en face sur 3 autres colonnes le montant HT, la TVA et le montant TTC correspondant à l'onglet.
Simple vous allez me dire sauf que ces montants sont toujours en colonne O mais la ligne est variable d'un onglet à l'autre.

Dans le fichier joint en exemple il y a que quelque feuille mais il peut y'en avoir plus d'une centaine (çà aussi c'est variable d'un mois à l'autre)

Je pensait chercher la valeur "Total H.T." qui est toujours dans la colonne N ce qui donnera la ligne ainsi on peut lui dire de copier la valeur qui est dans la cellule (O;ligne) et ensuite décaler pour copier le montant TTC

ant qu'a faire comment je peux faire pour forcer le texte en police garamond 10 noir car a chaque fois il me remet en arial 12 (si j'ai pas de reponse pour cette partie c pas grave)

D'avance merci pour votre aide

**Philippe Tulliez** · 09/12/2012, 18h02

Bonjour,
Un petit exemple d'une recherche sur le texte "M.HT" se trouvant en colonne F de la feuille Feuil1 du classeur où se trouve le code VBA
La ligne Debug.Print rng.Offset(0, 1) affiche dans la fenêtre d'exécution la valeur de la cellule juste à droite de M.HT

Code :

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

1
2
3
4
5
6
 Dim sht As Worksheet
 Dim rng As Range, rngAmount As Range
 Set sht = ThisWorkbook.Worksheets("Feuil1")
 Set rngAmount = sht.Range("F:F")
 Set rng = rngAmount.Find(What:="M.HT", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns)
 Debug.Print rng.Offset(0, 1) ' Affiche la valeur de la cellule qui se trouve à droite

**djoce44** · 10/12/2012, 02h02

Merci pour ton aide

j'ai essayé d’intégrer et modifier ta formule mais sa bug et me laisse des messages d'erreur !!
désolé on peut pas être bon partout !!!

une autre idée ?

**Philippe Tulliez** · 10/12/2012, 06h53

Bonjour,

Des messages d'erreurs cela me laisse dubitatif. En principe VBA s'arrête à la première erreur.
Indiquer que cela bug et affiche un message d'erreur, sans en indiquer le numéro et à quel endroit du code ne fera pas avancer le schmilblick.
Soit plus précis si tu veux de l'aide et affiche le code que tu as testé.

**djoce44** · 10/12/2012, 07h37

Bonjour,

le code complet que j'ai c'est celui la (la première partie est celle que j'avais déjà et qui fonctionne la seconde est en partie la tienne)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub ListeOngletAvecLiens()
Dim i As Integer
Dim sht As Worksheet
Dim rng As Range, rngAmount As Range
 
For i = 1 To Sheets.Count
Cells(i + 2, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & Sheets(i).Name & "'" & "!A1", TextToDisplay:=Sheets(i).Name
 
Cells(i + 2, 2).Select
Set sht = ThisWorkbook.Sheets(i).Name
Set rngAmount = sht.Range("O:O")
Set rng = rngAmount.Find(What:="Montant H.T.", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns)
Debug.Print rng.Offset(0, 1)
 
 Next i
End Sub

Effectivement j'ai un message d'erreurs à la fois mais quand je dis DES messages d'erreurs c'est parce que j'ai essayé plusieurs choses et à chaque fois j'ai un bug (dsl)
Ça bug à la ligne de code 12, ça aime pas la formulation
J'ai aussi essayé avec ta formule mais pareil

J'ai essayé aussi

Code :

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

1
2
3
4
5
6
 
Cells(i + 2, 2).Select
Set sht = ThisWorkbook.ActiveSheet
Set rngAmount = sht.Range("O:O")
Set rng = rngAmount.Find(What:="Montant H.T.", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns)
Debug.Print rng.Offset(0, 1)

mais la c'est la dernière ligne qui n'est pas aimé (le Debug)

Merci

**Philippe Tulliez** · 10/12/2012, 13h59

Bonjour,
C'est si compliqué de donner le n° de message d'erreur ?
Alors d'après le code que je lis. D'après moi, ce n'est pas la ligne 12 mais la 13 qui pose problème.
En effet dans cette ligne, la propriété Name est de trop

Code :

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