fonction =CELLULE("format";A2)

job75

XLDnaute Barbatruc

• 8 Octobre 2018

• #2

Bonjour nadia_42,

nadia_42 à dit:

j'ai un problème que je ne peux résoudre seul?

Cliquez pour agrandir...

seul ou seule ?

C'est pourtant simple :

Code:

[A1] = "=CELL(""format"",A2)"

A+

 

Vote positif 0 Vote négatif

nadia_42

XLDnaute Nouveau

• 8 Octobre 2018

• #3

Bonjour Job75
1-merci pour avoir corriger seul
2-merci pour ta repense

 

Vote positif 0 Vote négatif

nadia_42

XLDnaute Nouveau

• 8 Octobre 2018

• #4

Rebonjour tous le monde

je voudrais faire travailler ma matière grise
mais la je blocke voici la fonction


For i = 2 To 99 Step 1

sCase = Range("E" & i)
If sCase = "92" Then
Valeur = Sheets("Feuil6").Range("G" & i)
If Valeur = "IsText(Valeur)" Then <==ici en peut avoir aussi par exemple IsNumber(Valeur) ou CELL(""format"", Valeur)=""F2""
Valeur = (Valeur)
Else
Valeur = Format$(Valeur, "0.00")
End If

si quelqu'un a une idée ou me corriger
A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Octobre 2018

• #5

Re,

Votre code n'a aucun sens et ne permet pas de comprendre ce que vous voulez faire.

A+

 

Vote positif 0 Vote négatif

nadia_42

XLDnaute Nouveau

• 8 Octobre 2018

• #6

cher job75

mon code sert a écrire dans un fichier texte ligne après ligne

a la fin en



For i = 2 To 99 Step 1

sCase = Range("E" & i)
If sCase = "92" Then
Valeur = Sheets("Feuil6").Range("G" & i)
If Valeur = "IsText(Valeur)" Then <==ici en peut avoir aussi par exemple IsNumber(Valeur) ou CELL(""format"", Valeur)=""F2""
Valeur = (Valeur)
Else
Valeur = Format$(Valeur, "0.00")
End If

.writeLine Valeur

End If
If sCase <> "92" Then Exit For

j’espère que t'as compris
MERCI POUR TON ATTENTIONNNN

 

Vote positif 0 Vote négatif