Apple met à jour ses MacBook/Pro

Le , par amine2028, Candidat au Club
Citation Envoyé par hyperion13 Voir le message
Salut,
La syntaxe globale serait un plus pour comprendre l'erreur.
Quel type d'erreur ?
Et que cherchez-vous exactement à faire ? Chercher si votre zone de texte est vide ? Chercher si votre zone de liste est vide ? ou autre.
============================================
Merci pour votre attention
je me propose de faire une macro qui me permet de faire une recherche par alphabet(nom ou adresse) dans un tableau et d'afficher le résultat dans une listebox.
numero client Nom Prenom Adresse
1 az tr Adres
2 ze re rue
3 dr sr boulev

Private Sub Txtad_Change()
'declaration des variables
Dim j As Integer
Dim nbmax As Integer
Dim adressecherchee As String
'on cherche la fin de la liste
nbmax = bdd.Range("a50000".End(xlUp)
adressecherchee = Me("txtadresse".Value
If Me.txtadresse <> ("" Then For j = 5 To nbmax
If bdd.Cells(j, 4) Like "*" & Me.txtadresse = "*" Then
Me.listclient.AddItem bdd.Cells(j, 4)
End If
End If
Next j
End Sub

Private Sub txtnom_Change()
Dim nomcherche As String

Range("b5,b1000".Interior.ColorIndex = 0
Range("b5,b1000".fontcolor.Index = 1
Range("b5,b1000".FontBold = False
nbligne = bdd.Range("1000".End(xlUp).Row
nomcherchee = Me.txtnom = Value
If Me.txtnom <> "" Then For i = 5 To nbligne
End If
If bdd = Cells(i, 2) Like "*" & UCase(Me.txtnom.Value) Then
Cells(i, 2).Interior.Color = RGB(100, 0, 0)
Cells(i, 2).Font.Color = RGB(255, 0, 0)
Cells(i, 2).FontBold = True
Me.lstclient.AddItem bdd.Cells(i, 2)
End If
Next i
End Sub

Bdd: feuille de données
lstclient zone liste où s' affiche le résultat de la recherche
txtnom combobox nom
txtadresse combobox adresse

Le premier bug se fait au niveau
me.txtnom et me.txtadresse
Je pense avoir donné tous les éléments en espèrant poucoir bénéficier de votre expertise et vous remercie d'avance


Vous avez aimé cette actualité ? Alors partagez-la avec vos amis en cliquant sur les boutons ci-dessous :
Responsable bénévole de la rubrique Mac : chrtophe -