Besoin d'aide - VBA

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:

---

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:

---

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,

Salut Thomas93 et bienvenue sur ce forum :ccool:

Perso, je n'est rien compris à ta demande :?

Un petit fichier avec le résultat escompté serait, je pense plus simple à comprendre

A+

Je m'en douté un peu.. ;)

Pour refaire, en plus simple :

A la base, j'ai fait une macro enregistrer qui est (en faisant valeurs cibles) :

Code:

---

Range("H5").GoalSeek Goal:=0, ChangingCell:=Range("D5")

---

Mais maintenant, j'aimerais :

Tester, cellule par cellule dans la colonne A, si "P" est inscrit, alors :
Effectuer ce calcul sur la ligne où P est inscrit.

Voilà c'est peut être plus clair ;)
Enfin je l’espère !

bonjour,

tu parle de tester si égal à P ? pourquoi ce code alors :

Code:

---

If Cell.Value = "c" Then

---

?

ensuite ton objet range : Cell , représente en chaque tour de cycle la cellule A de ta ligne en cours pour accéder aux autres colonnes de la même ligne tu peu utiliser "offset" ainsi pour la cellule b :

Code:

---

Cell.offset(0,1)

---

à toi de compter le nombre de colonnes d'écart pour tes autres cellules

Oups, parce que avant c'était "c" ... et j'ai oublié de modifier dessus..

D'accord, mais là où je bloque et je comprends pas comment faire c'est au moment de :

Code:

---

1 2 3

If Cell.Value = "P" Then   Range("Cell.offset (0,7)").GoalSeek Goal:=0, ChangingCell:=Range("Cell.offset (0, 3)")

---

Comme ça ?

:nono: la touche :f1: aurait pu t'aider pour offset :

Code:

---

Cell.offset(0,7).GoalSeek Goal:=0, ChangingCell:=Cell.offset(0,3)

---

Je vous remercie beaucoup !

A+