fonction =CELLULE("format";A2)

[nadia_42]

Bonjour tous le monde 🙂

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

le problème 🙁 est que :

comment écrire en langage vb la fonction:

=CELLULE("format";A2)

pour savoir si la cellule renvois D1 ou non.

si quelqu'un a une idée je le remercie infiniment.

en attendant vos réponses merci d'avance 😀

 

[job75]

Bonjour nadia_42,

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

seul ou seule ?

C'est pourtant simple :

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

A+

 

[nadia_42]

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

 

[nadia_42]

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+

 

[job75]

Re,

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

A+

 

[nadia_42]

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