d'une formule si en VBA

[TEMAGOULTFARID]

bonjour,
j'ai un fichier avec pas mal de formule et que je passe tout doucement en vba pour des raisons pratique mais surtout pour protéger.
Ma question est la suivant:
est ce possible de passer cette formule =SI(ESTTEXTE(G13);1 en VBA ,G13 est la condition et H13 est le résultat attendu a savoir "1",cependant dans la macro est ce possible au lieur du "1" mettre un "a".
Une dernière, la formule est etendu a
G14 pour un résultat en H14
G15........
G16..........
G17........
G19......

Par avance, merci pour votre collaboration.
Bonne journée a vous toutes et tous
Cordialement

 

[Staple1600]

Bonjour le fil

Bah utilises l’enregistreur de macros pour transformer ta formule en VBA.
Tu la saisis dans une cellule plus tu cliques sur ENTER (tout en laissant tourner l'enregistreur)
Ensuite faire ALT+F11 pour voir le résultat obtenu.

 

[Staple1600]

Re

Sinon ta formule peut se simplifier en : =ESTTEXTE(G13)*1
et pour avoir un a à la place du 1 : =REPT("a";ESTTEXTE(G13))

 

[TEMAGOULTFARID]

M

Re

Sinon ta formule peut se simplifier en : =ESTTEXTE(G13)*1
et pour avoir un a à la place du 1 : =REPT("a";ESTTEXTE(G13))

Merci pour cette formule, par contre je n'ai pas saisie concernant la mise en forme VBA et surtout en ecriture.Merci Cordialement

 

[Staple1600]

Re

Sais-tu utiliser l'enregistreur de macros ?

 

[Staple1600]

Re

J'ai donc utilisé l'enregistreur de macros (pour avoir le code de départ)
puis j'ai modifié (voir ci-dessous)

Sub Remaniement_de_code()
'On part du code obtenu par l'enregisteur
'/////////////////////////////////////////////////////////
'Range("H13").Select                                     /
'ActiveCell.FormulaR1C1 = "=REPT(""a"",ISTEXT(RC[-1]))"  /
'/////////////////////////////////////////////////////////
'Pour transformer en ce qui suit
Dim dL&
dL = Cells(Rows.Count, "G").End(3).Row
Range("H13:H" & dL) = "=REPT(""a"",ISTEXT(RC[-1]))"
Range("H13:H" & dL) = Range("H13:H" & dL).Value ' pour supprimer les formules
End Sub

 

[TEMAGOULTFARID]

Re

J'ai donc utilisé l'enregistreur de macros (pour avoir le code de départ)
puis j'ai modifié (voir ci-dessous)

Sub Remaniement_de_code()
'On part du code obtenu par l'enregisteur
'/////////////////////////////////////////////////////////
'Range("H13").Select                                     /
'ActiveCell.FormulaR1C1 = "=REPT(""a"",ISTEXT(RC[-1]))"  /
'/////////////////////////////////////////////////////////
'Pour transformer en ce qui suit
Dim dL&
dL = Cells(Rows.Count, "G").End(3).Row
Range("H13:H" & dL) = "=REPT(""a"",ISTEXT(RC[-1]))"
Range("H13:H" & dL) = Range("H13:H" & dL).Value ' pour supprimer les formules
End Sub

Je te remercie beaucoup .
bonne journée et au plaisir