macro valeur cible

Le
FabriceR
Bonjour,

J'aimerais faire une valeur cible en macro qui me fasse apparaitre une
message box avec la possibilité de rentrer la valeur à atteindre.

En fait j'aimerais pouvoir me positionner sur une cellule (qui serait la
cellule à modifier) et cliquer sur un bouton macro qui me demande quelle
valeur à atteindre et change la cellule à definir (qui est relative à ma
cellule selectionner, qui se situe 8 colonnes avant)

voila ma macro ecrite qui ne marche pas (et où il n'y pas de message box
pour la valeur a atteindre)

ActiveCell.Select
cellule = ActiveCell
chgcell = ActiveCell.Offset(0, -8)

Range("cellule").GoalSeek Goal:=0.03, ChangingCell:=Range("chgcell")

j'ai un probleme sur le chgcell, il n'accepte pas mon activecell.offset. et
je ne sait pas faire les messages box.
quelqu'un peut il me porter secours ??
merci beaucoup
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacquouille
Le #6785401
Bonsoir
Cet exemple entre la valeur définie dans la variable et la restitue à la
cellule A1.

msg = "Veuillez entrer votre phrase à analyser"
tittle = "Nombre d'occurences"
varmot = InputBox(msg, tittle, Default)
[a1] = varmot

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"FabriceR" %
Bonjour,

J'aimerais faire une valeur cible en macro qui me fasse apparaitre une
message box avec la possibilité de rentrer la valeur à atteindre.

En fait j'aimerais pouvoir me positionner sur une cellule (qui serait la
cellule à modifier) et cliquer sur un bouton macro qui me demande quelle
valeur à atteindre et change la cellule à definir (qui est relative à ma
cellule selectionner, qui se situe 8 colonnes avant)

voila ma macro ecrite qui ne marche pas (et où il n'y pas de message box
pour la valeur a atteindre)

ActiveCell.Select
cellule = ActiveCell
chgcell = ActiveCell.Offset(0, -8)

Range("cellule").GoalSeek Goal:=0.03, ChangingCell:=Range("chgcell")

j'ai un probleme sur le chgcell, il n'accepte pas mon activecell.offset.
et je ne sait pas faire les messages box.
quelqu'un peut il me porter secours ??
merci beaucoup






FabriceR
Le #6789641
Merci

ca m'a deja bien fait avancer.

mais j'ai toujours un souci au niveau de l'ecriture de la formule de valeur
cible:

msg = "Veuillez entrer le pourcentage à atteindre "
tittle = "Nombre d'occurences"
varmot = InputBox(msg, tittle, Default)
[k1] = varmot

ActiveCell.Select
cellule = ActiveCell
chgcell = ActiveCell.Offset(0, 8)

Range(cellule).GoalSeek Goal:="valeur", ChangingCell:=Range(chgcell)

il me fait une erreure au niveau des ranges. il n'accepte pas range
(cellule) comment dois je lui dire de faire reference a ce que j'appelle
cellule et chgcell.
Le "valeur" etant une cellule nommé sur ma feuille excel.

Merci




"Jacquouille" news:
Bonsoir
Cet exemple entre la valeur définie dans la variable et la restitue à la
cellule A1.

msg = "Veuillez entrer votre phrase à analyser"
tittle = "Nombre d'occurences"
varmot = InputBox(msg, tittle, Default)
[a1] = varmot

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"FabriceR" news: %
Bonjour,

J'aimerais faire une valeur cible en macro qui me fasse apparaitre une
message box avec la possibilité de rentrer la valeur à atteindre.

En fait j'aimerais pouvoir me positionner sur une cellule (qui serait la
cellule à modifier) et cliquer sur un bouton macro qui me demande quelle
valeur à atteindre et change la cellule à definir (qui est relative à ma
cellule selectionner, qui se situe 8 colonnes avant)

voila ma macro ecrite qui ne marche pas (et où il n'y pas de message box
pour la valeur a atteindre)

ActiveCell.Select
cellule = ActiveCell
chgcell = ActiveCell.Offset(0, -8)

Range("cellule").GoalSeek Goal:=0.03, ChangingCell:=Range("chgcell")

j'ai un probleme sur le chgcell, il n'accepte pas mon activecell.offset.
et je ne sait pas faire les messages box.
quelqu'un peut il me porter secours ??
merci beaucoup










Jacquouille
Le #6792771
Bonsoir
En principe, je ne cotoye pas le Grand Breton, mais il me semble que Bilou
et son fils Excel n'aiment pas les mots clés pris comme variable. Or, je
crois lire le mot "cellule" (cellule = ActiveCell)
Ensuite, une équipe qui marque un goal, puis un autre...et ensuite on
demande de changer???
Faut faire simple. Quand on est dans le cambouis, on est vite dans la
panade.
Pourquoi tout cela >>>>
ActiveCell.Select
cellule = ActiveCell
chgcell = ActiveCell.Offset(0, 8)
Pourquoi sélectionner la cellule active, puis aller 7 cases à droite?

Copie ici tout ton bout de code en expliquant bien ce que tu veux.
Il se trouvera toujours bien un grand bretophone dans le coin.

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"FabriceR" %
Merci

ca m'a deja bien fait avancer.

mais j'ai toujours un souci au niveau de l'ecriture de la formule de
valeur cible:

msg = "Veuillez entrer le pourcentage à atteindre "
tittle = "Nombre d'occurences"
varmot = InputBox(msg, tittle, Default)
[k1] = varmot

ActiveCell.Select
cellule = ActiveCell
chgcell = ActiveCell.Offset(0, 8)

Range(cellule).GoalSeek Goal:="valeur", ChangingCell:=Range(chgcell)

il me fait une erreure au niveau des ranges. il n'accepte pas range
(cellule) comment dois je lui dire de faire reference a ce que j'appelle
cellule et chgcell.
Le "valeur" etant une cellule nommé sur ma feuille excel.

Merci




"Jacquouille" news:
Bonsoir
Cet exemple entre la valeur définie dans la variable et la restitue à la
cellule A1.

msg = "Veuillez entrer votre phrase à analyser"
tittle = "Nombre d'occurences"
varmot = InputBox(msg, tittle, Default)
[a1] = varmot

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"FabriceR" news: %
Bonjour,

J'aimerais faire une valeur cible en macro qui me fasse apparaitre une
message box avec la possibilité de rentrer la valeur à atteindre.

En fait j'aimerais pouvoir me positionner sur une cellule (qui serait la
cellule à modifier) et cliquer sur un bouton macro qui me demande
quelle valeur à atteindre et change la cellule à definir (qui est
relative à ma cellule selectionner, qui se situe 8 colonnes avant)

voila ma macro ecrite qui ne marche pas (et où il n'y pas de message box
pour la valeur a atteindre)

ActiveCell.Select
cellule = ActiveCell
chgcell = ActiveCell.Offset(0, -8)

Range("cellule").GoalSeek Goal:=0.03, ChangingCell:=Range("chgcell")

j'ai un probleme sur le chgcell, il n'accepte pas mon activecell.offset.
et je ne sait pas faire les messages box.
quelqu'un peut il me porter secours ??
merci beaucoup














Publicité
Poster une réponse
Anonyme