Bonjour à tous,

J'appelle à vous car je n'ai pas de connaissance en VBA, uniquement quelques bases en VB.
Je travaille sur Excel 2003.


Voilà mon problème :

Je souhaite créer une macro permettant de faire :

Tester sur les une cinquantaines premières cellule de la colonne A si la cellule contient le caractère P, si elle contient, alors :
Établir le calcule suivant :

'
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 Touche de raccourci du clavier: Ctrl+q
'
    Range("H5").GoalSeek Goal:=0, ChangingCell:=Range("D5")
Mais cela pour toutes les lignes où il y a P dans la cellule de la colonne A. Et non, une instruction précise H5 ET D5 mais : à la même ligne que le P et avec H et D de cette même ligne.

Je sais pas si je suis très clair...

Pour l'instant voici mon travail :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub RechercheP()
 
    Dim Wb As Workbook
    Dim Ws As Worksheet
    Dim Cell As Range
 
    For Each Wb In Application.Workbooks
            For Each Cell In Ws.Range("A1:A50")
                If Cell.Value = "P" Then 
Range("H5").GoalSeek Goal:=0, ChangingCell:=Range("D5")
            Next Cell
        Next Ws
End Sub

Seulement, je pense qu'il faudrait plutôt que je passe par un
For i = 1 to 50
Tester ligne par ligne non ?

Cordialement,