| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 25/10/2016 à 21:30 | Repi17 | Macro avec condition date pour suppression de lignes | Salut Repi17 Double clique sur n'importe quelle cellule... |
| 25/10/2016 à 01:12 | NELSON29 | Masquer des lignes en fonction de critères dans un tableau | Que pensez-vous de cette proposition... |
| 23/10/2016 à 22:43 | idirtech | Code pour bouton de suppression | ... |
| 23/10/2016 à 22:36 | killerjo | 2 listes deroulantes USERFORM | 123 mot de passe... |
| 23/10/2016 à 22:14 | killerjo | 2 listes deroulantes USERFORM | Essayez cette méthode... |
| 22/10/2016 à 22:12 | eole-33 | Boucle pour plusieurs onglet | Bonsoir ealo-33 essayé ce code... |
| 20/10/2016 à 11:40 | dann | Lancer macro par son nom figurant dans une cellule | Vous avez deux choix L'application du code est basé sur la cellule G1 ou combobox1... |
| 19/10/2016 à 22:55 | dann | Lancer macro par son nom figurant dans une cellule | Essai... |
| 19/10/2016 à 22:25 | YouyeR | VBA calcul | Sur le fichier ci dessous, vous pouvez utiliser plusieurs colonnes... |
| 19/10/2016 à 02:44 | YouyeR | VBA calcul | Salut : essai... |
| 17/10/2016 à 14:09 | nonesofar13 | Calcul date en fonction du numéro de semaine et du jour | Essai... |
| 14/10/2016 à 01:03 | missbritney | Aide Macro Userfom Fichier | Ceci est un exemple... |
| 11/10/2016 à 13:44 | citro38 | Format automatique d'un texte | Je pense que la réponse soit comme ca Private Sub TxtNumLic_Change() Dim i As Byte TxtNumLic.MaxLength = 9 'Le nombre de caractères ne doit pas dépassé 9 caractères If Not Mid(TxtNumLic, 1, 1) Like "[a-zA-Z]" Then TxtNumLic = "" For i = 2 To Len(TxtNumLic) If Not Mid(TxtNumLic, i, 1) Like "&... |
| 11/10/2016 à 01:28 | citro38 | Format automatique d'un texte | Est-ce que cela vous convient .Range("r" & L + 1).Value = Application.WorksheetFunction.Proper( _ Mid(TxtNumLic, 1, 1) & "-" & Mid(TxtNumLic, 3, 2) & "-" & Mid(TxtNumLic, 4, Len(TxtNumLic)))... |
| 10/10/2016 à 18:02 | compta | Si recherche valeur alors | Est-ce que cela vous convient... |
| 09/10/2016 à 22:17 | compta | Si recherche valeur alors | Je pense que la réponse soit comme ca Sub Comparer() Dim SH1 As Worksheet Dim SH2 As Worksheet Dim Lr1 As Long Dim Lr2 As Long Dim r1 As Range Dim r2 As Range Set SH1 = Sheets("PAIEMENT") Set SH2 = Sheets("facturation") Lr1 = SH1.Cells(Rows.Count, 5).End(xlUp).Row Lr2 = SH2.Cells(Rows.Count, 12).End... |
| 09/10/2016 à 17:12 | vinyz | Listes dynamiques et recherche avancée | Salut : proposition . . ... |
| 08/10/2016 à 16:26 | KoKodu67 | Remplir cellules avec une textbox | Essayé de changer cette ligne lig = Sheets(nomfeuille).Range("A13").End(xlDown).Row + 1 par : lig = Sheets(nomfeuille). Range("A13").End(xlUp).Row + 1 xlDown par xlUp... |
| 06/10/2016 à 23:51 | Mayeur | Compléter une ligne à partir d'une donnée renseignée | ESSAI A TESTE... |
| 06/10/2016 à 23:25 | lover | Rajouter des - et enlever des | Si toutes les cellules était de la même forme en termes de nombres et de chiffre ce code fait ce qu il faut Sub Replacement() Dim C As Range Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Replace What:="(", Replacement:="" Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Replace What:=")", Rep... |
| 05/10/2016 à 16:16 | IronBoule | Problème VBA cellules vides | Essayé ce code Sub DATESUPR1() Application.ScreenUpdating = False Dim Start_Date As Date, End_Date As Date, c As Range Start_Date = Range("H2").Value2 For Each c In Range("H3:H31") End_Date = c.Value2 If (DateDiff("d", c, Start_Date) > 0) Then c.EntireRow.Delete Next Application.ScreenUpdating =... |
| 05/10/2016 à 15:55 | bibi44 | VBA - liste aléatoire cellule | Ce code fait le même travail sans répéter les mots Sub Cmd() Application.ScreenUpdating = False For t = 4 To 14 1 Sheets("Feuil1").Cells(t, 2) = Int((24) * Rnd + 1) Sheets("Feuil2").Cells(t, 2) = _ Sheets("Feuil1").Range("A" & Val(Sheets("Feuil1").Cells(t, 2))) x = Application.WorksheetFunction.Coun... |
| 05/10/2016 à 12:43 | IronBoule | Problème VBA cellules vides | Essayé de changer ca : If Cel.Value = "01/01/1900" Then Cel.Value = "" avec ca : If Cel.Text = "01/01/1900" Then Cel.ClearContents... |
| 05/10/2016 à 01:06 | sircrocodile | Intégration colonne dans macro VBA | Je pense que la réponse soit comme ca... |
| 05/10/2016 à 00:12 | sircrocodile | Intégration colonne dans macro VBA | Pouvez-vous nous donner un exemple des résultats que vous voulez... |
| 04/10/2016 à 16:19 | sircrocodile | Intégration colonne dans macro VBA | ... |
| 04/10/2016 à 15:50 | boby63 | Supprimer lignes suivantes / lignes précédentes | Sub SUP() Dim cell As Range, SH As Worksheet Set SH = Sheets("feuille1") With SH For Each cell In .Range("D3:D1000") If cell = "" Then .Range(cell.Offset(, -3), cell.Offset(, 25)) = "" Next End With End Sub désolé M : MFerrand Je n'ai pas vue votre réponse... |
| 04/10/2016 à 14:53 | Nrev74 | Formule pour compter dans un tableau selon critère | C comme ca ou non ? J'ai annulé les cellules fusioné... |
| 04/10/2016 à 12:19 | rahimpamelo | Condition affichage | Cela signifie que la valeur de la cellule I9 ne change pas dans tous les cas, I9=TOTO Mais nous pouvons utiliser la formule : =IF(D9="TOTO";"TOTO";"")... |
| 03/10/2016 à 22:27 | rahimpamelo | Button avec macro | Un essai plus simple... |
| 03/10/2016 à 15:12 | Greg146 | Exploiter des données d'une base vers d'autre feuilles | Sub personnes() Dim sh As Worksheet, _ My_Sheet As Worksheet, _ cel As Range Application.ScreenUpdating = False Set sh = Sheets("Nom") For Each cel In sh.Range("A3:D" & sh.Cells(Rows.Count, "A").End(xlUp).Row) For Each My_Sheet In ThisWorkbook.Sheets If CStr(Right(My_Sheet.Name, 1)) = CStr(cel) Then... |
| 03/10/2016 à 12:30 | DAMIEN12 | Macro valeur en fonction de la date | Salut : essai à testé... |
| 03/10/2016 à 02:59 | kinny | Valeur textbox dans premiere cellule vide | Un test Peut-être qu'il contenir des erreurs... |
| 29/09/2016 à 12:38 | nunur | Macro suppression de ligne | Essai Sub Macro() Application.ScreenUpdating = False lr = Cells(Rows.Count, 1).End(xlUp).Row For i = lr To 1 Step -1 If Cells(i, 4) = "" Then Rows(i).Delete Shift:=xlToLeft End If Next i Application.ScreenUpdating = True End Sub... |
| 28/09/2016 à 13:01 | Luna2701 | Créer une fenêtre de saisie | Pour la question de : le curseur passe automatiquement sur un autre champs Si le nombre de caractères est connus par exemple 4 ou 5 , la répense c'est oui avec l'ajout d'un petit code sinon utiliser la touche Enter Pour déplacer entre les champs Les données de la Liste ( Gamme ) : dans Feuil2... |
| 28/09/2016 à 00:27 | Antrax | Liste dans la combobox ne s'affiche pas | Salut : Avez-vous essayé cette méthode dans la zones "O1:O3" vous mettez les données : Préventive Curative Améliorative dans la zones "P1:P4" vous mettez les données : Equipe Nuit Equipe A Equipe B Direction dans la zones "Q1:Q4" vous mettez les données : Basse Moyenne Haute Urgent dans la zones R1... |
| 27/09/2016 à 23:56 | Luna2701 | Créer une fenêtre de saisie | Est ce que comme ca... |
| 27/09/2016 à 11:04 | beabianchini | Macro saisie numéro pour afficher nom correspondant | Voila un Exp... |
| 27/09/2016 à 01:33 | arrow53 | Calcul d'heures | Le problème était dans les cellules de fusion... |
| 27/09/2016 à 01:17 | Damaskinos | Limite dans le menu déroulant ? | Dans Excel 2007 le menus déroulants ne dépasse pas 32767 Essayez cette méthode Supposons que les données sont à partir de A1 -----> A40000 Divisez le menu déroulant à deux List1 ( menu déroulant1 ) = A1:A20000 List2 ( menu déroulant1 ) = A20001:A40000... |
| 26/09/2016 à 20:39 | BrunoDS78 | Liste Combobox selon critères | Maintenant tu peut supprimer un élément... |
| 26/09/2016 à 13:45 | BrunoDS78 | Liste Combobox selon critères | Tu veux dire de cette façon Si vous voulez supprimer la liste : effacer ces lignes : 1 '============================================== ListBox1.Clear '============================================== 2 '============================================== ListBox1.Column = Ary '=============================... |
| 26/09/2016 à 11:30 | BrunoDS78 | Liste Combobox selon critères | Il y a quatre options Chaque option donne des résultats... |
| 25/09/2016 à 23:50 | theguilt | Dupliquer une macro à une colonne entiere | Salut : Le code pourrait devenir de comme cette façon Sub dern_connexion() For x = 4 To 13 If Range("P4").Value = Range("A" & x).Value Then Range("N" & x).Value = Range("Q4").Value Next End Sub... |
| 25/09/2016 à 23:34 | BrunoDS78 | Liste Combobox selon critères | Salut : essai Private Sub UserForm_Initialize() Dim Sh As Worksheet, LsRow As Long Set Sh = Sheets("Feuil1") LsRow = Sh.Cells(Rows.Count, 1).End(xlUp).Row For r = 2 To LsRow If Cells(r, 1) = "a" And Cells(r, 2) = "c" And Cells(r, 3) = "d" And Cells(r, 4) = "25/09/2016" Then ComboBox1.AddItem Cells(r... |
| 25/09/2016 à 22:43 | chouinards | Transfert de plusieurs feuils en 1 feui avec nom d'onglet | Ceci est un exemple... |
| 24/09/2016 à 01:56 | diego07 | Couleurs des cellules | Voir le fichier joint... |
| 24/09/2016 à 00:26 | daniel_44 | Recherche complexe suite | C'est une teste Sub iColorIndex() Application.ScreenUpdating = False Dim SourceBook As Workbook, _ My_sheet As Worksheet, _ Source As String, _ iPath As String, _ S As Range, _ d As Range '--------------------------------------------- Source = "BDD.xlsx": Set My_sheet = Sheets("nom") LR = My_sheet.C... |
| 23/09/2016 à 20:05 | Mahadey | Mettre une exception a un ComboBox | Salut : essayer ca... |
| 23/09/2016 à 02:13 | Mahadey | Utiliser 2 comboBox dependant et une zone de texte | Mettez ce code dans le bouton Valider Private Sub CommandButton1_Click() Dim iRow As Integer, iCol As Integer iRow = Val(ComboBox1.ListIndex) + 2 iCol = Val(ComboBox2.ListIndex) + 2 If iRow = 1 Or iCol = 1 Then Exit Sub Cells(iRow, iCol).Value = Me.TextBox1.Value End Sub... |