Je dois modifier une formule dans plus de 2500 cellules. La formule à la
même forme : =Section1!$B11 excepté la lettre ou le chiffre qui change.
Je voudrai transformer cette formule de =Section1!B11 vers
=ARRONDI(Section1!$B11;4).
J'ai fait plusieurs tentatives mais sans succès.
un de mes dernier essai ... :-(
For I = 1 To 10
Range("B" & I).Select
ValTxt = ThisWorkbook.Worksheets("Donnees").Range("B" & I).Value
ValTxtNouv = "ROUND(" & ValTxt & ";4)"
ActiveCell.Formula = ValTxtNouv
Next
Pourriez-vous me donner la formule magique qui me permettrait de faire cette
modification ?
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
MichDenis
Bonsoir Jacques,
With Worksheets("Données") .Range("A1:A" & Range("A65536").End(xlUp).Row).Formula = _ "=round(Section1!$B" & Rows(11).Row & ",4)" End With
Salutations!
"Jacques" a écrit dans le message de news: Bonjour,
Je dois modifier une formule dans plus de 2500 cellules. La formule à la même forme : =Section1!$B11 excepté la lettre ou le chiffre qui change. Je voudrai transformer cette formule de =Section1!B11 vers =ARRONDI(Section1!$B11;4). J'ai fait plusieurs tentatives mais sans succès.
un de mes dernier essai ... :-(
For I = 1 To 10 Range("B" & I).Select ValTxt = ThisWorkbook.Worksheets("Donnees").Range("B" & I).Value ValTxtNouv = "ROUND(" & ValTxt & ";4)" ActiveCell.Formula = ValTxtNouv Next
Pourriez-vous me donner la formule magique qui me permettrait de faire cette modification ?
Merci de vos réponses
Bonsoir Jacques,
With Worksheets("Données")
.Range("A1:A" & Range("A65536").End(xlUp).Row).Formula = _
"=round(Section1!$B" & Rows(11).Row & ",4)"
End With
Salutations!
"Jacques" <jac_be@hotmail.com> a écrit dans le message de news: OFLJ6pvOFHA.2144@TK2MSFTNGP09.phx.gbl...
Bonjour,
Je dois modifier une formule dans plus de 2500 cellules. La formule à la
même forme : =Section1!$B11 excepté la lettre ou le chiffre qui change.
Je voudrai transformer cette formule de =Section1!B11 vers
=ARRONDI(Section1!$B11;4).
J'ai fait plusieurs tentatives mais sans succès.
un de mes dernier essai ... :-(
For I = 1 To 10
Range("B" & I).Select
ValTxt = ThisWorkbook.Worksheets("Donnees").Range("B" & I).Value
ValTxtNouv = "ROUND(" & ValTxt & ";4)"
ActiveCell.Formula = ValTxtNouv
Next
Pourriez-vous me donner la formule magique qui me permettrait de faire cette
modification ?
With Worksheets("Données") .Range("A1:A" & Range("A65536").End(xlUp).Row).Formula = _ "=round(Section1!$B" & Rows(11).Row & ",4)" End With
Salutations!
"Jacques" a écrit dans le message de news: Bonjour,
Je dois modifier une formule dans plus de 2500 cellules. La formule à la même forme : =Section1!$B11 excepté la lettre ou le chiffre qui change. Je voudrai transformer cette formule de =Section1!B11 vers =ARRONDI(Section1!$B11;4). J'ai fait plusieurs tentatives mais sans succès.
un de mes dernier essai ... :-(
For I = 1 To 10 Range("B" & I).Select ValTxt = ThisWorkbook.Worksheets("Donnees").Range("B" & I).Value ValTxtNouv = "ROUND(" & ValTxt & ";4)" ActiveCell.Formula = ValTxtNouv Next
Pourriez-vous me donner la formule magique qui me permettrait de faire cette modification ?
Merci de vos réponses
MichDenis
Ou simplement ceci si tu connais l'étendue des cellules concernées.
With Worksheets("Données") .Range("B1:B10").Formula = _ "=round(Section1!$B" & Rows(11).Row & ",4)" End With
Salutations!
Ou simplement ceci si tu connais l'étendue des cellules concernées.
With Worksheets("Données")
.Range("B1:B10").Formula = _
"=round(Section1!$B" & Rows(11).Row & ",4)"
End With
