Résultats de la recherche

Re : Alimenter listbox avec range Comment dire... MERCI !

Re : Alimenter listbox avec range Ce n'est même plus de la rapidité !!! J'ai juste inverser le (5, j) en (j, 5) et ça fonctionne ! Impecc. Je vais abuser du coup, mais ça me renvoi aussi des cellules vides, un moyen de les enlever ? Merci encore.

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

Re : Afficher résultats d'une recherche sur plusieurs onglets. Arff je me réponds à moi même : Sheet ! Merci.

[RESOLU] : Afficher résultats d'une recherche sur plusieurs onglets. Comment dire... rapide, efficace... parfait ! A quoi correspond le "sh" ? Merci beaucoup !

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

Re : Si non vide alors STOP Super, merci, c'est plus simple en effet et ça fonctionne. Impecc.

Re : Si non vide alors STOP 1er test, sans le NOT, et là pas de message et la routine continue. Par contre pour le Else, je ne sais pas comment le placer, j'ai encore un peu de mal avec la syntaxe... Merci.

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

Re : Incrémenter cellule cible d'une textbox J'ai à partir de l'aide de natorp, réussi à me dépatouiller, j'ai défusionné les cellules qui l'étaient. En gros ça donne ça : Désignation de la cellule cible initiale : Private Sub CommandButton2_Click() Sheets("19recto (2)").Activate...

Re : Incrémenter cellule cible d'une textbox Merci, mais j'ai encore un décalage, ça commence en ligne 2, après c'est OK à partir de la ligne 11. La création des différentes feuilles est utilisée plus tard pour les renommer et en recréer par la suite (le fichier a bien évolué depuis). La B34...

Re : Incrémenter cellule cible d'une textbox Autant pour moi, il y a bien quelques données en colonne B2 et à partir de B36. Mais les autres colonnes non et il y a donc un décalage certain.

Re : Incrémenter cellule cible d'une textbox Re, Merci, mais cela ne fonctionne pas ??!! Aucune valeur n’apparaît dans les cellules...

Re : Incrémenter cellule cible d'une textbox Hello ! Je suis toujours coincé malgré différentes tentatives, quelqu'un pour m'aider ? Merci.

Re : Incrémenter cellule cible d'une textbox Merci à vous 2. phlaurent55 - je n'ai pas l'impression que cela fonctionne. natorp - B12 prend la valeur saisie dans TextBox1, on valide et la saisie suivante dans Textbox1 va dans B13, etc... Désolé pour l'absence de fichier, j'ai dû effacer...

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

Re : Boucle qui plante (For - Next) Yes ça fonctionne en effet, j'ai viré toutes les textbox et recommencé, il y avait un saut dans la numérotation de celles-ci. Là ça marche impecc. Merci à tous !

Re : Boucle qui plante (For - Next) Bonjour, vous êtes tous super rapide... Je vais tenter de vérifier avec vos infos, je reviens ASAP. Si ça ne va toujours pas je joindrai le fichier. Merci.

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