Discussion :

[thomas93]

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,

[Invité]

Salut Thomas93 et bienvenue sur ce forum

Perso, je n'est rien compris à ta demande

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

A+

[thomas93]

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 :

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

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 !

[SfJ5Rpw8]

bonjour,

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

Code :

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

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 :

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

Cell.offset(0,1)

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

[thomas93]

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 :

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

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

Comme ça ?

[SfJ5Rpw8]

la touche aurait pu t'aider pour offset :

Code :

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

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

[thomas93]

Je vous remercie beaucoup !

A+