Macro excel recherche cellule
Résolu
informatifien
Messages postés
741
Date d'inscription
Statut
Membre
Dernière intervention
-
informatifien Messages postés 741 Date d'inscription Statut Membre Dernière intervention -
informatifien Messages postés 741 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Salut,
j’ai un fichier excel,une base de données la première colonne contient des N°,j’ai créé un UserForm1 dans lequel il y a une ComboBox1 et un CommandButton1, je souhaite après avoir tapé un numéro dans ma Combobox1 et taper sur entrer, sélectionner la cellule contenant la valeur tapée (numéro).
J’ai donc tapé ce code (copier,coller d'une macro qui utilise cette fonction et qui marche...):
Private sub CommandButton_click
Dim a As Integer
a = 1
While Range("A" & a) <> ComboBox1
a = a + 1
If a = 50 Then
MsgBox "Numéro d'OF inconnu"
Exit Sub
End If
Wend
Range("A" & a).Select
End Sub
Alors jusque là, chaque fois que je tapai un numéro la msgbox apparaissait même si je taper un numéro contenu dans ma liste, et là sans que je demande rien la msgBox ne s’ouvre plus par contre c’est la première cellule de la colonne qui se sélectionne. .. . .enfin bref ça ne marche pas et des fois j’ai « erreur de compilation : incompatibilité de type »
Quelqu’un voit d’où vient le problème…..à l’aide Merci
Salut,
j’ai un fichier excel,une base de données la première colonne contient des N°,j’ai créé un UserForm1 dans lequel il y a une ComboBox1 et un CommandButton1, je souhaite après avoir tapé un numéro dans ma Combobox1 et taper sur entrer, sélectionner la cellule contenant la valeur tapée (numéro).
J’ai donc tapé ce code (copier,coller d'une macro qui utilise cette fonction et qui marche...):
Private sub CommandButton_click
Dim a As Integer
a = 1
While Range("A" & a) <> ComboBox1
a = a + 1
If a = 50 Then
MsgBox "Numéro d'OF inconnu"
Exit Sub
End If
Wend
Range("A" & a).Select
End Sub
Alors jusque là, chaque fois que je tapai un numéro la msgbox apparaissait même si je taper un numéro contenu dans ma liste, et là sans que je demande rien la msgBox ne s’ouvre plus par contre c’est la première cellule de la colonne qui se sélectionne. .. . .enfin bref ça ne marche pas et des fois j’ai « erreur de compilation : incompatibilité de type »
Quelqu’un voit d’où vient le problème…..à l’aide Merci
A voir également:
- Macro excel recherche cellule
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Word et excel gratuit - Guide
1 réponse
bon j'ai trouvé à force de tentative désespérées il a fallu que je declare la valeur de combobox1 comme entier ce qui donne ceçi:
Sub modifier_Click()
Dim a As Integer
Dim b As Integer
a = 1
b = ComboBox1
While Range("A" & a) <> b 'tant que la colonne A est différente de numof
a = a + 1 'passer à la ligne suivante
If a = 20 Then 'si a arrive à 20 sans rien trouver
MsgBox "OF inexistant" 'afficher msgbox
Exit Sub
End If
Wend
Range("A" & a).Select
End Sub
Merci quand même
Sub modifier_Click()
Dim a As Integer
Dim b As Integer
a = 1
b = ComboBox1
While Range("A" & a) <> b 'tant que la colonne A est différente de numof
a = a + 1 'passer à la ligne suivante
If a = 20 Then 'si a arrive à 20 sans rien trouver
MsgBox "OF inexistant" 'afficher msgbox
Exit Sub
End If
Wend
Range("A" & a).Select
End Sub
Merci quand même
