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
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