Contenu récent par Rhysand

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) &...