Aide VBA

[Sandy]

Bonjour,

j ai un petit souci, je suis debutant en VBA pourriez vous m aider?
mon prb :
j ai besoin de comparer 2 chaine de caracteres mais avant de les coupés je devrais les decoupé en éliminant les 5 caracteres au debut de la chaine et les 6 caracteres de la fin de la chaine (pour les deux chaines)
si vous avez besoin de plus d info merci de me le dire

Sandy

Merci bcp

 

[Sandy]

Bonjour,

quelqu un pourra m aider???

Merci d avance

 

[JeanMarie]

Bonjour

Pour découper une chaine de la cellule A1, utilise la fonction
NomVariable = Mid(Range('A1'), 6, Len(Range('A1')) - 11)

@+Jean-Marie

 

[Hervé]

Bonjour sandy

ta demande n'est pas tres clair, pourrais-tu etre plus précis, en attendant un bout de code qui t'extrait les caracteres d'une chaine :

Dim t As String

t = '12345riencompris123456'

MsgBox Mid(t, 6, Len(t) - 11)

salut

edition : salut jeanmarie 🙂

Message édité par: hervé, à: 26/06/2006 09:35

 

[Sandy]

Bonjour
Merci pour votre aide?
je m explique
moi j ai 2 chaines de caracteres chacune dans une page ok, je devrai les comparer mais pour je devrai les decoupé avant la comparaison
ex : chaine 1 (feuille 1) = 12345codecode654321
chaine 2(feuille 2)= 23456codecode987654
la comparaison doit etre fait seulement sur codecode des 2 chaines
si la comparaison eté vrai il me donne 1 dans une case quelconque sinon 0
une derniere chose si il n y avais pas dans la feuille 2 une chaine le programme ne doit pas etre pas bloquer.

je devrai faire tous ca par une action sur un bouton 🙁

Merci d avance

 

[Hervé]

re

a essyer :

Dim t1 As String
Dim t2 As String

t1 = Sheets('feuil1').Range('a1')
t2 = Sheets('feuil2').Range('a1')

If t1 = '' Or t2 = '' Then Exit Sub

t1 = Mid(t1, 6, Len(t1) - 11)
t2 = Mid(t2, 6, Len(t2) - 11)

MsgBox IIf(t1 = t2, 1, 0)

🙂

salut

 

[Sandy]

Rebonjour

Merci ca fontion mais je devrais mettre le resultat 1 ou 0 dans une case de la feuille 2 et pas dans un msgbox

Merci herve

 

[Hervé]

re


ben comme tu ne disais pas ou tu voulais le résultat, j'ai fait au plus simple :

Sheets('feuil2').Range('b1')= IIf(t1 = t2, 1, 0)

renvoi en b1 de la feuille 2

salut