[VBA-E] Comparer des cellules

Version imprimable

Voir 40 message(s) de cette discussion en une page

21/04/2006, 13h28
lutin06

[VBA-E] Comparer des cellules

Bonjour a tous,

J'ai un tableau de la forme suivante :

http://img233.imageshack.us/img233/6156/14xi.jpg

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

Essaye avec la fonction mid:

Code:

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

Salut

Sans VBA, tu peux utiliser la formule suivante

Code:

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

Avec VBA, tu peux utiliser
Code:

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?

21/04/2006, 13h49
romrai
une autre possibilité; si t'es sûre que dans ta colonne c le nombre sera toujours égal à 5 chiffres:
Code:

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
21/04/2006, 13h52
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! ;)
21/04/2006, 13h57
romrai

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

merci pour la remarque;)
21/04/2006, 14h02
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:

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

Théo
21/04/2006, 14h13
Pierre Fauconnier

Avez-vous testé ma solution?

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

Code:

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

Deja merci pour vos reponses, vous etes rapides ;)

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

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

21/04/2006, 14h36
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 ;)
21/04/2006, 14h37
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?
21/04/2006, 14h40
linda15975

Pense au tag "Résolu" ;)
21/04/2006, 14h45
lutin06

Citation:

Envoyé par linda15975

Pense au tag "Résolu" ;)

;)
28/04/2006, 10h51
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:

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
28/04/2006, 10h55
illight
Citation:
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:

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 :koi: il faut peut etre transformer les champs de ta première colonne en texte :)

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

d'ou le code :
Code:

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

28/04/2006, 11h41
lutin06

Ok j'ai trouve un code qui marche :

Code:

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
28/04/2006, 11h45
SfJ5Rpw8
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 :arrow: =$c$1
- =c$1 :arrow: =d$1
- =$c1 :arrow: =$c2
;) à ton tour d'adapter au code ...
28/04/2006, 11h52
lutin06
Citation:
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 :arrow: =$c$1
=c$1 :arrow: =d$1
=$c1 :arrow: =$c2
;) à ton tour d'adapter au code ...
Merci mais ca ne fonctionne pas

Code:

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
28/04/2006, 12h28
lutin06

Helppp , ca doit pas etre bien complique pour vous :roll:

Voir 40 message(s) de cette discussion en une page