Formules VB dans zone nommée
Résolu
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
- Zone telechargement
- Alternative zone telechargement - Accueil - Outils
- Dark world telechargement - Guide
- Téléchargement - Télécharger - PDF
- Microsoft Word 2013 - Télécharger - Traitement de texte
- WinRAR - Télécharger - Compression & Décompression
9 réponses
Bonjour à tous les deux
As tu essayé comme ça ?
J'ai nommé plage la zone "F5:F16"
Sub Start()
Dim f As String, cel As Range
f = "=IF(RC[-2]<>3,""oui"",""non"")"
For Each cel In Range("plage")
cel.FormulaR1C1 = f
Next cel
End Sub
https://www.cjoint.com/c/MCAtonnxEcB
Cdlmnt
bonjour, ce sont des formules ou du code VBA, ou encore autre chose?
Bonjour Yg
Du code VBA.
Je veux réinitialiser ces formules dans mes 2 dernières colonnes périodiquement.
Merci !
J'ai du transformer un peu la formule pour que ça fonctionne :
[F5].FormulaR1C1 = "=IF(RC[-2]<>3,""oui"",""non"")"
"En colonne E" désigne bien toutes les cellules de la 5ème colonne.
Désolé je suis très lent ...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
En fait, via la macro, je dois implémenter cette formule dans toutes les cellules de la colonne E, de ma zone nommée "MonTableau"
Non, en colonne C.
Voici un exemple pour davantage de simplicité :
https://www.cjoint.com/c/MCApALnvMKv
Merci pour l'aide.
Non, ce n'est pas le problème.
On tourne en rond.
Ce n'est pas la formule qui me pose problème !
Peu importe la formule, celle-là ou une autre ...
L'objectif c'est de mettre une formule, quelle qu'elle soit, dans toutes les cellules de la colonne E, de ma zone nommée "MonTableau" ...
Et celà via VB. Je fais ceci pour réinitialiser les formules, ayant subi des effacements involontaires par des utilisateurs ...
Non, je n'ai pas essayé.
De toute évidence ça ne peut pas régler mon problème.
Je ne m'exprime peut-être pas bien, ou vous n'avez pas lu ma question.
Je suis désolé mais ça n'avance pas.
Bonjour ccm
Oui, c'est tout à fait ce que cherchais, merci beaucoup.
Carton plein.
Comme Cjoint fait disparaître les fichiers, je remets le code ici pour la postérité :
Sub Start()
Dim f As String, cel As Range
f = "=IF(RC[-2]<>3,""oui"",""non"")"
For Each cel In Range("plage")
cel.FormulaR1C1 = f
Next cel
End Sub
Encore merci et bonne soirée