| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 02/09/2022 à 15:57 | bassbynight | Workbook_sheetChange + modification de contenu d'une cellule | J'ai un souci avec la fonction workbook_sheetchange. Voici le code Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range) 'Application.ScreenUpdating = False If ActiveSheet.Name = "SR" Then rempla End If 'Application.ScreenUpdating = True If sh.Name = "Input" Then Exit Sub If sh... |
| 02/12/2020 à 13:18 | bassbynight | Formule dans cellule | Merci pour votre retour. En effet, c'est exactement la fonction .address que je cherchais... je suis bête car je n'y ai pas pensé alors que je l'ai utilisé dans d'autres codes... La colonne va aussi varier donc je mets : Merci à vous... |
| 01/12/2020 à 18:43 | bassbynight | Formule dans cellule | Voici mon fichier. J'ai vu une grande majorité des discussions sur le sujet mais je n'arrive pas à résoudre mon problème. Dans cette feuille, j'ai un code type formula local qui me permet de générer automatiquement la formule contenue dans la barre ci-dessus. Le 6,48% provient du textbox d'un userfo... |
| 09/11/2020 à 20:06 | bassbynight | Insertion de ligne et changement de variable | En effet, vous avez raison. Autant pour moi! Bonne soirée et merci ... |
| 08/11/2020 à 20:52 | bassbynight | Insertion de ligne et changement de variable | Y a-t-il des vaillants pour m'aider à sortir de ce pétrin? :)... |
| 08/11/2020 à 12:03 | bassbynight | Insertion de ligne et changement de variable | Oui, je me doutais que sans le fichier ni le code ca n'allait pas être facile... Le voici : Je souhaite seulement savoir comment faire varier Cells(ligneci, colci) entre ces deux lignes, c'est à dire forcer la macro à chercher de nouveau les coordonnées de la cellule contenant "charges immeuble". En... |
| 07/11/2020 à 00:40 | bassbynight | Insertion de ligne et changement de variable | J'ai un code de ce type : Sub X_Y_Z() Dim X as Integer Dim Y as Integer X = sheets("feuil1").Range("A:XFD").Find("tableau 2",lookat:=xlwhole).row Y=sheets("feuil1").Range("A:XFD").Find("tableau 2",lookat:=xlwhole).column Sheets("feuil1").Cells(X,Y).End(xlUp).Offset(1, 0).EntireRow.Insert Sheet... |
| 03/11/2020 à 17:03 | bassbynight | Userform après clic sur hyperlink | Et bien c'est parfait, ça marche! Merci !! Amicales salutations... |
| 03/11/2020 à 11:35 | bassbynight | Userform après clic sur hyperlink | Bonjour à toutes et à tous, J'ai mis des hyperlink pour chaque cellule non vide dans les colonnes A et B. L'adresse de ces hyperlink est vide et j'ai fait une macro dans la feuille contenant ces hyperlink afin de déclencher l'apparition d'un userform après le clic sur le hyperlink : ==> Sauf que... |
| 02/11/2020 à 17:07 | bassbynight | Générer userform après clic su cellule | Eureka ... |
| 02/11/2020 à 16:00 | bassbynight | Générer userform après clic su cellule | Voici le code que j'ai commencé à faire (mais qui ne marche pas, pour je ne sais quelle raison...)... |
| 02/11/2020 à 14:57 | bassbynight | Générer userform après clic su cellule | Merci pour votre retour! Comment puis-je faire pour, dans une colonne donnée et si la cellule n'est pas vide , mettre le contenu d'une cellule en lien hypertexte svp... |
| 31/10/2020 à 21:08 | bassbynight | Générer userform après clic su cellule | Afin de générer un userform à la suite d'un clic sur une cellule non vide dans les colonnes 2 et 3, j'ai généré le code suivant : Est-il possible que le lancement de userform se fasse après le clic sur le contenu d'une cellule (comme si le contenu d'une cellule était un lien vers le userform) et non... |
| 29/10/2020 à 16:29 | bassbynight | Récupérer valeurs dans textbox/userform | Un ami m'a sauvé! en fait il fallait juste appeler le userform ciblé et mettre le type de collection : For I = 1 To nb_lots Sheets("actifs").Cells(Rows.Count, col - 1).End(xlUp).Offset(I, 1).Value = "app " & I Sheets("actifs").Cells(Rows.Count, col - 1).End(xlUp).Offset(I, 6).Value = ajout_actif_imm... |
| 29/10/2020 à 15:59 | bassbynight | Récupérer valeurs dans textbox/userform | Je suis au point mort..... |
| 29/10/2020 à 15:39 | bassbynight | Récupérer valeurs dans textbox/userform | 3/ Êtes-vous sûrs ... par Êtes-vous certain(e)... ==> que voulez-vous dire... |
| 29/10/2020 à 15:33 | bassbynight | Récupérer valeurs dans textbox/userform | C'est au niveau de la ligne en gras qu'il ne veut pas... For I = 1 + 1 To nb_lots Sheets("actifs").Cells(Rows.Count, col - 1).End(xlUp).Offset(I, 1).Value = "app " & I Sheets("actifs").Cells(Rows.Count, col - 1).End(xlUp).Offset(I, 6).Value = "LHC" & I.Value Sheets("actifs").Cells(Rows.Count, col -... |
| 29/10/2020 à 15:12 | bassbynight | Récupérer valeurs dans textbox/userform | Ah en effet, merci! Ca serait peut-être plus simple effectivement, mais je trouve que cela fait un peu moins "propre"... et je souhaite faire un outil duplicable et utilisable par d'autres personnes que moi... Merci pour ta réponse en tout cas... |
| 29/10/2020 à 15:08 | bassbynight | Récupérer valeurs dans textbox/userform | Merci mais j'ai déjà lu cette partie et je n'arrive toujours pas à résoudre mon problème. Bonjour Dan, Voici le fichier. En cliquant sur "ajouter un actif" dans l'onglet "actifs" puis en cochant "immeuble" et en mettant "2" en nombre de lots par exemple (donnée que je stocke ensuite en cellule(1,26)... |
| 29/10/2020 à 14:48 | bassbynight | Récupérer valeurs dans textbox/userform | J'ai le userform suivant : J'ai renommé les textbox app1 == > Loyers HC : "LHC1" app2== > Loyers HC : "LHC2" etc... et : app1 == > Provisions sur charges : "PV1" etc... Je souhaiterai faire un code qui insère les valeurs des textbox LHCi / PVi dans des cellules d'une feuille les unes à la s... |
| 26/10/2020 à 16:29 | bassbynight | Userform format avec conditions | ThauThème vous êtes un génie, tout simplement. Merci... |
| 26/10/2020 à 15:57 | bassbynight | Userform format avec conditions | J'avance petit à petit, mais je rencontre de nouveaux obstacles (normal me direz-vous), dont le dernier que je n'arrive pas à résoudre. Mon code lance le userform suivant : Mais je souhaiterai que si l'on inscrit le chiffre "5", que cela n'affiche pas les textbox app6, app7, app8 etc.... dans le use... |
| 21/10/2020 à 17:44 | bassbynight | Alimenter liste combobox | La liste se construit au fur et à mesure avec les lignes successives. Vous avez un ou plusieurs actifs liés en colonne B, un ou plusieurs prêteurs en colonne C et un ou plusieurs emprunteurs en colonne D. Je saisis la nouvelle donnée dans la combobox (qui peut etre identique ou différentes d'une des... |
| 21/10/2020 à 16:19 | bassbynight | Alimenter liste combobox | Merci pour votre retour. Pour commencer on ne fait pas Initialize sur un combobox mais sur le Userform ==> Ah Merci ! Sub commandbutton1_click() Unload ajout_credit If OptionButton1.Value = True Then ajout_credit2.Show Else MsgBox ("pas encore programmé, revenez plus tard") End If End Sub J'ai es... |
| 21/10/2020 à 14:49 | bassbynight | Alimenter liste combobox | Je n'arrive pas à alimenter une combobox avec un range de valeurs. J'ai fait le code suivant mais qui ne marche pas (je me demande bien pourquoi) : Sub ComboBox_Initialize() Dim ligne As Integer Dim ligne_fin As Integer Dim col As Integer ligne = Sheets("Résumé").Range("A:XFD").Find("Libellé crédit"... |
| 20/10/2020 à 10:56 | bassbynight | Supprimer colonnes | Super! Merci!... |
| 19/10/2020 à 17:33 | bassbynight | Supprimer colonnes | Merci pour votre réponse. Mais cela ne va supprimer que la colonne qui contient "bonjour_1" or je voudrai supprimer la colonne qui contient "bonjour_1" ainsi que les 4 colonnes suivantes..... |
| 19/10/2020 à 17:05 | bassbynight | Supprimer colonnes | Mon problème est assez simple, je souhaiterai supprimer la colonne entière qui contient un mot que je recherche ainsi que les 4 colonnes (entières) suivantes. Pour l'instant j'ai fait ceci : Sheets("feuille1").Range("A:XFD").Find("bonjour_1", lookat:=xlWhole).EntireColumn.Delete Shift:=xlLeft Auriez... |
| 15/10/2020 à 09:44 | bassbynight | Macro après clic sur symbol | Superbe! Merci pour votre aide... |
| 14/10/2020 à 20:54 | bassbynight | Macro après clic sur symbol | Merci pour votre réponse. Cependant, je ne comprends pas comment "'supprimer(" & ligne_fin & ")'" déclenche la macro Sub supprimer(ligne) (en effet cela déclenche le msgbox que j'ai mis pour l'instant dans supprimer(ligne)). Et savez-vous comment je peux récupérer le nom du "nosymbol" sur lequel je... |
| 14/10/2020 à 17:08 | bassbynight | Macro après clic sur symbol | Dans l'onglet "résumé" de mon fichier, je génère des lignes correspondant à des crédits avec des tickbox et de symboles "no" en fin de ligne. J'aimerai pouvoir lancer des macros quand des clics simples sont faits sur les symboles "no" (msg box de confirmation puis suppression de ligne avec décalage... |