[Q] [VBA] Changer toutes les valeurs des cellules d'une zone de cellules
2 réponses
JCF
Re-Bonjour,
J'ai une série de zones de cellules (Zone1, Zone2, Zone 3, etc.) dont je
souhaite changer, zone après zone, les valeurs.
Y a t'il moyen de lancer VBA selon une syntaxe du genre ?:
For Each "Zone*"
Change la valeur des cellules
Effectue une série de calculs
Remets les cellules dans l'état où tu les as trouvées (si possible,
une sorte d'Undo)
Next Zone
Si oui, quelle serait cette syntaxe ?
Ben oui, si VBA comprenait mon charabia, j'en baverais moins pour programmer
;-)
Remarque: Y a t'il moyen de faire s'arrêter la macro sur toutes les zones
qui commencent par une certaine série de caractère (Zone...)?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JCF
J'avais écrit:
Re-Bonjour, J'ai une série de zones de cellules (Zone1, Zone2, Zone 3, etc.) dont je souhaite changer, zone après zone, les valeurs. Y a t'il moyen de lancer VBA selon une syntaxe du genre ?:
For Each "Zone*" Change la valeur des cellules Effectue une série de calculs Remets les cellules dans l'état où tu les as trouvées (si possible, une sorte d'Undo) Next Zone
Si oui, quelle serait cette syntaxe ? Ben oui, si VBA comprenait mon charabia, j'en baverais moins pour programmer ;-)
Merci d'avance pour votre aide Jean-Christophe
Beuuuuhhh, qu'est ce qu'il a mon post que personne veut y répondre? C'est un
sujet archi traité, vous en avez marre de me voir, ma demande est irréalisable ou bien? :-( Plus sérieusement, si l'un de vous avait un début de piste à me proposer, ça me sortirait bien du pétrin... Bonne soirée à tous! Jean-Christophe
J'avais écrit:
Re-Bonjour,
J'ai une série de zones de cellules (Zone1, Zone2, Zone 3, etc.) dont je
souhaite changer, zone après zone, les valeurs.
Y a t'il moyen de lancer VBA selon une syntaxe du genre ?:
For Each "Zone*"
Change la valeur des cellules
Effectue une série de calculs
Remets les cellules dans l'état où tu les as trouvées (si possible,
une sorte d'Undo)
Next Zone
Si oui, quelle serait cette syntaxe ?
Ben oui, si VBA comprenait mon charabia, j'en baverais moins pour programmer
;-)
Merci d'avance pour votre aide
Jean-Christophe
Beuuuuhhh, qu'est ce qu'il a mon post que personne veut y répondre? C'est un
sujet archi traité, vous en avez marre de me voir, ma demande est
irréalisable ou bien? :-(
Plus sérieusement, si l'un de vous avait un début de piste à me proposer, ça
me sortirait bien du pétrin...
Bonne soirée à tous!
Jean-Christophe
Re-Bonjour, J'ai une série de zones de cellules (Zone1, Zone2, Zone 3, etc.) dont je souhaite changer, zone après zone, les valeurs. Y a t'il moyen de lancer VBA selon une syntaxe du genre ?:
For Each "Zone*" Change la valeur des cellules Effectue une série de calculs Remets les cellules dans l'état où tu les as trouvées (si possible, une sorte d'Undo) Next Zone
Si oui, quelle serait cette syntaxe ? Ben oui, si VBA comprenait mon charabia, j'en baverais moins pour programmer ;-)
Merci d'avance pour votre aide Jean-Christophe
Beuuuuhhh, qu'est ce qu'il a mon post que personne veut y répondre? C'est un
sujet archi traité, vous en avez marre de me voir, ma demande est irréalisable ou bien? :-( Plus sérieusement, si l'un de vous avait un début de piste à me proposer, ça me sortirait bien du pétrin... Bonne soirée à tous! Jean-Christophe
AV
Beuuuuhhh, qu'est ce qu'il a mon post que personne veut y répondre? C'est un sujet archi traité, vous en avez marre de me voir, ma demande est irréalisable ou bien? :-(
Rien de tout ça.... De façon générale, quand il n'y a pas de réponse c'est qu'on ne comprend pas vraiment la question !
Une tentative d'interprétation de la question et ..... de réponse : Sub zzz() For Each c In Union([Zone1], [Zone2], [Zone3]) 'on mémorise la valeur mémo = c.Value ' on fait un calcul avec la valeur de chacune des cellules c.Value = c * 10 MsgBox c ' on rétablit la valeur d'origine c.Value = mémo Next End Sub
AV
Beuuuuhhh, qu'est ce qu'il a mon post que personne veut y répondre? C'est un
sujet archi traité, vous en avez marre de me voir, ma demande est
irréalisable ou bien? :-(
Rien de tout ça....
De façon générale, quand il n'y a pas de réponse c'est qu'on ne comprend pas
vraiment la question !
Une tentative d'interprétation de la question et ..... de réponse :
Sub zzz()
For Each c In Union([Zone1], [Zone2], [Zone3])
'on mémorise la valeur
mémo = c.Value
' on fait un calcul avec la valeur de chacune des cellules
c.Value = c * 10
MsgBox c
' on rétablit la valeur d'origine
c.Value = mémo
Next
End Sub
Beuuuuhhh, qu'est ce qu'il a mon post que personne veut y répondre? C'est un sujet archi traité, vous en avez marre de me voir, ma demande est irréalisable ou bien? :-(
Rien de tout ça.... De façon générale, quand il n'y a pas de réponse c'est qu'on ne comprend pas vraiment la question !
Une tentative d'interprétation de la question et ..... de réponse : Sub zzz() For Each c In Union([Zone1], [Zone2], [Zone3]) 'on mémorise la valeur mémo = c.Value ' on fait un calcul avec la valeur de chacune des cellules c.Value = c * 10 MsgBox c ' on rétablit la valeur d'origine c.Value = mémo Next End Sub
