Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion Gengiskhan
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

G

Gengiskhan

Guest
Bonjour le Forum,

Je vous sollicite parce que je souhaiterai appliquer ce code sur une plage, cellule par cellule...


Code:
Range("AP194").GoalSeek Goal:=0, ChangingCell:=Range("AM194")

genre :

for each cell.. cell+n

ou n = 1 a 55 en partant de AM194

Merki pour votre aide !
 
Re : VB petit code

re,

Tu veux quoi exactement : que la colonne j soit égal à 0 en faisant varier la colonne I
Si c'est le cas, la colonne I (valeur à modifier) sera toujours égal à la colonne H
 
Re : VB petit code

Si c'est cela, deux solutions :

Sub Essai()

'
For i = 14 To 20
'

Range("J" & i).GoalSeek Goal:=0, ChangingCell:=Range("I" & i)
Next i
End Sub

ou

Sub test()
Set plage = Range("J14:J20")
For Each cell In plage
a = cell.Address
Range(a).GoalSeek Goal:=0, ChangingCell:=Range(a).Offset(0, -1)
Next
End Sub
 
Re : VB petit code

Bonjour Chalet53,

Désolé je te répond un peu tard. Ta solution répond tout à fait à ma question. Merci beaucoup.

Et encore désolé si ma question était mal formulée.

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
256
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
588
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…