Combobox
Tonin39
Messages postés
75
Date d'inscription
mercredi 6 avril 2005
Statut
Membre
Dernière intervention
2 avril 2006
-
12 avril 2005 à 22:18
Tonin39 Messages postés 75 Date d'inscription mercredi 6 avril 2005 Statut Membre Dernière intervention 2 avril 2006 - 14 avril 2005 à 08:30
Tonin39 Messages postés 75 Date d'inscription mercredi 6 avril 2005 Statut Membre Dernière intervention 2 avril 2006 - 14 avril 2005 à 08:30
5 réponses
nostra78
Messages postés
137
Date d'inscription
jeudi 10 mars 2005
Statut
Membre
Dernière intervention
6 décembre 2005
13 avril 2005 à 10:56
13 avril 2005 à 10:56
Dans le code du combobox
Private Sub ComboBox1_Change()
Dim Cellule As Range
For Each Cellule In Sheets("Feuil1").Range("A1:A10") 'Plage où se situe tes indices
If Cellule.Value = ComboBox1.Value Then
Cellule.Activate
Range(Selection, Selection.End(xlToRight)).Select
Exit Sub
End If
Next
End Sub
Private Sub ComboBox1_Change()
Dim Cellule As Range
For Each Cellule In Sheets("Feuil1").Range("A1:A10") 'Plage où se situe tes indices
If Cellule.Value = ComboBox1.Value Then
Cellule.Activate
Range(Selection, Selection.End(xlToRight)).Select
Exit Sub
End If
Next
End Sub
nostra78
Messages postés
137
Date d'inscription
jeudi 10 mars 2005
Statut
Membre
Dernière intervention
6 décembre 2005
13 avril 2005 à 11:53
13 avril 2005 à 11:53
Ca marche???
Tonin39
Messages postés
75
Date d'inscription
mercredi 6 avril 2005
Statut
Membre
Dernière intervention
2 avril 2006
13 avril 2005 à 16:39
13 avril 2005 à 16:39
non il me di kil y a une erreur du genre:
la méthode activate de la classe Range a échoué
lerreur se situe au niveau de la ligne de code cellule.activate
qusetions: cellule est définie comme range?
de plus ds ta ligne range(selection...... t sur que ca prend que les valeurs a droite de lindice et pas avt ni après?
merci
répond moi stp
la méthode activate de la classe Range a échoué
lerreur se situe au niveau de la ligne de code cellule.activate
qusetions: cellule est définie comme range?
de plus ds ta ligne range(selection...... t sur que ca prend que les valeurs a droite de lindice et pas avt ni après?
merci
répond moi stp
nostra78
Messages postés
137
Date d'inscription
jeudi 10 mars 2005
Statut
Membre
Dernière intervention
6 décembre 2005
13 avril 2005 à 17:45
13 avril 2005 à 17:45
Ca marche pourtant chez moi, quel erreur affiche t'il???
Private Sub ComboBox1_Change()
Dim Cellule As Range
For Each Cellule In Sheets("Data").Range("A1:A22") 'Plage où se situe tes indices
If Cellule.Value = ComboBox1.Value Then
Cellule.Activate
Range(Selection, Selection.End(xlToRight)).Select
Exit Sub
End If
Next
End Sub
Cellule appartient à la classe Range
Et Selection, Selection.End(xlToRight)).Select sélectionne la ligne avec ton indice par exemple si tu prens 000 alors tu as les cellules de A2 jusqu'à V2 sélectionner
Private Sub ComboBox1_Change()
Dim Cellule As Range
For Each Cellule In Sheets("Data").Range("A1:A22") 'Plage où se situe tes indices
If Cellule.Value = ComboBox1.Value Then
Cellule.Activate
Range(Selection, Selection.End(xlToRight)).Select
Exit Sub
End If
Next
End Sub
Cellule appartient à la classe Range
Et Selection, Selection.End(xlToRight)).Select sélectionne la ligne avec ton indice par exemple si tu prens 000 alors tu as les cellules de A2 jusqu'à V2 sélectionner
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Tonin39
Messages postés
75
Date d'inscription
mercredi 6 avril 2005
Statut
Membre
Dernière intervention
2 avril 2006
14 avril 2005 à 08:30
14 avril 2005 à 08:30
ca marche merci mais jai un autre pb en fait avec la selection ensuite je la copie et je la colle ds une autre feuille, mais le pb c que la selection contient mon indice?
peut tu résoudre ce pb?
salut rep stp
peut tu résoudre ce pb?
salut rep stp