Résultats de la recherche

dernière mise à jour 13/12/2020, j'avais déjà oublié

Bonsoir à tous Je réponds hors du temps, pas beaucoup de temps pour le moment !!! juste pour laisser une idée, encore en construction et adaptation Option Explicit Public Sub getAllHyperlinks() Dim xSheet As Worksheet, refSheet As Worksheet, countSheet As Worksheet Dim i As Integer Dim...

Je m'excuse pour le retard dans la réponse, et quelque chose comme ça? Option Explicit Public Sub GetreferenceExterne() Dim xSheet As Worksheet Dim xRg As Range, rng As Range Dim xCell As Range Dim xCount As Long Dim xLinkArr() As String Dim lastrow As Long Dim ArrOutput As Variant Dim xLink...

essayez le code suivant, tous les liens seront rompus mettre dans un module standard Option Explicit Public Sub removeLinks() Dim link If Not IsEmpty(Application.ThisWorkbook.LinkSources(xlExcelLinks)) Then For Each link In Application.ThisWorkbook.LinkSources(xlExcelLinks)...

Bonjour à tous copiez ce qui suit et collez-le dans un module standard Option Explicit Public Sub GetreferenceExterne() Dim xSheet As Worksheet Dim xRg As Range, rng As Range Dim xCell As Range Dim xCount As Long Dim xLinkArr() As String Dim lastrow As Long Application.ScreenUpdating =...

Bonjour à tous, chaque fois que vous avez des questions ou avez besoin d'aide, n'hésitez pas à demander, il y aura toujours quelqu'un ici sur le forum pour vous aider à vous de poursuivre votre projet et de le créer comme vous le souhaitez et ainsi vous apprenez VBA...

:) ;) merci beaucoup, oui j'ai un fils, et qui sait, peut-être que je vais acheter un doudou

Bonsoir à tous des variables manquent dans vos macros, je vous conseille de le faire sans trop changer votre projet, J'ai remarqué que dans la procédure Private Sub ListBoxJour_Change() ,vous avez cette ligne écrite comme ceci If dchoisis.exists(c.Value) And...

Bon après-midi à tous Je n'ai pas bien compris votre dernier message vous avez une mise en forme personnalisée dans la plage ("M2") de la feuille ("Fact") et dans la colonne ("A") de la feuille ("client"), est-ce exact? et vous ne voulez pas le texte de mise en forme, juste le nombre ajouté...

Bonjour à tous ajouter ce code à Private Sub btn_select_Click() Private Sub btn_select_Click() If Me.ListBox.ListCount = 0 Then Exit Sub Dim x As Long Dim xCount As Integer Dim idClient As String Dim sht As Worksheet xCount = 0 For x = 0 To Me.ListBox.ListCount - 1 If...

Bonsoir à tous, juste une idée, vous pouvez adapter et ajouter plus de recherche, il suffit de suivre l'exemple dans la listbox j'ai ajouté 3 colonnes, la première colonne apparaît l'adresse de la plage où les données ont été trouvées, la deuxième colonne est le code client, la troisième...

Bonjour à tous Je vous laisse ici un exemple, il vous suffit de l'adapter au code de votre projet Private Sub impressionFeuille() ' impression Dim myWorksheet As Worksheet Dim iCounter As Long Dim myCmPointsBase As Single ' pour définir les marges et les tailles de l'image, s'il y a une...

Bonsoir à tous vous avez eu une erreur dans la macro vous avez Set Ladate = rng.Cells.Find(What:=CDate(Me.TextBox1.Text), LookIn:=xlFormulas, LookAt:=xlWhole) au lieu d'avoir Set Ladate = plage.Cells.Find(What:=CDate(Me.TextBox1.Text), LookIn:=xlFormulas, LookAt:=xlWhole) J'ai fait les...

Bonsoir à tous, pouvez-vous joindre une démo du fichier (sans données confidentielles)? votre expression A = 200 est dans la même colonne ou (A) est dans une colonne et (200) dans une autre?

Bon après-midi à tous, Je suis désolé, c'était mon erreur, et je ne l'ai même pas corrigée avec vos avertissements, je me suis concentré sur la colonne ("B") avec les chiffres changez simplement cette partie du code et il triera par noms ' ArrInput(i) = Range("B" & iniR) &...

bonjour à tous fichier de démonstration joint Je viens de tester sur 3 ordinateurs différents, avec excel 2013 pro 32-bits, avec excel 2016 32-bits et avec excel 2019 pro 64-bits la macro est définie sur "PrintPreview ", pour imprimer modifier cette partie

Bonjour à tous J'ai dû modifier plusieurs points de votre formulaire utilisateur combobox sans doublons ajoutés dans les propriétés combobox1, j'ai supprimé rowsource remplacez vos codes par les suivants, les autres peuvent rester dans votre formulaire utilisateur Private Sub...

Bonsoir à tous Je laisse ici un exemple de la façon d'empêcher une feuille d'être supprimée ou renommée collez le code suivant dans la feuille de calcul, veillez à changer le nom de la feuille de calcul et le nom de code de la feuille de calcul, mon exemple, le nom est "Feuille1" et le code de...

Bonjour à tous votre projet a demandé du travail beaucoup d'erreurs J'ai adapté quelques changements fichier Excel joint

Bonsoir à tous Je viens de jeter un coup d'œil à votre projet dans le code qui se trouve dans le module, vous avez ces déclarations de variables, donc l'écriture ne définit pas des objets, mais des variantes exemple: Dim Obj80, Obj99, Obj110 As MSForms.Label équivaut à avoir: Dim Obj80 As...