[VBA-E] Comparer des cellules

**lutin06** · 21/04/2006, 13h28

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** · 21/04/2006, 13h40

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** · 21/04/2006, 13h41

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** · 21/04/2006, 13h49

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** · 21/04/2006, 13h52

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** · 21/04/2006, 13h57

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

merci pour la remarque

**Theocourant** · 21/04/2006, 14h02

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** · 21/04/2006, 14h13

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** · 21/04/2006, 14h30

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** · 21/04/2006, 14h36

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** · 21/04/2006, 14h37

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** · 21/04/2006, 14h40

Pense au tag "Résolu"

**lutin06** · 21/04/2006, 14h45

Envoyé par linda15975

Pense au tag "Résolu"

**lutin06** · 28/04/2006, 10h51

Bonjour,

Je remonte ce post car j'aimerais maintenant que ma colonne D se remplisse avec un champ calcule automatiquement ( exactement le meme ) Ok ou non Ok

J'ai un debut de reponse ici :

http://www.developpez.net/forums/sho...d.php?p=884429

Mais si je fais ca :

Code :

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

1
2
3
For i = 5 To z
    Range("d" & i).Formula = "=IF(A" & i & ") = Mid(C" & i & ", 3, 5), ""OK"", ""NON"")"
Next i

Ca me met des NON partout.

Avez vous une idee ?

Merci

**illight** · 28/04/2006, 10h55

Envoyé par lutin06

Bonjour,

Je remonte ce post car j'aimerais maintenant que ma colonne D se remplisse avec un champ calcule automatiquement ( exactement le meme ) Ok ou non Ok

J'ai un debut de reponse ici :

http://www.developpez.net/forums/sho...d.php?p=884429

Mais si je fais ca :

Code :

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

1
2
3
For i = 5 To z
    Range("d" & i).Formula = "=IF(A" & i & ") = Mid(C" & i & ", 3, 5), ""OK"", ""NON"")"
Next i

Ca me met des NON partout.

Avez vous une idee ?

Merci

oui moi aussi ça me met des noms

il faut peut etre transformer les champs de ta première colonne en texte

**SfJ5Rpw8** · 28/04/2006, 11h24

il faut arriver à une formule du genre :
IF(TEXT(A2,0)=Mid(C2,3,5),"OK","NON")

d'ou le code :

Code :

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

1
2
3
4
5
 
For i = 5 To z
      Range("d" & i).Formula = "=IF(TEXT(A" & i & ",0) = Mid(C" & i & ", 3, 5), ""OK"", ""NON"")"
 
Next i

**lutin06** · 28/04/2006, 11h41

Ok j'ai trouve un code qui marche :

Code :

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

Range("d" & i).Formula = "=IF(A" & i & " = VALUE(Mid(C" & i & ", 3, 5)), ""OK"", ""NON"")"

Maintenant nouveau probleme :

Imaginons que la colonne A et la colonne C concordent partout ..., on a donc la colonne D avec des OK partout

Si je decale la colonne A d'une ligne et laisse la colonne C comme elle est...cela devrait m'afficher des NON partout dans la colonne D ! ... et bien c'a m'affiche des OK partout, la calculation a suivi le mouvement!

Comment faire ?

Merci

**SfJ5Rpw8** · 28/04/2006, 11h45

c'est du simple traitement de formule Excel... utilise le carcatéres $ devant la partie des adresses qui ne doivent pas bouger ..

ainsi si tu met =C1 et que tu déplace d'un cran à droite et un cran plus bas tu obtient =D2

=$c$1 =$c$1
=c$1 =d$1
=$c1 =$c2

à ton tour d'adapter au code ...

**lutin06** · 28/04/2006, 11h52

Envoyé par bbil

c'est du simple traitement de formule Excel... utilise le carcatéres $ devant la partie des adresses qui ne doivent pas bouger ..

ainsi si tu met =C1 et que tu déplace d'un cran à droite et un cran plus bas tu obtient =D2

=$c$1 =$c$1
=c$1 =d$1
=$c1 =$c2

à ton tour d'adapter au code ...

Merci mais ca ne fonctionne pas

Code :

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

Range("d" & i).Formula = "=IF($A$" & i & " = VALUE(Mid(C" & i & ", 3, 5)), ""OK"", ""NON"")"

J'ai essaye ca, et si je deplace par exemple la cellule A3 en A2, la colonne D est toujours ok avec $A$2 a l'interieur

**lutin06** · 28/04/2006, 12h28

Helppp , ca doit pas etre bien complique pour vous

[VBA-E] Comparer des cellules

Macros et VBA Excel

Discussions similaires

Partager

Partager