Boite d'entréée dans un classeur
Résolu/Fermé
gham
Messages postés
48
Date d'inscription
samedi 8 décembre 2007
Statut
Membre
Dernière intervention
7 novembre 2021
-
16 déc. 2007 à 21:16
gham - 17 déc. 2007 à 19:39
gham - 17 déc. 2007 à 19:39
A voir également:
- Boite d'entréée dans un classeur
- Se connecter à ma boite hotmail - Guide
- Boite gmail saturée - Guide
- Boîte mail française gratuite - Guide
- La boite a couleur - Télécharger - Divers Photo & Graphisme
- Boite gmail bloquée - Guide
5 réponses
Raymond PENTIER
Messages postés
58777
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
24 décembre 2024
17 258
17 déc. 2007 à 04:04
17 déc. 2007 à 04:04
Pas bien compris ton problème, en particulier ce que tu appelles une boîte !
Cependant pour faciliter la saisie de données, Excel propose l'outil "Formulaire". Et pas besoin de VBA !
Cependant pour faciliter la saisie de données, Excel propose l'outil "Formulaire". Et pas besoin de VBA !
gham
Messages postés
48
Date d'inscription
samedi 8 décembre 2007
Statut
Membre
Dernière intervention
7 novembre 2021
5
17 déc. 2007 à 13:28
17 déc. 2007 à 13:28
ok, j'aimerais créer un userform qui contient des textboxs dont on ajoute des données et celles-ci seront transposées automatiquement dans une feuille de calcul d'excel.
Et merci
Et merci
Raymond PENTIER
Messages postés
58777
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
24 décembre 2024
17 258
17 déc. 2007 à 16:49
17 déc. 2007 à 16:49
Alors je suis désolé de ne pouvoir t'être d'aucune utilité, car je ne connais pas VBA.
bjr
Voici un code a mettre sur un bouton dans un userform
et a adapter
sub archiver()
Sheets("stats").Rows("6:6").Insert Shift:=xlDown 'ligne 6
Sheets("stats").Rows("6:6").Interior.ColorIndex = xlNone
Worksheets("stats").Range("a6") = textbox1.value
Worksheets("stats").Range("b6") = combobox1.Value
Worksheets("stats").Range("c6") = listbox1.Value
end sub
Voici un code a mettre sur un bouton dans un userform
et a adapter
sub archiver()
Sheets("stats").Rows("6:6").Insert Shift:=xlDown 'ligne 6
Sheets("stats").Rows("6:6").Interior.ColorIndex = xlNone
Worksheets("stats").Range("a6") = textbox1.value
Worksheets("stats").Range("b6") = combobox1.Value
Worksheets("stats").Range("c6") = listbox1.Value
end sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question