Fonctionne si Fonction si?

Bonjour,

Dans le fichier excel joint, à la colonne D, je cherche à mettre de façon automatique 1 ou 0.

1 si les 5 premiers chiffres (uniquement) de la colonne C sont différents des 5 suivants chronologiquement (le nombre de cases vides étant aléatoire)

0 pour tous les autres cas

Merci d'avance pour votre aide!

ciao

Andrzej

Bonjour,

Je ne comprends pas bien se que tu souhaites obtenir.

Par exemple, dans ton fichier, je ne comprends pas pourquoi la case D7 vaut 0.

Cdt

Rémy

Hey! Merci pour ta réponse!

D7 vaut 0 parce que les 5 premiers chiffres de C5 ne sont pas différents de ceux de C7 (52466 pour les 2 cellules).

Ce qui m'intéresse, c'est d'avoir 1 si ces 5 chiffres sont différents de la cellule non vide précédente (ex: C3 avec C5)

J'espère que je suis un peu plus clair dans mes explications.

Si c'est encore flou, demande-moi. Je suis à ta dispo

En fait, j'ai =SI(GAUCHE(C10; 5)<>GAUCHE(C7;5);1;0) mais ça ne me donne pas la dernière cellule non vide. Le nombre de case vide étant aléatoire. Là, j'avoue que je bloque un peu...

Cordialement

Andrzej

Salut,

Avec une fonction personnalisé

A tester

Damien

Salut,

Sur ton fichier, c'est exactement le résultat que je recherche ( merci!!!!). En revanche, je recopie (bêtement?) la formule sur mon fichier et ça ne marche pas

Andrzej

Re,

Normal, c'est une fonction personnalisé (écrite en VBA)

Pour la mettre en place dans ton fichier EXCEL :

1 - Backup du fichier (on n'est jamais trop prudent)

2 - Ouvre ton fichier

3 - Fait sur le clavier : ALT+F11 (ouverture de l'IDE VBA)

4 - En haut a gauche de la fenêtre faire un click droit sur VBAProjects(NomfichierExcel) puis clique gauche sur insertion et Module

5 - Dans la partie supérieur Droite coller le code suivant :

Function compareXcarBas(myplage As Range) As Integer
Dim i As Double

i = -1
compareXcarBas = 1
If myplage.Value = "" Then compareXcarBas = 0
While myplage.Offset(i, 0).Value = "" And myplage.Offset(i, 0).Row > 1
    i = i - 1
Wend
If Left(myplage.Value, 5) = Left(myplage.Offset(i, 0), 5) Then
    compareXcarBas = 0
End If
End Function

Fermer I'IDE VBA en cliquant sur la croix

Dans excel la fonction devrait marcher.

Damien

Maintenant, je suis formel: Dieu existe.

Prochaine étape pour moi VBA!

Merci encore et @ +

Andrzej