SOS Formule exell

[yann729]

zebuloniens et niennes bonjours

 

 

je cherche une formule sous exell jai chercher 3 heures sans y parvenir si vous pouviez m aider merci

 

 

voila : si j ecris 0 en a1 que sa ecrive 0 mais que si j ecris 1 en a1 que sa ecrive la valeur de a3

 

 

merci a tous

[Phengizy]

Salut yann729,

Le plus simple - (tu dois former une cellule B1

En B1 - =si(a1=0;"";a3)

par ex: a1 = 0 -> b1 = rien et a1=1 -> b1 = a3

Peut-être avec une macro mais là

@+

[scuny]

avec macro c'est jouable.

 

via worksheetchange.

 

A+

[Sacles]

Bonsoir,

 

si j ecris 0 en a1 que sa ecrive 0 mais que si j ecris 1 en a1 que sa ecrive la valeur de a3

Ecrive où???

 

Supposons que c'est en B1:

 

=SI(A1=0;0;SI(A1=1;A3;""))

 

Il faut aussi fermer ton Si... Alors...Sinon...

 

Autrement dit, si A1 comprend autre chose que 0 ou 1 Alors???

 

Dans ma formule, Excel (et pas sa!!!)) n'écrit rien.

 

Salut.

Modifié le 19 novembre 2007 par Sacles

[Phengizy]

Sacles,

Supposons que c'est en B1:

 

=SI(A1=0;0;SI(A1=1;A3;""))

Pourquoi si compliqué ?

[Sacles]

Re,

 

"" ce n'est pas 0 mais une chaîne de caractères vide.

 

Essaye, par exemple dans D1, la formule =B1+C1 avec

 

0 en A1 et ta formule en B1

 

-------------

 

Et dans ta formule, que se passe-t-il si il y a 5 dans A1?

 

Salut.

Modifié le 19 novembre 2007 par Sacles

[yann729]

Salut yann729,

Le plus simple - (tu dois former une cellule B1

En B1 - =si(a1=0;"";a3)

par ex: a1 = 0 -> b1 = rien et a1=1 -> b1 = a3

Peut-être avec une macro mais là

@+

 

 

alors la je dis la classe man sa marche trop cool MERCIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII

[scuny]

arf, j'arrive encore après la bataille.

 

sinon, une autre soluce est de passer par les macros.

 

ce qui donne:

 

Sub test()
'déclaration de variable
Dim DerLigne As Integer
Dim ValCompare


'pour avoir la dernière ligne occupée de la colonne A
DerLigne = Cells(Cells.Rows.Count, "A").End(xlUp).Row

'pour avoir la valeur de la cellule de la dernière ligne
ValCompare = Cells("A" & DerLigne).Value


'comparaison de cettte valeur
If ValCompare = "0" Then

'ce que je fais si égale a 0
Cells("A" & DerLigne).Value = "0"
Else

'sinon je prend la valeur d'une autre cellule. ici sur la même ligne dans la colonne B.
Cells("A" & DerLigne).Value = Cells("B" & DerLigne).Value
End If


End Sub

 

ceci est a coller dans un module via l'éditeur de macro

 

pour le déclencher, il faut sélectionner la feuille voulue dans l'éditeur de macro, puis choisir changer général par worksheet (liste de gauche) puis choisir l'évènement change (liste de droite) <== le tout dans la fenêtre principale.

 

et rajouter le code suivant

 

call test

 

et voila. bien sur il faut adapter suivant tes besoins réel.

 

a+