Résultats de la recherche

  1. Airone784

    XL 2010 Mise en forme conditionnelle dans TCD

    Bonjour à tous, j'ai un tableau croisé dans lequel je récupère un nombre d'heures pour chaque semaine disposées en colonne. Ensuite j'ai ajouté une mise en forme conditionnelle basée sur la nuance de couleurs. Ainsi, ma semaine avec le plus d'heures est en rouge et celle avec le moins d'heure...
  2. Airone784

    XL 2010 VBA - n ième valeur dans un tableau de données

    Bonjour, Voici mon bout de code : Sub n_valeur() Dim tableau() For I = 3 To Sheets("Volume").Range("N3").End(xlDown).Row j = j + 1 ReDim tableau(j) tableau(j) = Sheets("Volume").Range("N" & I) 'MsgBox tableau(j) Next I For s = 1 To UBound(tableau) valeur =...
  3. Airone784

    XL 2013 Liste des onglets sans formule

    Bonjour à tous, J'ai trouvé sur le site de Boisgontier (il est fort le monsieur) une formule qui me permet d'afficher le nom des feuilles excel de mon classeur. -Créer un nom de champ NomsFeuilles =STXT(LIRE.CLASSEUR(1);TROUVE("]";LIRE.CLASSEUR(1))+1;99)&INDIRECT("iv65000") Pour obtenir les...
  4. Airone784

    XL 2013 Recherchev, sommeprod sur plusieurs tableaux ??

    Bonjour, Je vous expose ma problématique. J'ai un tableau dans une feuille avec en ligne du personnel connu sous un numéro de matricule et en colonne des dates. La jonction indique pour chaque personne un nombre d'heure théorique travaillé. 31/12 | 2/1 1 | 7:00 |...
  5. Airone784

    Lien hypertexte dans mail envoyé en VBA

    Bonjour à tous, Ci-joint mon code VB qui me pose problème : Bonjour, Private Sub CommandButton1_Click() Dim message As String Dim Adr As String ' Adresse Dim Objet As String ' L'objet du message Dim Texte, Corps As String ' le texte du message Dim ligne As Integer Dim...
  6. Airone784

    Application d'une couleur sur 2 feuilles différentes

    Bonjour, Je vous joins ci-dessous mon fichier pour lequel je rencontre une erreur 1004, erreur définie par l'application ou par l'objet. Mon souci, quand on est sur l'onglet dimanche si l'agent 6 commence à 22h et fini à 5h, je veux que soit coloré la partie du dimanche soir de 22h à 00h et...
  7. Airone784

    Jouer un son windows

    Bonjour à tous, J'ai trouvé ce code pour jouer un son windows présent par défaut : Private Declare Function PlaySound32 Lib "winmm.dll" Alias "PlaySoundA" (ByVal IpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Const SND_SYNC = &H0 Const SND_ASYNC = &H1 Const...
  8. Airone784

    Formule matricielle : recherche selon plusieurs conditions

    Bonjour, Je vous expose mon besoin pour lequel je ne trouve pas de solution : Je voudrais lorsque je tape un nom d'entreprise en B1, afficher en C5 et lignes suivantes tous les emplois qui existent mais décliné en autant de lignes que de niveau et/ou statut. Dans ma feuille par exemple...
  9. Airone784

    Plantage sur thisworkbook.close

    Bonjour, Voici le code que j'utilise à la fermeture d'un fichier : Dim noevents As Boolean Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim nom As String, dateprep As Variant, vreponse As String ActiveWindow.DisplayGridlines = True 'Permet d'éviter une boucle récursive et...
  10. Airone784

    Combobox dans ruban personnalisé Custom UI editor

    Bonjour, Voici mon soucis que je rencontre. Je souhaite utiliser Custom Ui editor pour personnaliser mon ruban et notamment filtrer une base de donnée. Je souhaite utiliser une combobox pour cela : Dans UI editor, j'ai donc le code suivant : <customUI...
  11. Airone784

    Recherche de données avec X résultats

    Bonjour, Je vous joins un document avec ma problématique. Dans mon tableau, j'ai un calendrier avec tous les jours de l'année. Je souhaiterais renvoyer pour chaque jour de l'année dans la colonne G, le ou les prénoms dont l'anniversaire est le jour concerné. Donc par exemple pour le 15/3...
  12. Airone784

    Problème sécurité : macro désactivées

    Bonsoir, J'ai du formater mon PC qui donnait de gros signes de fatigue. J'ai ensuite ré-installé le pack office 2007. Seul hic, lorsque j'ouvre un fichier xlsm avec un mot de passe pour la lecture, j'ai un message d'avertissement sécurité (voir pièce jointe). Impossible donc d’exécuter les...
  13. Airone784

    Vlookup quand on recherche une date

    Bonsoir, Voici mon petit bout de code pour lequel j'ai un problème : Dim cible As Date, valtrouve As Integer cible = UserForm1.TextBox1.Value valtrouve = Application.WorksheetFunction.VLookup(cible, Range("A4:B100"), 2, 0) MsgBox valtrouve & " est la valeur trouvée!" Ce code...
  14. Airone784

    Pb sur évènement beforeclose

    BOnjour, Voici le code que j'utilise à la fermeture d'un fichier : Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim nom As String, dateprep As Variant On Error Resume Next Application.DisplayAlerts = False Application.EnableEvents = False If MsgBox("Voulez-vous sauvegarder...
  15. Airone784

    VBA et communication avec AS400 IBM

    Bonjour, Dans le cadre professionnel, je me lance dans la création de macro associée à un outil de gestion sur AS400 (voir capture 1). Pour se faire, j'utilise un langage de communication entre IBM et microsoft excel mais je n'ai trouvé que très peu d'infos sur ce langage. Voici ma seule source...
  16. Airone784

    Déclenchement d’événement dans une zone

    Bonjour, J'ai un problème dans un fichier entre 2 évènements. Voici mon code : Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("A5:Z5,AC5:BB5")) Is Nothing And Selection.Rows.Count = 1 Then Target = 2 end if Puis j'ai ce...
  17. Airone784

    Identifier plus petite colonne sélectionnée

    Bonjour, Je vous explique mon souci en espérant que vous puissiez me venir en aide. Sur un simple tableau, je sélectionne les cellules B2:F2. Dans ce cas, si je veux connaitre quelle est ma plus petite et ma plus grande colonne sélectionnée, tout va bien, j'utilise le code suivant ...
  18. Airone784

    Insérer une image dans contrôle Userform

    Bonsoir, Voici ce que je cherche à faire et pour lequel, je ne m'en sors pas. J'ai une Userform (UF) dans laquelle j'ai mis un contrôle image nommé image1. Dans la feuille 3 de mon classeur, je stocke mes images que j'ai nommé. Dans la cellule A2, je tape l'animal et quand j'ouvre l'UF...
  19. Airone784

    Classer des clients en fonction du pays

    Bonjour, Voici mon problème avec le fichier en pièce jointe. J'ai des clients venant de pays différents et souhaite les classer. Exemple dans la PJ : mon client Jean vient du Japon, je souhaite que Jean apparaissent en C3. Puis mon client Marc en C4. Idem pour les autres clients des autres...
  20. Airone784

    Erreur exécution 6 incompréensible

    Bonjour, Pouvez-vous m'expliquer ce qui ne plait pas à Excel dans ce code?? Je récupéré une erreur 6 : dépassement de capacité Sub ffffzefz() Dim valmdp As Long, valmdp2 As Long, valmdp3 As Long, valmdp4 As Long, code5 As Long, valmdp6 As Long, valmdp7 As Long, valmdp8 As Long Dim g as...
Haut Bas