Discussion :

[barthe]

Bonjour à tous,

J"essai en vain de faire une formule sous Excel.

Voici ma problématique :

Je souhaite : -Pour chaque cellule de la colonne E vérifier si elle commence par "AV"
: -Si elle commence bien par "A*"
-Si la colonne F n'est pas égal à 0 Alors couper la valeur F pour la mettre en G tout en retirant le signe "-"
-Si la colonne G n'est pas égal à 0 Alors couper la valeur G pour la mettre en F tout en retirant le signe "-".

Vous avez le fichier en PJ.

Je ne sais pas si je me suis bien exprimer. Au cas ou je reposterais des explications.

Je bloque vraiment sur cette formule. Si vous avez une idée ou des pistes je suis preneur!

Merci pour le temps que vous accorderez à ma demande.

Cordialement,

[78chris]

Bonjour

Ton fichier n'est pas passé mais :

il n'est pas possible par formule d'agir sur la cellule qui contient la valeur : il faudrait des colonnes H et I qui recevrait soit F soit G selon tes conditions.

On peut masquer les colonnes F et G une fois la saisie faite pour ne voir que les valeurs reportées en H et I

Sinon il faut du VBA pour remplacer les valeurs de F et G...

[geogeo70]

Je ne pense pas qu'une vérification puisse se faire à la saisie des données ou alors il faudrait dans ce cas écrire directement les valeurs exactes!

Donc je ferais plutôt une macro qui analyse les données en colonne E et modifie les valeurs, en voilà un essai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub controle()
Dim colE As Range, cel As Range
 
Set colE = ActiveSheet.Range("E1:E3")   'définir la zone
 
For Each cel In colE                             'parcours des cellules
 If Left(cel.Text, 2) = "AV" Then
     If Cells(cel.Row, 6) <> 0 Or Cells(cel.Row, 7) <> 0 Then    
           If Cells(cel.Row, 6) <> 0 Then                                    ' -Si la colonne F n'est pas égal à 0
              Cells(cel.Row, 7) = Abs(Cells(cel.Row, 6))
              Cells(cel.Row, 6) = 0
           Else
              Cells(cel.Row, 6) = Abs(Cells(cel.Row, 7))                 ' -Si la colonne G n'est pas égal à 0
              Cells(cel.Row, 7) = 0
           End If
  End If
Next cel
End Sub

voici mon essai :rechav.xlsm

Je n'ai rien fait si ca ne commence pas par A mais on pourrait y ajouter une action.
avant :


après :


Bonne lecture

geogeo70