| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 05/02/2016 à 17:22 | pouns94 | Macro pour supprimer le contenu de plusieurs cellules | Le code VBA pour décocher des cases à cocher (attention la case à cocher doit être un contrôles ActiveX) est : si le code est dans un onglet : Sheets("Feuil1").CheckBox1 = False à adapter selon la feuille et le nom de la CheckBox et dans un Userform : Userform1.CheckBox1 = false... |
| 05/02/2016 à 16:23 | MLN57390 | Filtrer par date pour inserer les totaux | Il y a une solution, c'est de mettre des 1 à la place des x ; puis de faire une mise en forme conditionnelle pour "masquer les 1" comme sur la photo ci-jointe puis de faire une formule SOMME.SI.ENS. pour être sûr vous pouvez bloquer la cellule avec une validation des données et autoriser que le chif... |
| 05/02/2016 à 16:04 | pouns94 | Macro pour supprimer le contenu de plusieurs cellules | Sub effacer() Range("K6, K7, K8").Select Selection.Clear End Sub... |
| 05/02/2016 à 16:00 | LuigiMansion | Ouvrir Google Chrome VBA | Pour ouvrir internet à partir d'Excel avec le navigateur par défaut : #If Win64 Then Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As... |
| 05/02/2016 à 15:53 | MLN57390 | Filtrer par date pour inserer les totaux | Avez-vous essayé la formule =NB.SI() ? comme mis dans la photo ci-joint... |
| 05/02/2016 à 13:38 | MLN57390 | Filtrer par date pour inserer les totaux | Pour les sommes vous pouvez utiliser la formule =SOMME.SI.ENS() comme expliquer dans ce lien : http://excel-aide.forumactif.fr/t3-utilisation-de-la-fonction-somme-si-ens... |
| 05/02/2016 à 10:23 | Lamonfle | Affichage d'un message à l'ouverture Userform | Je viens d'assayer et pour moi ça fonctionne... |
| 05/02/2016 à 09:45 | Lamonfle | Affichage d'un message à l'ouverture Userform | Oui alors la solution est de passer par une constante, le code : en haut d'un module : la normalement ça devrait fonctionner... |
| 05/02/2016 à 09:35 | laurent116 | Filtrer sur les résultats d'une requête | Voici le code : Sub test() Dim note As Double Dim nombreslignes As Long 'la note pour le filtre note = Sheets("Feuil1").Range("B3") ' ici on fait le filtre ActiveSheet.Range("$A$5:$C$14").AutoFilter Field:=3, Criteria1:="<=" & note, _ Operator:=xlAnd ' ici on charge le résultat nombreslignes = Sh... |
| 05/02/2016 à 09:24 | MLN57390 | Filtrer par date pour inserer les totaux | Une solution possible et d'ajouter un formule =mois() à la fin de ton tableau. et ensuite utiliser la formule =NB.SI.ENS() comme dans le fichier joint... |
| 04/02/2016 à 19:36 | Hakim45590 | VBA - Signaler si des données ont déjà été saisies | Une solution possible serait de rechercher si le Code Article existe déjà : Si le Code Article se trouve par exemple dans TextBox1 alors Code_Article= TextBox1.Value Set celluletrouvee = Sheets("Stocks").Range("A1:A900000").Find(Code_Article, LookAt:=xlWhole) If celluletrouvee <> "" then msgbo... |
| 04/02/2016 à 19:26 | ITMMartin | Enregistrement de données d'un fichier vers un autre fichie | Il faut déclarer les fichiers qui seront utilisés et il faut ici que les fichier soient ouverts fichier_1 As String fichier_2 As String fichier_1 = nom_du_fichier_1.xlsm fichier_2 = nom_du_fichier_2.xlsm Worksheets(fichier_1).Activate Sheets("accueil").Select Range("C5:E5").Select Selection.Copy Wor... |
| 04/02/2016 à 17:09 | Lamonfle | Affichage d'un message à l'ouverture Userform | Ok, je pense qu'il suffit d'ajouter une condition toujours dans le UserForm Climatisation et dans l'événement : Private Sub UserForm_Initialize() ce qui donne : ici quand le UserForm Climatisation s'ouvre si en cellule G33 il y a marqué "NON" alors un message s'affichera et le Userform se fermera, s... |
| 04/02/2016 à 16:15 | Lamonfle | Affichage d'un message à l'ouverture Userform | Il suffit de placer ce code dans le userform en question : Private Sub UserForm_Initialize() MsgBox ("salut !") End Sub... |
| 04/02/2016 à 16:00 | vinzmeister | Recherche Doublon dans Colonne | Pour ma part, j'ai fait deux choses : mis : On Error Resume Next puis j'ai ajouté Trouve = "" et ça fonctionne le code en entier est : Private Sub CommandButton1_Click() Range("A2").Select MsgErrDoublons = "Les comptes suivants sont en doublon, merci de corriger : " & vbCrLf compteur = 0 'déclaratio... |