2966 résultats trouvés

par ThauThème
15 mai 2019, 16:46
Forum : Excel - VBA
Sujet : MsgBox si la colonne contient un mot
Réponses : 7
Vues : 43

Re: MsgBox si la colonne contient un mot

Bonjour le fil, bonjour le forum, Faut toujours écouter Pedro !... C'est un balèze... Si tu comptes tous les doublons de la colonne Z il y en a forcément 1 en Z1 . Pour agir il faut que le nombre de doublons soit au moins égal à 2. Ça peut se coder comme Pedro le proposait : If Application.Workshee...
par ThauThème
15 mai 2019, 11:13
Forum : Excel - VBA
Sujet : MsgBox si la colonne contient un mot
Réponses : 7
Vues : 43

Re: MsgBox si la colonne contient un mot

Bonjour Flow, bonjour le forum, Ton code fonctionne très bien pour l'onglet actif . Si tu veux qu'il fonctionne sur un autre onglet que l'onglet actif il faut le spécifier. Par exemple pour l'onglet Feuil1 ça donnerait : If Application.WorksheetFunction.CountIf(Worksheets("Feuil1").Range("Z:Z"), "D...
par ThauThème
10 mai 2019, 12:20
Forum : Excel - VBA
Sujet : Spinbutton
Réponses : 2
Vues : 23

Re: Spinbutton

Bonjour Naubin, bonjour le forum, Pas sûr d'avoir bien compris... Pourquoi réinitialiser le SpinButton à l'initialisation de l'UserForm alors que justement tous les contrôles ont leur valeur par défaut. Je ferai la réinitialisation de ce SpinButton à la fin de la macro de validation de l'UserForm, ...
par ThauThème
3 mai 2019, 12:18
Forum : Excel - VBA
Sujet : Remplissage automatique des champs suite au choix dans liste déroulante
Réponses : 3
Vues : 46

Re: Remplissage automatique des champs suite au choix dans liste déroulante

Bonjour Mariz, bonjour le forum, Peut-être comme ça : ComboBox1 = Ws.Cells(lNumL, Range( "ListeNMission" ).Column ) Private Sub ComboBox1_Click() Dim Ws As Worksheet Dim I As Integer If Me.ComboBox1.ListIndex = -1 Then Exit Sub lNumL = Me.ComboBox1.ListIndex + 2 ComboBox1 = Ws.Cells(lNumL, Range("L...
par ThauThème
3 mai 2019, 12:12
Forum : Excel - VBA
Sujet : Transposer à partir d'un caractère
Réponses : 2
Vues : 28

Re: Transposer à partir d'un caractère

Bonjour Obeida, bonjour le forum,

Une proposition VBA :

Sub Macro1()
Dim TV As Variant
TV = Split(Range("B1").Value, ";")
Range("B2").Resize(UBound(TV, 1), 1) = Application.Transpose(TV)
End Sub
par ThauThème
3 mai 2019, 11:39
Forum : Excel - VBA
Sujet : Fusionner 2 cellules
Réponses : 11
Vues : 92

Re: Fusionner 2 cellules

Bonjour Bernard, bonjour le forum,

Oui ça s'appelle concatener
En A1 tu as : JEAN. En B1 : Neymar. en C1 la formule : =A1 & "-" & B1.Tu obtiens : JEAN-Neymar... :lol:
par ThauThème
3 mai 2019, 11:34
Forum : Excel - VBA
Sujet : Correspondance données
Réponses : 3
Vues : 42

Re: Correspondance données

Bonjour Davbis, bonjour le forum,

Dans la cellule D2 de l'onglet Feuil1, la formule : =RECHERCHEV(B2;Feuil2!A:B;2;FAUX)
Dans la cellule E2 de l'onglet Feuil1, la formule : =RECHERCHEV(C2;Feuil3!A:B;2;FAUX)
puis tu tires vers le bas...
par ThauThème
3 mai 2019, 09:44
Forum : Excel - VBA
Sujet : Formulaire et tableau VBA
Réponses : 1
Vues : 38

Re: Formulaire et tableau VBA

Bonjour Jewlesd, bonjour le forum,

Commence par nous proposer un fichier exemple...
par ThauThème
2 mai 2019, 16:14
Forum : Excel - VBA
Sujet : Renvoi des donnes listbox vers userform
Réponses : 43
Vues : 351

Re: Renvoi des donnes listbox vers userform

Bonjour le fil, bonjour le forum,

Il est d'usage, Sa3d, de ne pas proposer des fichier avec des données non anonymes... Tes concurrents pourraient se servir de ton fichier...
par ThauThème
2 mai 2019, 12:06
Forum : Excel - VBA
Sujet : Renvoi des donnes listbox vers userform
Réponses : 43
Vues : 351

Re: Renvoi des donnes listbox vers userform

Bonjour Sa, bonjour le forum, Voici le principe, quand on a eu la bonne idée de faire correspondre les textboxes avec les colonnes. Tu seras obligé de remplacer la boucle par 10 lignes en faisant correspondre les numéros de colonne de la Listbox1 de l'Userform1 avec les 10 textboxes de l'Userform6....