| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 23/09/2016 à 00:40 | noob40 | Faire une copie vers dossier du jour | Salut : Vois si cela te convient L'enregistrer sera dans le bureau... |
| 22/09/2016 à 23:45 | patrickvanec | Suite de SI(ET(récalcitrants | Placez cette formule dans la cellule : A4 , Ensuite, faites glisser on bas Anglais m =IF(AND(B4>10;A4="Formation");B4*1.5;IF(AND(B4>130;A4="formation");B4*1.6;IF(AND(B4>65;A4="CFA");B4*1.2;IF(AND(B4<65;A4="CFA";);IF(AND(B4>130;B4="CFA");B4*1.3;IF(B4>130;B4*1.1;""));"")))) Français... |
| 22/09/2016 à 17:11 | Nanee | Solution pour identifier baisses ou hausses prix | Est-ce-que tu est intéressé par cette proposition... |
| 21/09/2016 à 01:38 | PriVic | Afficher valeur cellule sur un autre écran et en full screen | Est ce que comme ça ... |
| 20/09/2016 à 23:32 | steven-1947 | Recherche + msgbox | Bonjour : Je pense que la bonne solution est modifier la base de données Cette forme de base de données ( Fichiers joints ) vous permet d'ajouter et modifications et suppressions essai... |
| 20/09/2016 à 13:56 | noob40 | Bouton enregistrement vers dossier | Il y a une erreur dans le code précédent quand vous appuyez sur : Annuler dans le boite de dialogue Et voila la correction Sub Enregistrer_Une_Copie() Dim ENDROIT As String, Nom_De_Fichier As String N1 = Range("C4").Text ' le contenu de la cellule C4 If N1 = "" Then Exit Sub With Application.FileDia... |
| 20/09/2016 à 00:01 | noob40 | Bouton enregistrement vers dossier | Saut: noob40 Est-ce que Ce code vous convient... |
| 19/09/2016 à 15:53 | faudouy | Interdire la saisie dans une liste déroulante | Salut : autre solution =USD!$A$2:INDEX(USD!$A$2:$A$5000;NBVAL(USD!$A$2:$A$5000))... |
| 19/09/2016 à 02:59 | ormuzd | Somme d'une ligne avec nombres et textes | Un autre essai à tester cordialement... |
| 18/09/2016 à 22:43 | Aceyalone | Calcul | Pour calculer la somme des cellules on ajoutons les Jours... |
| 18/09/2016 à 16:42 | BIRIBI | Obtenir une moyenne sur deux ou plusieurs feuilles | Salut : ' Supposons que nous avons quatre feuilles . ' Chaque feuille contient des valeurs a la première colonne A:A . ' Nous appliquons le code suivant : Sub Moyenne() Dim sh As Worksheet, S As Double, M As Double, DL As Long For Each sh In Sheets DL = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row S = S... |
| 16/09/2016 à 01:48 | Aceyalone | Calcul | Salut : Essayez ce fichier... |
| 15/09/2016 à 22:35 | laucsap | Gestionnaure de nom | Salut : essai... |
| 15/09/2016 à 21:38 | laucsap | Gestionnaure de nom | Toujours la cellule A1 contient la date : ============================= =WEEKNUM(DATE(YEAR(A1);MONTH(A1);1)) &" " &WEEKNUM(DATE(YEAR(A1);MONTH(A1);7)) & " " &WEEKNUM(DATE(YEAR(A1);MONTH(A1);14)) & " " & WEEKNUM(DATE(YEAR(A1);MONTH(A1);21)) & " " &WEEKNUM(DATE(YEAR(A1);MONTH(A1);DAY( EOMONTH(A1;0))))... |
| 15/09/2016 à 20:51 | Subfestivus | Listbox | Je n'ai pas compris Y at-il un exemple... |
| 15/09/2016 à 20:44 | laucsap | Gestionnaure de nom | Salut : Utilisez cette fonction English =WEEKNUM(A1;1) Français =NO.SEMAINE(A1;1) La cellule A1 contient la date... |
| 14/09/2016 à 14:37 | med_kabbaj | Ajouter des données par formulaires et les stocker | Salut : D'après la question Vous voulez mettre à jour la liste Supposons que les projets enregistré dans le premier sheet dans la colonne( A ) A la fin de la prosédire ( Ajouter ) dans le bouton nommer ( Ajouter ) mettez ce code Sheets("Sheet1").Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1) =... |
| 13/09/2016 à 17:38 | Kayar | Code VBA expliqué pour création automatique d'une feuille | Oui ws.Cells(Last, 3) , 3 = la troisième colonne (C) Last = dernière ligne Pas forcément pour utiliser le mot Last dans le dernière ligne on peu dire par exemple : M ou L ou LR ou LastRow ou dernière ......... |
| 13/09/2016 à 16:07 | Kayar | Code VBA expliqué pour création automatique d'une feuille | Salut : Ceci est une simple explication Excusez-moi s'il y avait des erreurs de langue... |
| 13/09/2016 à 12:12 | nicopat | Différer éxécution d'une macro selon valeur d'une cellule | 'Ouvrez un classeur Excel 'Dans le premier feuille copier ce code Private Sub Worksheet_Change(ByVal Target As Range) If IsNumeric(Range("B1").Value) = False Or IsEmpty(Range("B1").Value) = True Then Exit Sub Else Belkacem Range("B1").Value 'Votre macro ici 'Exemple MsgBox "Salut nicopat " End If En... |
| 13/09/2016 à 11:20 | Subfestivus | Listbox | Salut Subfestivus : 'Effacer la propriété RowSource de Chaque liste dans l'angle Properties-ListBox 1 et 2 Private Sub UserForm_Initialize() 'Cette ligne pour remplir la liste1 Me.ListBox1.List = Sheets("Liste").Range("A1").Resize(Sheets("Liste").Range("A" & Rows.Count).End(xlUp).Row, 1).Value 'Cett... |
| 12/09/2016 à 23:33 | Kayar | Code VBA expliqué pour création automatique d'une feuille | Essai Mettez ce code dans la feuille : tableau accueil Private Sub Worksheet_Change(ByVal Target As Range) Set ws = Sheets("tableau accueil") Last = Cells(Rows.Count, "c").End(xlUp).Row If Not Intersect(Range("C3:C" & Last), Target) Is Nothing Then Sheets.Add After:=Sheets(Sheets.Count) Set sh = Act... |
| 12/09/2016 à 22:25 | Benoist28200 | Problème incrémentation | Salut : Avez-vous essayé d'ajouter cette ligne : On Error Resume Next Après la ligne : 'On supprime les doublons en ne gardant que les dernières entrées... |
| 12/09/2016 à 21:49 | Subfestivus | Listbox | Salut : Si les deux listes ont le même nombre de lignes Utilisez ce code Private Sub UserForm_Initialize() Art = Split(ActiveCell.Text) For x = LBound(Art) To UBound(Art) For i = 0 To ListBox1.ListCount - 1 If CStr(Art(x)) = CStr(ListBox1.List(i)) Then ListBox1.Selected(i) = True If CStr(Art(x)) = C... |
| 12/09/2016 à 20:19 | Pmignon | Mise en forme conditionnelle | Salut : voila pour savoir si une cellule a été coloriée par une mise en forme conditionnelle. Sub coloriée() With ActiveCell If .FormatConditions.Count = 0 Then MsgBox "La cellule a été coloriée par l'utilisateur.", vbInformation, "Résultat" Else MsgBox "La cellule a été coloriée par une mise en for... |
| 12/09/2016 à 13:53 | mic6259 | Transposé | Salut : Essayez ce code Private Sub CommandButton1_Click() Range("A2").ClearContents If Selection.Count = 1 Then Exit Sub For Each cel In Selection Range("A2") = Range("A2") & cel & vbLf Next End Sub... |
| 12/09/2016 à 03:42 | rimbaut | Séparer le N° de rue du nom de la rue | Pouvez-vous envoyer un exemple Est ce que toutes les données écrites de la même manière Supposons que les noms et les adresses sont dans la première colonne (A) Comme ce la Rimbaut1 Rue N° 1 quartier A Bâtiment B 1 Rimbaut1 Rue N° 2 quartier B Bâtiment B 2 Rimbaut1 Rue N° 1 quartier C Bâtiment B 2 R... |
| 12/09/2016 à 00:36 | ADOL | Copier des lignes tableau vers l'autre feuille | Mes respects Bonne nuit à vous aussi... |
| 12/09/2016 à 00:21 | ADOL | Copier des lignes tableau vers l'autre feuille | Essayez ce code Sub iCopy() Dim sh1 As Worksheet, sh2 As Worksheet, x As Integer, i As Integer Dim LR As Integer, M As Integer Set sh1 = Sheets("Bon Entree"): Set sh2 = Sheets("JOURNAL ER") x = sh2.Cells(Rows.Count, 2).End(xlUp).Row + 1 With sh1 Application.ScreenUpdating = False LR = .Cells(.Rows.C... |
| 12/09/2016 à 00:05 | ADOL | Copier des lignes tableau vers l'autre feuille | Quelles sont les colonnes que vous souhaitez copier... |
| 11/09/2016 à 23:19 | ADOL | Copier des lignes tableau vers l'autre feuille | Essayez la macro suivante Sub iCopy() Dim sh1 As Worksheet, sh2 As Worksheet, x As Integer, i As Integer Dim Art1(), Art2(), LR As Integer, M As Integer Set sh1 = Sheets("Bon Entree"): Set sh2 = Sheets("JOURNAL ER") x = sh2.Cells(Rows.Count, 2).End(xlUp).Row + 1 With sh1 Application.ScreenUpdating =... |
| 11/09/2016 à 22:29 | clemoo | Problème de syntaxe erreur | Avec un petit changement dans la macro Sub deleteNA() Dim k As Long For k = 2 To Cells(Rows.Count, 2).End(xlUp).Row If Cells(k, 2).Text = "#N/A" Then Cells(k, 2) = "" End If Next End Sub... |
| 03/04/2015 à 22:14 | julien35000 | Remplir obligatoire certaines cellules | Pour enregistrer le fichier... |
| 03/04/2015 à 21:57 | julien35000 | Remplir obligatoire certaines cellules | Salut : Pour empêcher l'utilisateur de sortir avant de remplir les données ,Utilisez ce code... |
| 24/03/2015 à 23:34 | kld | Trier des lignes dans des feuilles suivant une donnée | Désolé pour le retard Pour mettre à jour les données , Essayez ce code Je pense qu'il fonctionne correctement... |
| 21/03/2015 à 18:39 | kld | Trier des lignes dans des feuilles suivant une donnée | Essayez ce code mais avec la condition suivante : Le nom de la feuille doit être écrit de la même manière dans la colonne AG Code ... |
| 20/03/2015 à 13:00 | nicaise | Vider tous les textbox et combobox finissant par 1 | Si vous voulez une exception pour le texbox : ttva1 Private Sub CommandButton2_Click() Dim ctl As Control For Each ctl In Me.Controls If TypeOf ctl Is MSForms.TextBox Or TypeOf ctl Is MSForms.ComboBox Then If Right(ctl.Name, 1) = 1 Then If Not ctl.Name = "ttva1" Then ctl = "" End If End If End If Ne... |
| 20/03/2015 à 12:36 | nicaise | Vider tous les textbox et combobox finissant par 1 | Private Sub CommandButton1_Click() Dim ctl As Control For Each ctl In Me.Controls If TypeOf ctl Is MSForms.TextBox Or TypeOf ctl Is MSForms.ComboBox Then If Right(ctl.Name, 1) = 1 Then ctl = "" End If End If Next End Sub... |
| 20/03/2015 à 10:48 | svbb | Probleme de date | Salut : Essayez cette méthode : Range("A1")=CDate(TextBox1.Value)... |
| 19/03/2015 à 18:23 | braschi | Gestion de listing alphabétique | Essayez ceci : Private Sub Worksheet_Change(ByVal Target As Range) Range("A1:F" & Cells(Rows.Count, 1).End(xlUp).Row).Sort Key1:=Range("B2"), Order1:=xlAscending End Sub... |
| 19/03/2015 à 15:41 | antony360 | Enregistrer sous | '------- Application.Dialogs(xlDialogSaveAs).Show '/////////////////////////////////////////////////////////////////////////////// Sub iSave() SheetName = ActiveSheet.Name ActiveSheet.Copy With ActiveWorkbook Application.Dialogs(xlDialogSaveAs).Show (SheetName) .Close End With End Sub... |
| 19/03/2015 à 15:30 | grisan29 | Transfert du contenu des colonnes en créan un autre classeur | Salut : Sub sCopy_To_NewBook() Dim Last As Long, i As Long, sh As Worksheet, NewBook As Workbook, Destination As String, Folder As String '------------------------------------------------------------------- Folder = ThisWorkbook.Path & "\DONNEES" On Error GoTo 1 If Not Folder = "" Then MkDir Folder... |