Bonjour,
J'ai crée une base de donnée qui comprend trois colonnes :
Colonne A = Fabricant
Colone B = Désignation (conporte plsieurs composants)
Colonne C = divers
J'ai crée une macro avec trois textbox et un bouton trier qui doit inserer une ligne et y placer le contenu des 3 variables puis trier par order alphabétique le tableau.
Dans la premiere textbox on rentre le nom du fabricant, dans la deuxieme les composants, et dans la troisieme se que l'on veut.
j'ai crée un code pour la premiere texbox qui cherche la premiere cellule vide et y copie la valeur de la textbox dedans.
Private Sub TextBox1_Change()
Dim i As Integer
i = Selection.Offset(1, 0).Select
' selection de la case de départ
Range("A7").Select
' boucle de recherche
Do While IsEmpty(ActiveCell) = False
Selection.Offset(1, 0).Select
Loop
' Copie la variable contenu dans le textbox dans la cellule
For Each CTRL In Me.Controls
If TypeOf CTRL Is MSForms.TextBox Then
i = i + 1
Cells(i, 1) = CTRL End If
Next CTRL
End Sub
Mais cela me marque "erreur 1004 erreur définie par l'application ou par l'objet"
J n'arrive pas à la réparer!
merci d'avance!!
Roseverte
J'ai crée une base de donnée qui comprend trois colonnes :
Colonne A = Fabricant
Colone B = Désignation (conporte plsieurs composants)
Colonne C = divers
J'ai crée une macro avec trois textbox et un bouton trier qui doit inserer une ligne et y placer le contenu des 3 variables puis trier par order alphabétique le tableau.
Dans la premiere textbox on rentre le nom du fabricant, dans la deuxieme les composants, et dans la troisieme se que l'on veut.
j'ai crée un code pour la premiere texbox qui cherche la premiere cellule vide et y copie la valeur de la textbox dedans.
Private Sub TextBox1_Change()
Dim i As Integer
i = Selection.Offset(1, 0).Select
' selection de la case de départ
Range("A7").Select
' boucle de recherche
Do While IsEmpty(ActiveCell) = False
Selection.Offset(1, 0).Select
Loop
' Copie la variable contenu dans le textbox dans la cellule
For Each CTRL In Me.Controls
If TypeOf CTRL Is MSForms.TextBox Then
i = i + 1
Cells(i, 1) = CTRL End If
Next CTRL
End Sub
Mais cela me marque "erreur 1004 erreur définie par l'application ou par l'objet"
J n'arrive pas à la réparer!
merci d'avance!!
Roseverte