Résultats de la recherche

  1. B

    [RESOLU] Alimenter listbox avec range

    Bonjour tout le monde, J'ai actuellement un bout de code qui fonctionne bien : Private Sub CommandButton4_Click() Dim sh As Worksheet, c As Range If Trim(TextBox1) = "" Then Exit Sub For Each sh In ThisWorkbook.Worksheets Set c = sh.UsedRange.Find(Trim(TextBox1.Text), sh.Cells(1...
  2. B

    Afficher résultats d'une recherche sur plusieurs onglets.

    Hello tout le monde ! Après maintes et maintes recherches, je n'ai pas réussi à trouver mon bonheur ou du moins à adapter ce que j'ai pu trouver. J'ai donc besoin de vos lumières. Le but est donc de remplacer un Ctrl+F avec un UserForm : TextBox qui sert de zone de saisie de recherche...
  3. B

    [RESOLU] Si non vide alors STOP

    Bonjour le forum, J'ai besoin de votre aide avant de jeter mon pc par la fenêtre (du rez-de-chaussée) :mad: Je cherche à stopper l'action du clickbutton si le label n'est pas vide, j'en suis là : En gros ça fonctionne dans le sens inverse, quand c'est vide ça stoppe le processus, mais moi...
  4. B

    [RESOLU] Incrémenter cellule cible d'une textbox

    Me revoilà avec une nouvelle colle, je vais y prendre goût ! J'ai toujours mes 20 textbox qui renvoient chacune la valeur saisie vers une cellule. Comme ceci : Private Sub TextBox1_Change() Sheets("19recto (2)").Range("B12") = UserForm4.TextBox1 End Sub Private Sub...
  5. B

    [RESOLU] Boucle qui plante (For - Next)

    Bonjour, J'ai ce bout de code qui m'ennui : Private Sub CommandButton1_Click() For i = 1 To 10 If Me.Controls("TextBox" & i) = "" Then MsgBox "Veuillez remplir tous les champs" Me.Controls("TextBox" & i).SetFocus Exit Sub End If Next i Unload Me End...