VBA avec une recherche et récup de valeur

[ozzii]

Bonjour,
J'aurais besoin d'un code VBA pour faire une recherche sur une autre feuille et récupérer la valeur de la cellule en dessous de la cellule trouvée.

Cependant, comme j'ai une boucle

For Each ws In Application.Worksheets

dans mon code, il faudrait que cela soit pris en compte pour la formule.


Sinon une autre question. Pourquoi cela ne fonctionne pas ?
J'ai essayé cela mais ça ne fonctionne pas :

Sheets("Synthèse").Range("G" & i).Formula = "=SUM(' & ws.Name & '!G:G)"

mais ceci fonctionne (fait avec l'enregistreur de macro) :

ActiveCell.FormulaR1C1 = "=SUM('Feuil2'!C[3])"

 

[Modeste]

Re : VBA avec une recherche et récup de valeur

Bonjour ozzii,

Pour ta seconde question, essaie en ajoutant des guillemets:

Sheets("Synthèse").Range("G" & i).Formula = "=SUM('" & ws.Name & "'!G:G)"

Pour ce qui est du début de ton message, je n'ai même pas compris s'il y avait une question!? Ou alors, le début est en lien avec la suite
Des explications complémentaires pour ceux qui n'ont jamais vu ton fichier ne seraient sans doute pas de trop

 

[ozzii]

Re : VBA avec une recherche et récup de valeur

@Modeste
C'était bien les guillemets. Merci.

La première partie j'ai réussi à trouver c'était:
rgFound = Sheets(ws.Name).Range("A1:H100").Find("ACHAT TOTAL", LookIn:=xlValues)
Sheets(ws.Name).Range(rgFound.Address).Offset(1, 2)