insérer les valeurs de mes textbox dans ma base Excel
2 réponses
Jocelyne
Bonjour,
J'ai créé un userform. Je n'arrive pas à intégrer toutes mes valeurs à la
suite d'une base et trier par ordre alphabétique. J'ai mis le code sur le
bouton valider
La feuille s'appelle liste
Private Sub cdmvalider_Click()
Sheets("liste").Select
If Textfournisseur.Value <> "" Then
Range("liste!I2").End(xlDown).Offset(1, 0).Value = Textfournisseur.Value
Range("liste!J2").End(xlDown).Offset(1, 0).Value =
Textadresse1Fournisseur.Value
Range("liste!k2").End(xlDown).Offset(1, 0).Value =
Textadresse2fournisseur.Value
End If
Col I Col J Col K
Fournisseurs Adresse 1 Adresse 2
Embal Pro Rue 1 av 2
AG3M Rue 2 ,,,
QRT Grafics Rue 3 222
Lorsque je valide, si la colonne adresse 2 n'est pas remplie, elle se
remplit à la prochaine validation.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Youky
Salut, Je ferais comme cela
Sheets("liste").Select If Textfournisseur.Value <> "" Then ligne = Range("I2").End(xlDown).Row + 1 Cells(ligne, 9) = Textfournisseur.Value 'ici 9 est la colonne Cells(ligne, 10) = Textadresse1Fournisseur.Value Cells(ligne, 11) = Textadresse2fournisseur.Value End If
Bonne réussite
"Jocelyne" a écrit dans le message de news:
Bonjour, J'ai créé un userform. Je n'arrive pas à intégrer toutes mes valeurs à la suite d'une base et trier par ordre alphabétique. J'ai mis le code sur le bouton valider La feuille s'appelle liste
Private Sub cdmvalider_Click() Sheets("liste").Select If Textfournisseur.Value <> "" Then Range("liste!I2").End(xlDown).Offset(1, 0).Value = Textfournisseur.Value Range("liste!J2").End(xlDown).Offset(1, 0).Value > Textadresse1Fournisseur.Value Range("liste!k2").End(xlDown).Offset(1, 0).Value > Textadresse2fournisseur.Value End If
Col I Col J Col K Fournisseurs Adresse 1 Adresse 2 Embal Pro Rue 1 av 2 AG3M Rue 2 ,,, QRT Grafics Rue 3 222
Lorsque je valide, si la colonne adresse 2 n'est pas remplie, elle se remplit à la prochaine validation.
Sheets("liste").Select
If Textfournisseur.Value <> "" Then
ligne = Range("I2").End(xlDown).Row + 1
Cells(ligne, 9) = Textfournisseur.Value 'ici 9 est la colonne
Cells(ligne, 10) = Textadresse1Fournisseur.Value
Cells(ligne, 11) = Textadresse2fournisseur.Value
End If
Bonne réussite
"Jocelyne" <jocelyne.baud@wanadoo.fr> a écrit dans le message de news:
O9AfuRkfFHA.3304@TK2MSFTNGP12.phx.gbl...
Bonjour,
J'ai créé un userform. Je n'arrive pas à intégrer toutes mes valeurs à la
suite d'une base et trier par ordre alphabétique. J'ai mis le code sur le
bouton valider
La feuille s'appelle liste
Private Sub cdmvalider_Click()
Sheets("liste").Select
If Textfournisseur.Value <> "" Then
Range("liste!I2").End(xlDown).Offset(1, 0).Value = Textfournisseur.Value
Range("liste!J2").End(xlDown).Offset(1, 0).Value > Textadresse1Fournisseur.Value
Range("liste!k2").End(xlDown).Offset(1, 0).Value > Textadresse2fournisseur.Value
End If
Col I Col J Col K
Fournisseurs Adresse 1 Adresse 2
Embal Pro Rue 1 av 2
AG3M Rue 2 ,,,
QRT Grafics Rue 3 222
Lorsque je valide, si la colonne adresse 2 n'est pas remplie, elle se
remplit à la prochaine validation.
Sheets("liste").Select If Textfournisseur.Value <> "" Then ligne = Range("I2").End(xlDown).Row + 1 Cells(ligne, 9) = Textfournisseur.Value 'ici 9 est la colonne Cells(ligne, 10) = Textadresse1Fournisseur.Value Cells(ligne, 11) = Textadresse2fournisseur.Value End If
Bonne réussite
"Jocelyne" a écrit dans le message de news:
Bonjour, J'ai créé un userform. Je n'arrive pas à intégrer toutes mes valeurs à la suite d'une base et trier par ordre alphabétique. J'ai mis le code sur le bouton valider La feuille s'appelle liste
Private Sub cdmvalider_Click() Sheets("liste").Select If Textfournisseur.Value <> "" Then Range("liste!I2").End(xlDown).Offset(1, 0).Value = Textfournisseur.Value Range("liste!J2").End(xlDown).Offset(1, 0).Value > Textadresse1Fournisseur.Value Range("liste!k2").End(xlDown).Offset(1, 0).Value > Textadresse2fournisseur.Value End If
Col I Col J Col K Fournisseurs Adresse 1 Adresse 2 Embal Pro Rue 1 av 2 AG3M Rue 2 ,,, QRT Grafics Rue 3 222
Lorsque je valide, si la colonne adresse 2 n'est pas remplie, elle se remplit à la prochaine validation.
Merci Youki, J'essaie demain et si ça marche, je te le fais savoir. A bientôt
"Youky" a écrit dans le message de news:
Salut, Je ferais comme cela
Sheets("liste").Select If Textfournisseur.Value <> "" Then ligne = Range("I2").End(xlDown).Row + 1 Cells(ligne, 9) = Textfournisseur.Value 'ici 9 est la colonne Cells(ligne, 10) = Textadresse1Fournisseur.Value Cells(ligne, 11) = Textadresse2fournisseur.Value End If
Bonne réussite
"Jocelyne" a écrit dans le message de news:
Bonjour, J'ai créé un userform. Je n'arrive pas à intégrer toutes mes valeurs à la suite d'une base et trier par ordre alphabétique. J'ai mis le code sur le bouton valider La feuille s'appelle liste
Private Sub cdmvalider_Click() Sheets("liste").Select If Textfournisseur.Value <> "" Then Range("liste!I2").End(xlDown).Offset(1, 0).Value = Textfournisseur.Value Range("liste!J2").End(xlDown).Offset(1, 0).Value >> Textadresse1Fournisseur.Value Range("liste!k2").End(xlDown).Offset(1, 0).Value >> Textadresse2fournisseur.Value End If
Col I Col J Col K Fournisseurs Adresse 1 Adresse 2 Embal Pro Rue 1 av 2 AG3M Rue 2 ,,, QRT Grafics Rue 3 222
Lorsque je valide, si la colonne adresse 2 n'est pas remplie, elle se remplit à la prochaine validation.
Merci Youki,
J'essaie demain et si ça marche, je te le fais savoir.
A bientôt
"Youky" <bruno.jeune-nospam@wanadoo.fr> a écrit dans le message de news:
OqzH23lfFHA.3936@TK2MSFTNGP10.phx.gbl...
Salut,
Je ferais comme cela
Sheets("liste").Select
If Textfournisseur.Value <> "" Then
ligne = Range("I2").End(xlDown).Row + 1
Cells(ligne, 9) = Textfournisseur.Value 'ici 9 est la colonne
Cells(ligne, 10) = Textadresse1Fournisseur.Value
Cells(ligne, 11) = Textadresse2fournisseur.Value
End If
Bonne réussite
"Jocelyne" <jocelyne.baud@wanadoo.fr> a écrit dans le message de news:
O9AfuRkfFHA.3304@TK2MSFTNGP12.phx.gbl...
Bonjour,
J'ai créé un userform. Je n'arrive pas à intégrer toutes mes valeurs à la
suite d'une base et trier par ordre alphabétique. J'ai mis le code sur le
bouton valider
La feuille s'appelle liste
Private Sub cdmvalider_Click()
Sheets("liste").Select
If Textfournisseur.Value <> "" Then
Range("liste!I2").End(xlDown).Offset(1, 0).Value = Textfournisseur.Value
Range("liste!J2").End(xlDown).Offset(1, 0).Value >> Textadresse1Fournisseur.Value
Range("liste!k2").End(xlDown).Offset(1, 0).Value >> Textadresse2fournisseur.Value
End If
Col I Col J Col K
Fournisseurs Adresse 1 Adresse 2
Embal Pro Rue 1 av 2
AG3M Rue 2 ,,,
QRT Grafics Rue 3 222
Lorsque je valide, si la colonne adresse 2 n'est pas remplie, elle se
remplit à la prochaine validation.
Merci Youki, J'essaie demain et si ça marche, je te le fais savoir. A bientôt
"Youky" a écrit dans le message de news:
Salut, Je ferais comme cela
Sheets("liste").Select If Textfournisseur.Value <> "" Then ligne = Range("I2").End(xlDown).Row + 1 Cells(ligne, 9) = Textfournisseur.Value 'ici 9 est la colonne Cells(ligne, 10) = Textadresse1Fournisseur.Value Cells(ligne, 11) = Textadresse2fournisseur.Value End If
Bonne réussite
"Jocelyne" a écrit dans le message de news:
Bonjour, J'ai créé un userform. Je n'arrive pas à intégrer toutes mes valeurs à la suite d'une base et trier par ordre alphabétique. J'ai mis le code sur le bouton valider La feuille s'appelle liste
Private Sub cdmvalider_Click() Sheets("liste").Select If Textfournisseur.Value <> "" Then Range("liste!I2").End(xlDown).Offset(1, 0).Value = Textfournisseur.Value Range("liste!J2").End(xlDown).Offset(1, 0).Value >> Textadresse1Fournisseur.Value Range("liste!k2").End(xlDown).Offset(1, 0).Value >> Textadresse2fournisseur.Value End If
Col I Col J Col K Fournisseurs Adresse 1 Adresse 2 Embal Pro Rue 1 av 2 AG3M Rue 2 ,,, QRT Grafics Rue 3 222
Lorsque je valide, si la colonne adresse 2 n'est pas remplie, elle se remplit à la prochaine validation.