Où est l'erreur ??

[babap1]

Bonjour,

j'essaye de chercher s'il y a au moins une lettre dans le contenu de ma cellule "G"&LRow en comparant ma strChaine avec la méthode InStr() mais il faut qu'il y ait toutes les lettres pour que cela fonctionne... 😕

 Dim strChaine As String
 Dim charCar As String

'Cannot contain the extentions xls or xml
    strChaine = Range("G" & LRow).Value
    charCar = InStr(1, strChaine, "abcdefghijklmnopqrstuvwxyz", vbTextCompare)
    If charCar > 0 Then
        EquipmentManager.Opt_Name.Value = True
    Else
        EquipmentManager.Opt_IpAddress.Value = True
    End If

Est ce que quelqu'un connait la méthode à utiliser ?
Merci 🙂

 

[jp14]

Re : Où est l'erreur ??

Bonsoir

Une piste utiliser le code ascii ( ou décimal des des carractères).

Sub lettre()
Dim data1 As String
Dim i As Long

data1 = Sheets("Feuil1").Range("a1")
if data1 = "" then exit sub
For i = 1 To Len(data1)
If Asc(Mid(data1, i, 1)) > 96 And Asc(Mid(data1, i, 1)) < 123 Then
    Call MsgBox("une lettre minuscule à été trouvée : " & Mid(data1, i, 1), vbExclamation, Application.Name)
 End If
Next i
End Sub

A tester
JP

 

[Banzai64]

Re : Où est l'erreur ??

Bonjour

s'il y a au moins une lettre

Testes avec IsNumeric

 

[babap1]

Re : Où est l'erreur ??

Bonjour Banzai64, jp14,

Testes avec IsNumeric

J'aimerai effectivement tester s'il y a au moins une lettre (minuscule ou majuscule) dans ma cellule G&LRow.

Merci.
Baptiste

 

[pierrejean]

Re : Où est l'erreur ??

bonjour Baptiste

une fonction personnalisée qui peut etre utilisée (eventuellement avec adaptation ) en Vba

 

[bqtr]

Re : Où est l'erreur ??

Bonjour babap1, jp14, Banzai64, pierrejean

Teste ceci:

'.../...
If IsNumeric(Range("G" & LRow)) Then
  EquipmentManager.Opt_Name.Value = True
Else
  EquipmentManager.Opt_IpAddress.Value = True
End If
'.../...

A+

 

[pierrejean]

Re : Où est l'erreur ??

bonjour a tous

la fonction adaptée et son usage en Vba (avec la collaboration de Pierre Olivier)

Function lettre(cellule As Range) As Boolean
For n = 1 To Len(cellule)
  If Asc(UCase(Mid(cellule, n, 1))) > 64 And Asc(UCase(Mid(cellule, n, 1))) < 91 Then
   lettre = True
   Exit Function
  End If
Next n
 lettre = False
End Function
 
'.../...
If lettre(Range("G" & LRow)) Then
  EquipmentManager.Opt_Name.Value = True
Else
  EquipmentManager.Opt_IpAddress.Value = True
End If
'.../...

 

[babap1]

Re : Où est l'erreur ??

Bonjour bqtr, pierrejean, le forum

la fonction adaptée et son usage en Vba (avec la collaboration de Pierre Olivier)

merci pour les tuyaux... voila ce que j'ai fait du coup et ça marche très bien :

 For n = 1 To Len(Range("G" & LRow))
        If Asc(UCase(Mid(Range("G" & LRow), n, 1))) > 64 And Asc(UCase(Mid(Range("G" & LRow), n, 1))) < 91 Then
            EquipmentManager.Opt_Name.Value = True
        Else
            EquipmentManager.Opt_IpAddress.Value = True
        End If
    Next n

Merci, @ plus

 

[pierrejean]

Re : Où est l'erreur ??

RE

Désolé de doucher ton enthousiasme mais si cela fonctionne c'est que la lettre est le dernier caractere de range("G" & LRow)
Teste avec un chiffre en dernier pour t'en convaincre

cette version devrait etre meilleure;

For n = 1 To Len(Range("G" & LRow))
If Asc(UCase(Mid(Range("G" & LRow), n, 1))) > 64 And Asc(UCase(Mid(Range("G" & LRow), n, 1))) < 91 Then
EquipmentManager.Opt_Name.Value = True
[COLOR=red]exit for[/COLOR]
Else
EquipmentManager.Opt_IpAddress.Value = True
End If
Next n

 

[babap1]

Re : Où est l'erreur ??

RE pierrejean, le forum

Teste avec un chiffre en dernier pour t'en convaincre

Aïe 😡 comment ai-je pu oublier de faire ce test... la fatigue? la nullité ?
Bref, tout fonctionne maintenant alors m-e-r-c-i pierrejean.