fonction len marche pas

[wrndid]

bonjour quelle est lerreur dans cette fontion len

Private Sub CommandButton1_Click()
Dim a
Dim b
For a = 1 To 1300
For b = 1 To 150

If (Len(Cells(a, 1).Text) - 2) = capteur.Cells(b, 1).Text Then
Cells(a, 8).Value = capteur.Cells(b, 5).Value

End If
Next b
Next a
End Sub

merci

 

[Papou-net]

Re : fonction len marche pas

Bonjour wrndid,

Peut-être qu'en modifiant ton code ainsi :

If (Len(Cells(a, 1).[B][COLOR="Red"]Value[/COLOR][/B]) - 2) = capteur.Cells(b, 1).[B][COLOR="red"]Value [/COLOR][/B]Then
Cells(a, 8).Value = capteur.Cells(b, 5).Value

Espérant avoir répondu.

Cordialement.

 

[wrndid]

Re : fonction len marche pas

re bonjour
marche toujour pas
je voudrais controler le texte 1 par rapport au texte 2 sanas tenir compte des 2 premiers caracteres
merci

 

[Papou-net]

Re : fonction len marche pas

Re-bonjour,

Que représente capteur dans ton code : est-ce le nom d'une feuille de calcul ?

A te lire.

Cordialement.

 

[pierrejean]

Re : fonction len marche pas

re
Cela me rappelle un autre fil !!

On peut savoir ce qu'est capteur ???
Le mieux d'ailleurs étant d'avoir un fichier exemple (sans données confidentielles)

 

[Gael]

Re : fonction len marche pas

Bonsoir à tous,

Pour moi, La fonction Len marche bien que ce soit Texte ou Value. Par contre Len renvoie seulement un nombre de caractères et si l'objectif est de contraoler une chaîne par rapport à une autre il faut écrire par exemple:

If right((Cells(a, 1).Text),Len(Cells(a, 1).Text) - 2)...

@+

Gael

 

[wrndid]

Re : fonction len marche pas

re bonjur capteur c est le nom de la feuille 2
merci

 

[job75]

Re : fonction len marche pas

Bonsoir à tous,

je voudrais controler le texte 1 par rapport au texte 2 sanas tenir compte des 2 premiers caracteres

Essayez :

If Mid(Cells(a, 1).Text, 3, 10000) = capteur.Cells(b, 1).Text Then

A+

 

[Lii]

Re : fonction len marche pas

Bonsoir Tous,

 

[wrndid]

Re : fonction len marche pas

re bonjour voici me fichier les 2 caractere sont m-
merci

 

[pierrejean]

Re : fonction len marche pas

re

En fonction de ce que j'ai cru comprendre !!!

et pour une suite éventuelle ,sois gentil de rester sur ce fil

 

[Lii]

Re : fonction len marche pas

Re,

Private Sub CommandButton1_Click()
Dim a
Dim b
For a = 1 To 30
  For b = 1 To 30
   [B] If Cells(a, 1) = "" Then Exit Sub[/B]
    If Right(Cells(a, 1).Text, Len(Cells(a, 1)) - 2) = Feuil2.Cells(b, 1).Text Then Cells(a, 4).Value = Feuil2.Cells(b, 4).Value
  Next b
Next a
End Sub

Len n'aime pas le vide !

 

[wrndid]

Re : fonction len marche pas

grand merci a jean pierre ca marche bien

 

[pierrejean]

Re : fonction len marche pas

Re

A partir de ton fichier:

Private Sub CommandButton1_Click()
Dim a
Dim b
For a = 1 To 30
 For b = 1 To 30
   If Cells(a, 1).Value <> "" And Cells(b, 1) <> "" Then
     If Right(Cells(a, 1).Value, Len(Cells(a, 1).Value) - 2) = [COLOR=Blue]CStr[/COLOR](Feuil2.Cells(b, 1).Value) Then
       Cells(a, 4).Value = Feuil2.Cells(b, 4).Value
     End If
   End If
 Next b
Next a
End Sub

Note le Cstr qui permet de comparer un texte a un nombre

Edit :Et par ailleurs moi c'est pierrejean

Re Edit : Salut Lii

 

[Lii]

Re : fonction len marche pas

Salut pierrejean et aux autres,

Name ou Codename ?

Avec cela et sans changer le nom de la feuille "Feuil2"
IF Right(Cells(a, 1).Text, Len(Cells(a, 1)) - 2) = Feuil2.Cells(b, 1).Text Then…
chez moi, cela fonctionne.

En renommant la feuille "capteur",
If Right(Cells(a, 1).Text, Len(Cells(a, 1)) - 2) = capteur.Cells(b, 1).Text Then
chez moi, cela ne fonctionne plus !

mais, dans ce cas (toujours avec "capteur"),

IF Right(Cells(a, 1).Text, Len(Cells(a, 1)) - 2) = Feuil2.Cells(b, 1).Text
marche toujours !

Voilà pourquoi, j'avais proposé dans un premier temps :
... = Sheets("capteur").Cells(b, 1).Text ...