Cette vidéo vous montre comment : créer un Formulaire de Saisie sur Excel: Ajouter,Modifier,Rechercher et Supprimer des Données à partir d'une ListView. Comment afficher des images. Insérer des Images dans un formulaire.
Super ce tuto, un Grand Merci Yahya, il y a juste une remarque: Lorsque on clike sur supprimer en fait on fait un RAZ et pas un éffacement des données de la ligne affichée! Cependant il est très bien fait Pouvez vous mettre le code pour une vrai suppréssion? Merci
Voici la correction: Private Sub CommandButton3_Click() 'Supprimer 'If MsgBox("Etes-vous sûr de vouloir supprimer les données?", vbYesNo, "demande de confirmation") = vbYes = vbYes Then End If Sheets("Data").ListObjects(1).ListRows(ComboBox1.ListIndex + 1).Delete ' cette ligne était avant le End if! RAZ UserForm_Initialize End Sub Merci Yahya
Bonjour et bravo pour le tuto. Comment fait-on pour adapter les photos au cadre du formulaire car mes photos sont beaucoup plus grande que le cadre si bien qu'on n'en voit qu'une partie ? Merci à vous
Bonjour Je m'excuse pour ce retard. Pour adapter les fotos dans le formulaire, il faut d'abord personnaliser les fotos dans uns un forme 5X5 CM. Puis click droit sur le control image du formulaire puis propriétés, puis:picture SizeMode, choisissez sizemodeClip.
Bjr Cher Monsieur. C'est sensationnel...!!! Extra...!!! pourriez-vous avancer une vidéo avec un userform multipage (Plus de 5 pages par exemple : Enregistrement projet avec plusieurs phases et chaque phase dans une page exemple : 1/- étude, 2/- aménagement, 3- lancement, 4- réalisation du projet, 5- réception du projet)
Bonjour, excellent tuto, mais si j'ai un formulaire avec des cases non complétées et que je veux que ces cases "vide" soit = a 0 de façon à obtenir des calculs correcte dans ma feuille Excel, que faut-il faire?
Bonjour Si j'ai bien compris ce que tu veux est: Les cases vides du tableau s'affichent dans la liste listview en une tel forme. Bien sûr c'est possible. tu peux me contacter par la suite.
Arrivé à l'étape du copier et coller du titre de la Macro et quand je veux exécuter, on m'affiche le message : Erreur d'exécution '9' : L'indice n'apparait pas dans la sélection. Aidez-moi si possible
Merci bcp pour ce joli travail! Est-ce possible de partager en ligne pour que les personnes puissent s’inscrivent à distance s’il vous plaît monsieur ?
Bonjour Tu as un bloque sur la listview item click tu n'as pas bien organisé les item afin de les afficher sur les controls textbox. Tu m'envoi ton fichier pour vérifier avec vous. yahya.belbachir@gmail.com
Salut j'ai un problème lors de la filtrage lorsque je filtres me données ça fiche uniquement dans la feuille Excel mais dans la liste View le filtrage ne s'affiche pas
Bjr Pour afficher seul le userform: Tu ouvre le visual basic et tu click sur thisworbook et tu choisis open, tu le trouveras á la droite en haut de la page ouverte puis tu mets Thisworkbook.application.visible= false Userform1.show End sub Si tu ne peux faire ça tu peux m'envoyer ton fichier de le faire moi même Cdt Yahya
Bsr mr j'apprécie bien le tuto, j'ai repriduit d'ailleurs la même chose, mais mon bouton valider vert naffiche pas ya une erreur d'objet. Puis mes images naffichent pas. Hors le dossier est sur le bureau j'ai fais la meme chose que vous. Quand j fais clic droit sur limage dans album, mon chemin est belle et bien c:\users\phanuel\deskto\ALBUM... MAIS JE PAS MIS SA, J MIS C QJE VOUS AVEZ Mi sur votre tuto
svp jatends votre réponse jatends votre retour car j'ai déjà envoyé le fichier sur votre e-mail mr. Merci d'avance. Svp rragissez aujourd'hui car j'ai une présentation demain
Hi, Suppose, we took another column (Remarks column) and took a TextBox. After selecting 8-9 data from the Listview, whatever I write in the textbox will be added to that column.
BONJOUR BON TUTO,mais le fichier ce bloque ace niveau niveau Set D = Tbl.ListRows.Add.Range(1) With D merci Private Sub CommandButton2_Click() 'ajouter Dim Tbl As ListObject If MsgBox("Confirmation d'enregistrement", vbYesNo) = vbYes Then Set Tbl = Sheets("DATA").listobects(1) Set D = Tbl.ListRows.Add.Range(1) With D For i = 1 To 6 .Cells(1, i).Value = Controls("textbox" & i).Value Next i End With End If RAZ UserForm_Initialize End Sub
Vous êtes vraiment bon . J ai suivis vraiment le tuto mais je suis caler . J'aimerais échanger avec vous . Si possible votre email ou message instantané telegram? Si aussi possible avoir ce fichier pour le télécharger.