Lettre et chiffre dans une cellule

[etpisculrien]

Bjr à tous,

J'ai un pti problème que vous pourriez résoudre, dans votre infinie bonté ;-)
Voilà, j'ai dans une colonne des cellules qui contiennent du texte, des chiffres ou (ce que je cherche à reperer) un code article. Ce code article se décompose en lettres suivi de 4 chiffres.
Je souhaiterais que la macro vérifie les cellules et repère si cela correspond à un code article ou autre chose.

Si vous pouvez m'aider, ce serait cool

Merci d'avance

A+

 

[mth]

Re : Lettre et chiffre dans une cellule

Bonjour etpisculrien,

Je ne sais si je pourrai t'aider, mais un petit fichier avec quelques exemples de cas possibles permettrait de savoir de quoi on parle.

Pour les forumers qui te répondront, comme tu dis ça serait cool de ne pas partir sur une mauvaise piste.

bon après-midi,

mth

 

[etpisculrien]

Re : Lettre et chiffre dans une cellule

Donc voila un extrait du fameux fichier article...
C'est un copier coller d'un tableau croisé dynamique dans lequel j'ai extrait le code article ainsi que 2 champs supplémentaires (gamme 1 et 2)

Merci

 

[natorp]

Re : Lettre et chiffre dans une cellule

Bjr etpisculrien et mth

est-ce tes codes articles se terminent systématiquement par 4 chiffres ?

cordialement, Gérard

 

[etpisculrien]

Re : Lettre et chiffre dans une cellule

slt natorp,

Oui absolument. C'est le seul critère constant que j'ai pu constater et qui diffère des autres informations.

 

[mth]

Re : Lettre et chiffre dans une cellule

re 🙂

🙂 Bonjour Natorp 🙂

Même idée que toi, on dirait que les codes articles correspondent à cette structure.
Un premier jet en attendant la réponse de etpisculrien

=SI(ESTNUM(DROITE(A4;4)*1);"Code article";"")

@ +

mth

 

[mth]

Re : Lettre et chiffre dans une cellule

re 🙂

euh ... bêtise de ma part ... 😱, désolée ...

Deuxième essai:

=SI(ET(NON(ESTNUM(GAUCHE(A4;1)*1));ESTNUM(DROITE(A4;4)*1));"Code article";"")

@ +

mth

 

[etpisculrien]

Re : Lettre et chiffre dans une cellule

Re,

Les grands esprits se rencontrent (je ne parlais pas de moi ;-) ) mais ceci est une formule à saisir dans excel. J'aurais aimé, si possible, traduire ceci mais en VBA pour l'integrer dans ma boucle...

A+

 

[natorp]

Re : Lettre et chiffre dans une cellule

Merci mth

ben voilà je crois que tu as mis la réponse en ligne....

cordialement, Gérard

 

[etpisculrien]

Re : Lettre et chiffre dans une cellule

Je ne sais pas si vous avez lu mon précédent message alors je le repete au cas où:

"Les grands esprits se rencontrent (je ne parlais pas de moi ;-) ) mais ceci est une formule à saisir dans excel. J'aurais aimé, si possible, traduire ceci mais en VBA pour l'integrer dans ma boucle..."

Une idée?

 

[etpisculrien]

Re : Lettre et chiffre dans une cellule

Bon, et bien merci les gars de la piste, je vais essayer de me débrouiller avec ça

Zetes cool

A+

 

[bcharef]

Re : Lettre et chiffre dans une cellule

Bonjour etpisculrien, mth & Gérard,
Bonjour à toutes et à tous.

Si, j'ai bien compris.

Un essai en C4, puis tirer vers le bas:

=SI(ESTERREUR(SI((((GAUCHE(A4;NBCAR(A4)-4))&(DROITE(A4;4)))=A4)*(ESTNUM(--(DROITE(A4;4))))=1;"Code Article";"Autre Chose"));"Autre Chose";SI((((GAUCHE(A4;NBCAR(A4)-4))&(DROITE(A4;4)))=A4)*(ESTNUM(--(DROITE(A4;4))))=1;"Code Article";"Autre Chose"))

Amicalement.

BCharef

 

[etpisculrien]

Re : Lettre et chiffre dans une cellule

bon, j'ai essayé de traduire ça en VBA comme ceci:

If WorksheetFunction.IsNumber(Right(Range("A5"), 4)) And Not WorksheetFunction.IsNumber(Right(Selection, 1)) Then
MsgBox "Code article"
End If
mais ça marche pas!

Grrrr

Quelqu'un saurait?

 

[pierrejean]

Re : Lettre et chiffre dans une cellule

Bonjour estpisculrien
Salut à tous

Vois si tu peux t'inspirer de ceci

 

[david84]

Re : Lettre et chiffre dans une cellule

Bonjour à tous,
code à tester et à adapter à ton fichier :

Sub test()
Dim c As Range
For Each c In Range([A1], Range("A" & Rows.Count).End(xlUp))
    i = 1
    If Right(c(i, 1), 4) Like "####" And Len(c(i, 1)) > Len(Right(c(i, 1), 4)) Then
        c.Offset(i - 1, 2) = "code article"
    End If
    i = i + 1
Next c
End Sub

A+

Edit : merci aux VBAistes de bien vouloir me corriger s'ils le jugent utile.