Résultats de la recherche

  1. cp4

    XL 2010 Déterminer disponibilité de place

    Bonjour, J'ai voulu aidé cependant mes modestes connaissances ne m'ont pas permis de trouver une solution. Comme je ne lâche pas facilement le morceau (dans même esprit du Dr Pol), je sollicite votre aide. La problématique est la suivante, une association organise des séjours dans des centres...
  2. cp4

    XL 2010 Affecter Formule à 1 variable

    Bonjour, Je voudrais récupérer le résultat d'une formule (ci-dessous) dans une variable. Sub Macro3() 'fonctionne parfaitement ActiveCell.FormulaR1C1 = _ "=SUMIFS(Tbd[NbClas],Tbd[Centre],""les chardons"",Tbd[Départ],"">=1/04/2024"",Tbd[Retour],""<=22/04/2024"")" End Sub J'ai fait...
  3. cp4

    XL 2010 [RESOLU] Fusion cellules horizontalement

    Bonjour, Je voudrai parcourir une plage et fusionner les cellules contigües non vides ayant la même valeur sur la même ligne. Dans le fichier joint vous trouverez le résultat escompté. En vous remerciant par avance. Bonne journée.
  4. cp4

    XL 2010 Array variables

    Bonjour, Je suis coincé. Avec la procédure ci-dessous, je parviens à ouvrir plusieurs fichiers à une seule feuille et récupérer l'adresse. Sub MesMois() Dim Fichiers As Variant, i As Integer, T As Variant Fichiers = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsx", , , ...
  5. cp4

    XL 2010 Supprimer Item dictionnaire

    Bonjour, Je bloque sur un truc qui est sûrement très simple. Après avoir alimenter 2 dictionnaires dans une procédure. Option Explicit Dim d1 As Object, d2 As Object Sub essai_dict() Dim i As Byte Set d1 = CreateObject("Scripting.Dictionary") Set d2 =...
  6. cp4

    XL 2010 Gestion heure de RDV

    Bonsoir, Suite à une discussion, je voudrais gérer des prises de RDV. Je suis confronté au problème suivant: La plage horaire des RDV est de 8h à 18h (soit 11 RDV max par jour) Pour un RDV d'urgence le jour même, on considère qu'un délai de 45mn est suffisant pour arriver, ex: il est 9h10, on...
  7. cp4

    XL 2010 [RESOLU] Si aucune sélection dans ListBox

    Bonjour, Je sais que c'est simple et même mes recherches ont été vaines. Je voudrais tester une listbox multiselection pouvant avoir 1 ou plusieurs lignes. Le but rechercher est de savoir si au moins une ligne est sélectionnée, mais je sèche. J'ai utilisé ce code mais ne fonctionne pas. Merci...
  8. cp4

    XL 2010 [RESOLU] Utilisation Calendrier Autonome via Textbox

    Bonjour, Suite à une discussion, je sollicite votre aide. Une membre à joint un fichier avec un calendrier autonome, sur une feuille le code fonctionne. Dans le code il y a une procédure pour l'utiliser via un userform. N'ayant pas réussi, je lui ai proposé le calendrier de PatrickToulon...
  9. cp4

    XL 2010 Non Déclenchement Evenement WorkSheet_Change

    Bonsoir, J'ai inséré des cases à cocher (formulaire) en colonne C liées aux cellules en colonne B. En cochant/décochant mon code ne fonctionne pas. Un peu perdu merci pour votre aide.
  10. cp4

    XL 2010 Résultat Consolidation erroné (fichier de JB)

    Bonjour, Suite à une discussion, j'ai pris un fichier de notre regretté Jacques Boisgontier (On ne te remerciera jamais assez), qui consolide 3 plages sur 3 différentes feuilles. Cependant, le résultat attendu est erroné que ça soit en vba ou manuellement. J'avoue ne pas comprendre le pourquoi...
  11. cp4

    XL 2010 [RESOLU]Ouverture fichier sans enregistrement sous

    Bonjour, D'habitude on pouvait ouvrir les fichiers joints sans les télécharger. Depuis cet après-midi, je me rends compte que ce n'est plus possible. En effet, lorsqu'on clique sur le fichier, la fenêtre d'enregistrement s'ouvre. Avez-vous remarqué ce changement chez-vous? Si c'est le cas, je...
  12. cp4

    XL 2010 [RESOLU] Test activecell appartient à une plage

    Bonjour:), C'est peut-être évident pour certains. Mais là, je suis à sec. Je voudrais tester que la cellule active appartient à une plage en vba. J'ai commencé ainsi mon code. Merci pour votre aide. Sub test() Dim ws As Worksheet, plg As Range Set ws = ThisWorkbook.Worksheets("maFeuille") Set...
  13. cp4

    XL 2010 Copier/Transposer plage vers Fichier fermé

    Bonjour, Suite à une discussion (lien dans le fichier principal). J'ai voulu refaire la même mais sans ouvrir le fichier destination. Donc c'est une première pour moi. J'ai trouvé un tuto sur developpez.com dans lequel un code est proposé pour les fichiers en xlsm et xlsx. Jusque là, c'est bon...
  14. cp4

    XL 2010 Utilisation Application.Union

    Bonjour, Suite à une discussion. J'essaie d'unir les plages jaunes en une seule plage en bouclant les cellules de la colonne B, avec condition qu'elles ne sont pas vides et que la cellule en colonne C ne contiennent pas de formule. Option Explicit Sub Combiner_Plages() Dim dl As Long, i...
  15. cp4

    XL 2010 Ouvrir Fermer Fichier à partir d'un autre fichier

    Bonsoir, Ayant 2 fichiers dans le même répertoire (1 xlsx et 1 xlsm). à l'ouverture du fichier xlsm, le fichier xlsx est ouvert via une macro. Cependant, le fichier xlsx étant ouvert en second lieu devient actif. Or, je n'arrive pas en vba à le rendre actif malgré l'utilisation de...
  16. cp4

    XL 2010 [CLOTUREE]Textboxs ou Comboboxs en majuscule

    Bonjour, Je voudrais comprendre pourquoi les codes du fichier plantent. Il s'agit d'utiliser l'évènement change de textboxs et comboboxs pour transformer minuscules en majuscules. J'ai dû ne pas comprendre car il y avait une démo qui montrait bien que les codes de PatrickToulon fonctionnent...
  17. cp4

    XL 2010 Transformer Sub en Function

    Bonjour, Je voudrais transformer une sub en fonction. En fait, je voudrais utiliser le résultat renvoyé par la msgbox dans une variable booléenne et l'utiliser dans une autre procédure. D'où, mon besoin d'une fonction. Sub VerifClient() Dim tb(), client As String, NewClient As String, C...
  18. cp4

    XL 2010 [RESOLU] Supprimer nombre de caractères variable d'une chaine

    Bonjour, Un peu perdu, je fais appel à votre aide. Je voudrai parcourir par exemple la colonne A pour supprimer les signes > et < et ce qui s'y trouve entre les 2 signes. exemple: INITIAL------------------------------------------------------------ESCOMPTE 1. What is an...
  19. cp4

    XL 2010 Vérifier Nom Prénom (comparaison lettre accentuée)

    Bonjour, Je trouve des difficultés à effectuer la vérification des noms prénoms, afin de pas avoir de doublons. Il se peut que dans les cellules de la colonne nom prénom, il y ait des espaces ajoutés par inadvertances. J'ai donc introduit des espaces pour prendre ce cas en compte. A ceci...
  20. cp4

    XL 2010 Contrôles d'onglets (TabStrip)

    Bonjour, Suite à une discussion dans laquelle Dranreb;) a suggéré l'utilisation d'un contrôle d'onglet au lieu d'un Multipage. Ne les ayant jamais utilisés, j'ai décidé de les découvrir. Je commence par le TabStrip. Dans le fichier joint, un userform avec un TabStrip à 2 onglets, 1 textbox et 1...