410 résultats trouvés

par reinruof77
18 février 2020, 11:46
Forum : Excel - VBA
Sujet : Si textbox1 contient alors rowsource Combobox1
Réponses : 6
Vues : 52

Re: Si textbox1 contient alors rowsource Combobox1

bonjour Je crois que finalement j'ai trouvé. Private Sub TextBox7_Change() Set Sh = Sheets("Feuil3") If TextBox7 = "INCIDENT" Then TextBox8.List = Sh.Range("B1:B" & Sh.Range("B" & Rows.Count).End(xlUp).Row).Value End If If TextBox7 = "ACCIDENT" Then TextBox8.List = Sh.Range("C1:C" & Sh.Range("C" & R...
par reinruof77
18 février 2020, 11:35
Forum : Excel - VBA
Sujet : Si textbox1 contient alors rowsource Combobox1
Réponses : 6
Vues : 52

Re: Si textbox1 contient alors rowsource Combobox1

Re j'ai fait cela mais cela ne fonctionne que pour incident Private Sub TextBox7_Change() Set Sh = Sheets("Feuil3") If TextBox7.Value = "INCIDENT" Then TextBox8.List = Sh.Range("B1:B" & Sh.Range("B" & Rows.Count).End(xlUp).Row).Value If TextBox7.Value = "ACCIDENT" Then TextBox8.List = Sh.Range("C1:C...
par reinruof77
18 février 2020, 11:19
Forum : Excel - VBA
Sujet : Si textbox1 contient alors rowsource Combobox1
Réponses : 6
Vues : 52

Re: Si textbox1 contient alors rowsource Combobox1

Bonjour

je joint un fichier test
PILOTAGE TEST reinruof.xlsm
(69.83 Kio) Téléchargé 5 fois
Merci de votre aide
par reinruof77
18 février 2020, 10:10
Forum : Excel - VBA
Sujet : Si textbox1 contient alors rowsource Combobox1
Réponses : 6
Vues : 52

Si textbox1 contient alors rowsource Combobox1

Bonjour a tous J'ai une petite question :lol: je cherche le moyen de selectionner le Rowsource d'un combobox selon le contenu d'un textbox en gros si textbox1 contient TOTO alors rowsource Combobox1 = feuil2 ("A1:A20") si textbox1 contient ALBATOR alors rowsource Combobox1 = feuil2 ("B1:B20") ETC.. ...
par reinruof77
6 février 2020, 11:51
Forum : Excel - VBA
Sujet : Import de donné vers fichier Excel
Réponses : 2
Vues : 43

Re: Import de donné vers fichier Excel

Bonjour a tous j'ai reussi a me debrouiller sur ce sujet Sub test() Dim Fichiers As Variant Dim maLigne As Long With Sheets("Feuil1") If .Range("B1") <> "" Then maLigne = .Range("B" & Rows.Count).End(xlUp).Row + 1 Else maLigne = 1 End If End With 'ouvir Fichier ChDrive "C:" ' Choix du lecteur ChDir ...
par reinruof77
5 février 2020, 18:10
Forum : Excel - VBA
Sujet : Excel Vba
Réponses : 2
Vues : 26

Re: Excel Vba

Bonjour

Avec un extrait de ton fichier ce sera plus facile de t'aider ;;)
:btres:
par reinruof77
5 février 2020, 17:50
Forum : Excel - VBA
Sujet : Import de donné vers fichier Excel
Réponses : 2
Vues : 43

Re: Import de donné vers fichier Excel

Re bonjour J'ai un peu avancer dans le Fichier reception Workbooks.Open Filename:= _ "C:\export.xlsx" 'colonne B Range("G2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy ActiveWindow.WindowState = xlMinimized Range("B2").Select ActiveSheet.Paste ActiveWindow.WindowState = xlM...
par reinruof77
5 février 2020, 13:53
Forum : Excel - VBA
Sujet : Import de donné vers fichier Excel
Réponses : 2
Vues : 43

Import de donné vers fichier Excel

Bonjour J'ai fait le tour du Forum mais je ne trouve pas mon bonheure Toutes les semaines j'ai une extraction qui est faite d'un logiciel interne. j'ai reussi a convertir le fichier mais maintenant je doit importer CERTAINE donné dans un classeur. Pour être plus clair je joint les deux fichiers Exem...
par reinruof77
23 décembre 2019, 20:08
Forum : Excel - VBA
Sujet : Inserer ligne si
Réponses : 8
Vues : 43

Re: Inserer ligne si

RE

Super un gros merci
par reinruof77
23 décembre 2019, 20:00
Forum : Excel - VBA
Sujet : Inserer ligne si
Réponses : 8
Vues : 43

Re: Inserer ligne si

Re

Deja merci

oui c'est ca