N
Nanard
Guest
Bonjour aux forumeurs et forumeuses,
Voici mon problème, j'avance tous les jours à petits pas dans VBA, mais l'apprentissage est loin d'être simple....Bououou! lol
Je voudrais que dans mon code ci-après, que le format texte et numérique soit reconnu sans changer les conditions vrai ou faux !
Sub recherche_clients()
Dim saisie As Long
Dim DerLigne As Integer
With ActiveWorkbook.Sheets("Facture")
.Range("E10").Value = Application.InputBox(prompt:="Entrez le numéro du client ", Type:=1)
If IsError(.Range("E11").Value) Then
ActiveWorkbook.Sheets("Clients").Select
saisie = Sheets("Facture").Range("E10").Value
DerLigne = Sheets("Clients").Range("B65536").End(xlUp).Row + 1
Sheets("Clients").Cells(DerLigne, 2).Value = saisie
Else
Sheets("Facture").Range("A21").Select
End If
End With
End Sub
merci pour votre aide
Nanard
Voici mon problème, j'avance tous les jours à petits pas dans VBA, mais l'apprentissage est loin d'être simple....Bououou! lol
Je voudrais que dans mon code ci-après, que le format texte et numérique soit reconnu sans changer les conditions vrai ou faux !
Sub recherche_clients()
Dim saisie As Long
Dim DerLigne As Integer
With ActiveWorkbook.Sheets("Facture")
.Range("E10").Value = Application.InputBox(prompt:="Entrez le numéro du client ", Type:=1)
If IsError(.Range("E11").Value) Then
ActiveWorkbook.Sheets("Clients").Select
saisie = Sheets("Facture").Range("E10").Value
DerLigne = Sheets("Clients").Range("B65536").End(xlUp).Row + 1
Sheets("Clients").Cells(DerLigne, 2).Value = saisie
Else
Sheets("Facture").Range("A21").Select
End If
End With
End Sub
merci pour votre aide
Nanard