| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 12/08/2017 à 19:21 | bidochon34800 | Décimales dans 1 textbox | Et voila la fin Aller bon courage A+ Maurice... |
| 12/08/2017 à 19:02 | bidochon34800 | Décimales dans 1 textbox | J'ais bloquer le point pour éviter un plantage et pour gérer la virgule if faux mettre Cdbl a la place de Val A+ Maurice... |
| 12/08/2017 à 18:45 | pompaero | Valeurs LBx vers feuille | Il faut mettre une condition a tester HI A voir A+ Maurice... |
| 12/08/2017 à 18:37 | o4vents | Dissocier les feuilles | Tu doit avoir une macro pour ca et pour désactiver il faire faire une autre macro A+ Maurice... |
| 12/08/2017 à 18:19 | bidochon34800 | Décimales dans 1 textbox | Donne au moins un modèle de ton fichier pour voir et aussi de savoir si tu tape un point ou une virgule dans la textbox et aussi de savoir si tu a mis un KeyPress A+ Maurice... |
| 12/08/2017 à 18:04 | bidochon34800 | Décimales dans 1 textbox | Tu enlève le format Me.TBTotal_Stock = Val(Me.TBTotal_Stock.Value) - Val(Me.TBSortie_Stock) et dans TBTotal_Stock_change TBTotal_Stock.value = format(TBTotal_Stock.value,"#.00") A+ Maurice... |
| 12/08/2017 à 17:50 | bidochon34800 | Décimales dans 1 textbox | Déjà mettre un point a la place de la virgule ex:"#.00" A+ Maurice... |
| 12/08/2017 à 17:39 | pompaero | Valeurs LBx vers feuille | Pour écrire dans listbox2 a tester bien sur et pour CreateModif(Lig) évite de mettre les deux boucle imbriquer il faut les séparer ex: A+ Maurice... |
| 12/08/2017 à 14:31 | pompaero | Valeurs LBx vers feuille | Si ses pour onglet Lieu Mission ton case est pas bon mettre A+ Maurice... |
| 12/08/2017 à 12:43 | ericp | Problème Userform | Ses bien de rectifier mes bon tu test tromper de touche HI A+ Maurice... |
| 12/08/2017 à 11:04 | ericp | Problème Userform | Il faut mettre : Me("Label" & i).Caption = CDate(Sheets("couleurs").Cells(i, 1)) A+ Maurice... |
| 10/08/2017 à 16:30 | flo13 | Supprimer ligne N/A | Pour supprimer une ligne mettre ROWS A+ Maurice... |
| 10/08/2017 à 16:06 | flo13 | Supprimer ligne N/A | Moi j'ais pas N/A dans mes recherchev regarde ma formule ex:=RECHERCHEV(L11;'nom des stations'!$A$1:$B$88;2;FAUX) ca peux déjà résoudre un problème A+ Maurice... |
| 09/08/2017 à 21:15 | xlake | Contrôle poussé des saisies dans Userform | Il faut voir ton fichier et voir si tu a mis un KeyPress A+ Maurice... |
| 09/08/2017 à 11:29 | Plutot | Lisltview recherche une date dans plusieurs colonne | Désoler j'ais pas le DTPicker pour faire une recherche de date on peux le faire que sur une colonne dont j'ais mis une combobox pour choisir la colonne A+ Maurice... |
| 08/08/2017 à 21:10 | Plutot | Lisltview recherche une date dans plusieurs colonne | Voila un début de recherche sur une Listview a toi de voir A+ Maurice... |
| 08/08/2017 à 11:50 | Invité | Utilisation de Range.Formula | Problème de syntaxe Range("J25").Formula = "=IF(J31<>""=J28/D4"",J31,J22/D4)" A+ Maurice... |
| 08/08/2017 à 11:42 | pompaero | Problème de date et heure | Je ne maitrise pas du tout les lisbox et en plus 3 la je ne comprend rien désoler pour toi A+ Maurice... |
| 08/08/2017 à 11:39 | FERDINAND | Combobox et textbox | Voila un modèle de transfert de base a base ses une copy d un autre fichier a toi de voir HI A+ Maurice... |
| 08/08/2017 à 10:29 | FERDINAND | Combobox et textbox | Désoler je maitrise pas les Listbox je te laisse voila mon dernier jus ca peux te servir A+ Maurice... |
| 07/08/2017 à 18:50 | FERDINAND | Combobox et textbox | Voila un début de projet A toi de voir si ça te va A+ Maurice... |
| 07/08/2017 à 12:56 | FERDINAND | Combobox et textbox | Tien du boulot pour toi Mettre des KeyPress de 7 a 22 ex : Private Sub TextBox7_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Call CHIF_SEUL(KeyAscii) End Sub Private Sub TextBox8_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Call CHIF_SEUL(KeyAscii) End Sub Private Sub CHIF_SEUL(KeyAscii) S... |
| 07/08/2017 à 10:37 | FERDINAND | Combobox et textbox | Faire un select case pour les colonne A voir Set OCB = Sheets("Compta_bar") Nlig = OCB.Range("A" & Rows.Count).End(xlUp).Row + 1 For C = 1 To 22 Tmp = Controls("TextBox" & C).Value Select Case C Case 2 OCB.Cells(Nlig, C) = Tmp Case 3 OCB.Cells(Nlig, C) = Tmp & " " & Controls("TextBox" & 4).Value Cas... |
| 06/08/2017 à 17:40 | ALAIN0449 | Boucle sur textbox indexée | Si on veux un texbox numériques i faux déjà lui mettre un KeyPress 1 ex: Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If InStr("1234567890,", Chr(KeyAscii)) = 0 Then KeyAscii = 0: Beep End Sub et on enregistre avec Cdbl 2 ex: Cells(Lig, C).Value = CDbl(Controls("TextBox" &... |
| 06/08/2017 à 14:43 | pompaero | Problème de date et heure | Hum la U_Dispo tu a la listview qui le lit pas la bonne feuille si jais bien compris HI et pour le DTPicker ses un ocx que tu peux mettre sur tous les excel 32 bits le DTPicker ocx =(Mscontct2.ocx) A+ Maurice... |
| 06/08/2017 à 10:19 | pompaero | Problème de date et heure | Si tu as DTPicker sur ton ordi voila une modife sur les dates A+ Maurice... |
| 05/08/2017 à 13:11 | Cappe Pierre | Format date en VBA pour TextBox ou cellules | Voila une astuce pour le DTPicker A+ Maurice... |
| 04/08/2017 à 16:54 | Cappe Pierre | Format date en VBA pour TextBox ou cellules | Peux être comme ça ActiveCell.Range("A1").NumberFormat = "ddd d mmmm yy" A+ Maurice... |
| 04/08/2017 à 12:39 | Cappe Pierre | Format date en VBA pour TextBox ou cellules | Le mieux ses de mettre une TextBox que tu cache A+ Maurice... |
| 04/08/2017 à 11:58 | rousseldav | Copier des lignes sous condition dans une autre feuille | Peux être un truc comme ça Sub TransfertAccueilBenevoles() Set Sh = Sheets("Emargement Accueil") Sheets("Tableau Benevoles").Select Application.ScreenUpdating = False Sh.Range("B10:F" & Rows.Count).ClearContents C = 10 For L = 10 To Cells(Rows.Count, 2).End(xlUp).Row If Range("D" & L).Value = 1 Then... |
| 03/08/2017 à 10:44 | pompaero | Problème de date et heure | Tu mélange tout ses pas bon fait un autre userforme et evite de donner une ancien version HI A+ Maurice... |
| 02/08/2017 à 19:06 | pompaero | Problème de date et heure | Tien encore une modife sur les combobox HI A+ Maurice... |
| 02/08/2017 à 13:13 | pompaero | Problème de date et heure | Voila avec gestion heure & date A+ Maurice... |
| 02/08/2017 à 10:35 | rousseldav | Copier des lignes sous condition dans une autre feuille | Pour les format des cellules ' Sh.Range("B" & C).PasteSpecial xlPasteValues Sh.Range("B" & C).PasteSpecial xlPasteAllUsingSourceTheme A+ Maurice... |
| 01/08/2017 à 20:51 | pompaero | Problème de date et heure | Tien tien ou joue plus au boules pour la gestion des date & heure A+ Maurice... |
| 01/08/2017 à 19:21 | Cali | Bouton "Suivant/Précédent" VBA | Peux être a voir A+ Maurice... |
| 01/08/2017 à 17:34 | Romhin | Aide boucles for imbriquées | Ta macro bug il lui manque 2 Next car un boucle For fini toujours par un Next A+ Maurice... |
| 01/08/2017 à 17:19 | RDRD | Fonction Cacher une colonne selon une fonction Si | On ses pas lire dur A+ Maurice Sub CacherStandard() Dim CF As Worksheet Set CF = Worksheets("Conception Fonctionnelle") If Range("D8").Value = "X" Then CF.Columns("L:N").Hidden = False ' decache Colonne Else CF.Columns("L:N").Hidden = True ' cache Colonne End If End Sub... |
| 01/08/2017 à 16:48 | Cali | Bouton "Suivant/Précédent" VBA | Le mieux est de faire une Listview A+ Maurice... |
| 01/08/2017 à 12:50 | RDRD | Fonction Cacher une colonne selon une fonction Si | Et oui if faut faire des test voir 3 colonne = Columns("L:N").Select ou 3 colonne + la colonne B = Columns("B:B,L:N").Select regarde bien la syntaxe A+ Maurice... |
| 01/08/2017 à 11:01 | RDRD | Fonction Cacher une colonne selon une fonction Si | Si tu lance ta macro dans onglet "Carte d'identité" A+ Maurice Sub Cachercolonne() Dim CF As Worksheet Set CF = Worksheets("Conception Fonctionnelle") If Range("D9").Value = "X" Then CF.Columns(2).Hidden = False ' decache Colonne Else CF.Columns(2).Hidden = True 'Cache Colonne End If End Sub... |
| 31/07/2017 à 21:03 | rousseldav | Copier des lignes sous condition dans une autre feuille | Voila une macro a tester a toi de mettre le bouton A+ Maurice Sub TestTransfert() Set Sh = Sheets("Liste Mails") Feuil2.Select Application.ScreenUpdating = False Sh.Range("B10:D" & Rows.Count).ClearContents C = 10 For L = 10 To Cells(Rows.Count, 2).End(xlUp).Row If Range("D" & L).Value = 1 Then Rang... |
| 31/07/2017 à 19:01 | atlonia | Forcer la sélection d'un "OptionButton" | Encore des modifes HI dans U_CreatModif Sub CreateModif(Lig) ' modification pour le format de la date For C = 2 To 16 Select Case C Case 10 Sh.Cells(Lig, C).Value = CDate(Controls("TextBox" & C).Value) Case Else Sh.Cells(Lig, C).Value = Controls("TextBox" & C).Value End Select Next End Sub et dans U... |
| 31/07/2017 à 10:11 | atlonia | Forcer la sélection d'un "OptionButton" | Tu regarde déjà dans la feuille data colonne H la tu peux mettre la lettre O et tu a une boucle dans U_CreatModif ' A quoi sert le Tag ? pour la saisie Obligatoire For C = 2 To 16 Controls("TextBox" & C).Tag = Data.Range("H" & C + 1) ' Récupère le Tag des "TextBox" feuille "Data" colonne "H" Next Vo... |
| 30/07/2017 à 18:53 | Inguyone | Code unique pour filtrer dans feuilles multiples | Création des macro dans le module2 A+ Maurice... |
| 30/07/2017 à 13:29 | Inguyone | Code unique pour filtrer dans feuilles multiples | Refaire tes macro dans un module sans le nom des onglet A+ Maurice... |
| 30/07/2017 à 12:12 | atlonia | Forcer la sélection d'un "OptionButton" | Retour de ton fichier modifier A+ Maurice... |
| 30/07/2017 à 11:36 | atlonia | Forcer la sélection d'un "OptionButton" | Hum déjà mettre un Tag sur la Textbox11.Tag = "O" qui sert pour la saisie obligatoire A+ Maurice... |
| 28/07/2017 à 17:48 | Aaymeric | Problème macro enregistrement pdf | Pour tester un faut déjà mettre ton fichier dans un repertoire A+ maurice... |
| 28/07/2017 à 17:46 | atlonia | Maudite erreur d'exécution '13': incompatibilité de type | Et oui bon voila une autre solution tu rajoute un textbox3 et sa change tout A+ Maurice... |