Discussion :

[lutin06]

Bonjour a tous,

J'ai un tableau de la forme suivante :



La colonne A contient un nombre a 5 chiffres
La colonne B est vide
La colonne C contient une suite de caracteres : 2 espaces, un nombre a 5 chiffres, un underscore puis une suite de caracteres.

Mon but est de comparer le nombre de la colonne A avec celui de la colonne C. Si ils sont identiques, j'inscris OK dans la colonne D, sinon j'inscris NON OK dans la colonne D.

Comment faire cela ?

Merci

[linda15975]

Essaye avec la fonction mid:

Code :

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

Mid(texte, 3, 5)

Cela récupère dans texte, à partir du 3ème caractère, sur une longueur de 5 caractères.


Je suis pas si je suis claire. N'hésite pas demander des explications

[Pierre Fauconnier]

Salut

Sans VBA, tu peux utiliser la formule suivante

Code :

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

=SI(TEXTE(A1;"00000")=STXT(C1;3;5);"OK";"NON")

Avec VBA, tu peux utiliser

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Verifier()
    Dim i As Integer
    For i = 1 To 10 ' Balaie les 10 premières lignes
        If CStr(Range("a" & i)) = Mid(Range("c" & i), 3, 5) Then
            Range("d" & i) = "OK"
            Else
            Range("d" & i) = "NON"
        End If
    Next i
End Sub

Tu noteras qu'il est préférable de transformer la valeur numérique de A en chaine de caractères.
Ok?

[romrai]

une autre possibilité; si t'es sûre que dans ta colonne c le nombre sera toujours égal à 5 chiffres:

Code :

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

1
2
3
MyStr = Left(Cell_C, 5)
 
'MyStr contient tes cinq chiffres

'cell_c représente ta suite de caractère de la colonne c

[linda15975]

romrai, je crois que tu as oublié qu'il y a 2 espaces avant le nombre dans la colonne C, ce qui fait que tu n'obtient que les 3 premiers chiffres!

[romrai]

Sorry t'a raison; dans ce cas le 5 serait plutôt 7

merci pour la remarque

[Theocourant]

Salut,

Ya un mix pour la solution avec fonction Trim qui retire les espaces surnuméraires de chaque côté d'une chaîne de caractère:

Code :

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

1
2
3
4
 
MyStr = Left(Trim(Cell_C), 5)
 
'MyStr contient tes cinq chiffres

+

Théo

[Pierre Fauconnier]

Avez-vous testé ma solution?

[EDIT] Partie supprimée pour délestage [/EDIT]

Code :

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

mid(range("c" & i),3,5)

renvoie une chaine de 5 caractères commençant à la troisième position de C(i)...
C'est pourquoi je compare cela avec cstr(range("a" & i)

En tout cas, il me semble que selon l'exposé du problème, le code que j'ai proposé fonctionne, pour autant que la syntaxe des cellules en C soit toujours la même , à savoir deux espaces puis 5 chiffres puis la suite...

romrai, il me semble qu'il serait judicieux que tu testes tes réponses...
changer le 5 en 7 ne solutionne en rien le problème

[lutin06]

Deja merci pour vos reponses, vous etes rapides

J'ai donc tester les differentes solutions, et voici mon code de test :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim z As Integer
z = Base.Worksheets(1).UsedRange.Rows.Count
 
For Ctr = 5 To z
 Mystr = Left(Trim(Base.Worksheets(1).Cells(Ctr, 3)), 5)
 If (Base.Worksheets(1).Cells(Ctr, 1) = Mystr) Then
  Base.Worksheets(1).Cells(Ctr, 4).Value = "OK"
 Else
  Base.Worksheets(1).Cells(Ctr, 4).Value = "NON OK"
 End If
Next

Le probleme etant que j'ai des NON OK partout, meme quand les champs sont bien identiques.
J'ai essaye d'afficher pour voir le champ Mystr a la place de NON OK et pourtant le champ Mystr contient bien le nombre a 5 chiffres, je comprend vraiment pas pourquoi le test du if ne marche pas.

Quelqu'un a une idee ?

Merci encore

[lutin06]

Je viens d'essayer le code de pierre fauconier et il marche a la perfection, merci monsieur pierre fauconier.

Merci les autres aussi, j'adore votre esprit de partage de connaissances

[Pierre Fauconnier]

C'est parce que VBA compare des valeurs numériques et des valeurs "chaînes de caractères"

Teste ma solution, elle fonctionne! ET , dans un premier temps, ne te complique pas la vie avec des variables, tu n'en as pas besoin pour que cela fonctionne...

Va voir là http://cjoint.com/?evoKyxS8oO (ce lien expire dans 15 jours) et regarde le code du module1

Ok?

[linda15975]

Pense au tag "Résolu"