Résultats de la recherche

Bonjour, un essai à tester : Sub COPIER_COLLER_PLS_FOIS() Dim x As Integer, Plage As Range With Sheets("Liste") x = .Range("B2").Value Set Plage = .Range("F2:F9") End With With Sheets("Feuil2") Plage.Copy .Range("A1").Resize(Plage.Rows.Count * x) End With End Sub A+

@mapomme : Bien vu ! Je n'avais pas fait attention au changement possible de secteur.... ce ne serait pas difficile de rectifier ( inclure dans la clé les 2 secteurs et modifier la "distribution" des données dans le tableau final). Mais avec cette demande d'aménagement, j'en resterai là...

Bonjour @davy76, @mapomme, Un essai par tableau et dictionary... avec exactement les mêmes limites signalées par @mapomme Sub Davy76() Dim T, i As Long, Dico, Parité As String, TT, DL As Long, TFin(), x As Integer Set Dico = CreateObject("Scripting.Dictionary") With Worksheets("Zone") ' tri...

Dans la Sub Cadre1_Cliquer() commencer par tester l'existence de la feuille, avant de modifier l'affichage des feuilles ???

Impec !

Bonjour, Vous pouvez adapter ce genre de code : If IsError(Evaluate("='" & a & "'!A1")) Then MsgBox "La feuille " & a & " n'existe pas" Exit Sub End If A+

Bonjour, pas tout saisi sur la façon dont ça serait utilisé.... un essai : TFiltre = Array("CSV (Virgule délimiteur) (*.csv), *.csv", "TXT (Virgule délimiteur) (*.txt), *.txt") Fichier = Application.GetSaveAsFilename(fileFilter:=TFiltre(0), Title:="Choisissez le dossier de destination!") '...

Pas du tout !!! ??? Alors je n'ai vraiment rien compris .... Je passe la main.

Merci pour le lien sur la récursivité qui n'est qu'un moyen, le principal est ce que vous voulez obtenir..... Le code présenté répond à cette demande ? non?

Ce n'est qu'une impression...... Relisez ma première réponse : il y a 3 lignes à remplacer par une nouvelle. Et vous avez remplacé la deuxième par la nouvelle et donc conservé la boucle for i... lors de la première itération tout se passe bien, mais à la deuxième les éléments à supprimer...

bonjour à tous, essayer : MsgBox TypeName(v) A+

Ca fonctionne tel quel avec votre classeur et Excel 2007. Où avez vous copier la fonction? Elle doit être copiée dans la même feuille que les différentes sub du userform et non dans un module standard. A+

Bonsoir, un essai: Dans Private Sub ComboBox1_Change(), remplacer For i = ListBox1.ListCount - 1 To 0 Step -1 If ListBox1.List(i, 0) = Me.ComboBox1 Then ListBox1.RemoveItem (i) 'supprimer item choisi dans Combo (pour ne pas pouvoir le relier à lui-même) Next i par SuppItem...

Bonjour Eduraiss, Chris, sylvanu, une autre solution par tableaux et dictionary pour la rapidité: Private Sub Eduraiss() Dim DL1 As Long, DL2 As Long, Dico, i As Long, WS1 As Worksheet, T1, T2 Set WS1 = Worksheets("Feuil1") Set Dico = CreateObject("Scripting.Dictionary") DL1 = WS1.Range("A"...

Bonjour, rien compris ! et le classeur n'arrange rien ! et si de plus la réalité est plus compliquée .... A+

??? ma réponse ne dois pas convenir ? on ne m'y reprendra. pas + 1 dans la liste "Ignorés"

Bonjour, dans Private Sub Cmd_search_Change() , pour ajouter une ligne dans la listbox, on compare TC(I, 1) (qui contient du numérique) et Me.Cmd_search.Value (qui contient une chaine de caractère) . N'étant pas du même type, ils ne seront jamais égaux, raisons pour laquelle il n'y a rien dans...

je supprime ma proposition, je n'avais vraiment rien compris au souci... Bonne suite

Avec des besoins aussi précis , pas de propositions ... Bonne suite...