Résultats de la recherche

Re : barre de menu : disparue Bonjour à tous Toujours en transit Sinon il y a aussi la FAQ d'XLD (trop souvent ignorée ) https://www.excel-downloads.com/threads/excel-jai-perdu-mes-barres-doutils-et-menu.81049/ A+ (sous mon pseudo usuel) JM

Re : Extraire variable d'un fichier texte Bonsoir à tous Ici en transit Une autre façon avec Split (test ok sur le fichier exemple.xls du message de 18h10) Sub c() Dim i As Byte For i = 2 To 6 Cells(i, 2) = Split(Split(Cells(i, 1), ":")(0))(1) * 1 Next i End Sub A+ avec mon...

Re : Code effacer Bonjour à tous Ici en transit (Pourquoi les endives ici,laetitia :rolleyes: ? - il y a si peu de code ) Sub b() Feuil1.[A2:A200, C2:C200] = Empty Feuil2.[A2:A200, C2:C200] = Empty End Sub A+ avec mon pseudo habituel JM

Re : Re: combobox simplifier le code Bonjour à tous Ici en transit Une autre façon de faire Private Sub UserForm_Initialize() Dim t, i As Byte t = Array("Prise", "Garde", "Garde sans le Chien", "Garde Contre le Chien") For i = 1 To 8 Me.Controls("ComboBox" & i).List = t Next i End Sub A+...

Re : Macro Parcours Colonne Date et insère les dates manquates Bonjour à tous Ici en transit Une autre façon de faire Sub a() Dim nbj&: nbj = ([A65536].End(xlUp) - [A1]) With Range("A1") .AutoFill .Resize(nbj + 1), 5 End With End Sub A+ avec mon pseudo habituel JM