Résultats de la recherche

Bonjour le Forum. 😀 Pour les intéressés, un exemple parmi d'autres pour créer un numéro de facture automatique. Le mode d'emploi est inscrit dans le classeur.

Bonjour le Forum, aujourd'hui je vous propose un tableau de bord personnalisable, en image: Il n'y a pas d'autres formulaires. Pour fermer le volet de navigation à gauche, cliquez sur la croix; et pour l'ouvrir, cliquez ensuite sur les 3 barres verticales en haut à gauche. Très bonne...

Bonjour le Forum, 😀 voici un simple formulaire déjà codé pour les initiés et personnalisable. En image: Bien entendu, vous devrez l'adapter selon vos besoins. Exemple: si vous avez moins de colonne, faudra modifier le nombre de colonne inscrites dans le code: For col = 4 To 12 par For col =...

Bonjour à tous 👋:) Je suis entrain de faire un calendrier sur formulaire. Comme il y a 42 labels, j'ai opté pour un module de classe. Mon souci c'est que j'ai aussi 2 textbox's (date debut - date de fin). Je n'arrive pas à faire en sorte, d'avoir une date de début et une date de fin. Option...

Bonjour le Forum, :) Désolé si le titre n'est pas vraiment parlant, ne sachant pas quel titre donner à ma demande. J'aimerais ajouter une condition en comparant avant, les textes suivants: "as", "dix", "valet", "dame", "roi". C'est textes peuvent apparaître simultanément en B7, B8 - F7, F8...

Bonjour le Forum, :) Dans les formules on peu imbriquer plusieurs conditions avec Et ou Ou. Comment appliquer ET avec Select Case? J'ai écrit ceci: Case Is > Val(PointsJoueur.Value), Is <= 21, met la macro n'en tiens pas compte.

Bonjour le Forum, :) Après plusieures tentatives faite avec Dictionnary, if cells(k, 3) = cells(k-1) then, boucle for each etc. Je me tourne vers vous pour trouvez une solution au problème. En PJ, le fichier pour test.

Boujour à toutes et à tous! :) J'ai 6 contrôles image activex sur la feuille. J'aimerais faire une boucle avec une variable. J'ai mis ctrl As Oleobject (ctrl As Shape), Set ctrl = Me.OleObjects("Image" & k); mais ne prend pas en charge, ex.: Image1.Picture = LoadPicture. Un ch'ti coup de...

Bonsoir à toutes et à tous. J'éspère que vous allez tous bien, malgré cette char...... . J'ai un souci avec ADODB pour la copie de données de 6 classeurs (pour l'instant). Avant celà, j'ai utilisé Workbook.Open. La macro fonctionne bien, mais le problème c'est que, malgré ScreenUpdating =...

Bonjour le Forum :) J'aimerais ajouter 2 sons qui sont dans Resources-Projet. J'ai vu qu'il existait DirectX pour pouvoir le faire; hors, il n'est plus dans les références. Comme je suis débutant, si un expert pourrait m'aider, ce serait sympa. Note: le premier son est le son de fond; le...

Bonjour à toutes et à tous :) Je cherche à afficher dans une listbox les sauts de lignes d'une feuille. J'ai touvé cette macro fait par job75 à cette adresse ListBox-Sauts de lignes La macro prend en charge qu'une colonne et j'ai essaié de l'adapter pour 4 colonnes, mais sans succès. Job, si...

Bonjour à toutes et à tous :) Exemple : classe 9ème > Louis Clopette > date 11.10.2018 > Mathématiques > note 4 Pour la feuille 9ème pas de souci mais, j'ai un problème concernant la modification d'une cellule (note selon le nom, la date et la matière) dans la feuille Notes qui correspond à...

Bonjour à toutes et à tous :) Est-il possible d'agir sur les dossiers vba project en les maintenant fermés à l'ouverture du classeur?

Bonjour à toutes et à tous :) D'après cet exemple: DebCom = 12:01:08 FinCom = 12: 01:48 Duree = (FinCom - DebCom) TextBox8 = Format(Duree, "mm:ss") Comment obtenir 00:40 si inférieur à 1 minute?

Bonjour à toutes et à tous :) J'ai un souci avec ce module de classe Option Explicit Public WithEvents TbBox As MSForms.TextBox Private Sub TbBox_Change() Dim i&, Total# Total = 0 For i = 1 To 12 Set TbBox = UsfMoyennes.Controls("TextBox" & i) Next i If...

Bonjour à toutes et à tous :) Voilà, j'ai un souci avec le tableau de la feuil 1. J'aimerais transposer des lignes en colonnes d'après le nom et le trimèstre de la feuille 2 en utilisant la boucle For i = 2 to Ubound(tablo). Celui-ci ne contient que 2 trimèstre seulement. Merci d'avance pour...

Bonjour le Forum :) J'ai un souci avec cette macro à la ligne Redim Preserve Private Sub Lister() With ActiveSheet Bd = .Range("a2:h" & .Range("h" & Rows.Count).End(xlUp).Row) n = 0 End With ListBox1.Clear For i = LBound(Bd) To UBound(Bd) If Bd(i, 1)...

Bonsoir le Forum :) Il y a possiblilité de faire le tri sur l'année au lieu des jours avec la macro de Jacques Boisgontier Quick Sort? Private Sub Tri(a(), gauc, droi, colTri) Dim Temp, C, ref, g, d ref = a((gauc + droi) \ 2, colTri) g = gauc: d = droi Do Do While a(g, colTri)...

Bonjour le Forum :) Dans le fichier joint, j'ai une liste déroulante en D3 qui affiche dans un shape 1ère semaine - 2ème semaine etc. Les cellules B5 et D5 servent à afficher la semaine choisie en masquant les autres colonnes. Pour ce, il faut cliquer en D6. Est-il possible qu'après avoir...

Bonjour à toutes et à tous :) Voilà, hier soir j'ai suivi un tuto concernant les tableaux croisés dynamiques. J'aimerais maintenant filtrer toutes les maisons et appartements qui ont un jardin et(ou garage), mais je n'arrive pas à appliquer les champs correctement. La feuille concernée est...