Résultats de la recherche

  1. Chris401

    XL 2013 Boucler sur colonne filtrée

    Bonjour à tous Soit un tableau A1:Ex La colonne D est filtrée sur une date. Je désire imprimer chaque item de la colonne C. Comment remplacer ce code en utilisant une boucle SVP ? Sub Imprime() With ActiveSheet .ListObjects("Tableau4").Range.AutoFilter Field:=3, Criteria1:= _...
  2. Chris401

    XL 2013 TCD NB Distinct - Impossible grouper dates

    Bonsoir à tous Dans le fichier joint, je cherche à grouper les dates par Mois et Année. Click droit ==> Grouper est grisé A la création, j'ai coché "Ajouter ces données au modèle de données" afin de pouvoir compter sans doublons. Sur la création d'un TCD "normal" il n'y a pas de soucis. Une...
  3. Chris401

    XL 2013 Imprimer Boucle Filtres

    Bonsoir à tous Dans le fichier joint, un tableau (Colonne A à R) Le but est de boucler sur chaque donnée de la colonne F puis colonne R et d'imprimer le tableau filtré. Exception : code 0125 qui lui n'est filtré que sur colonne F Dans cet exemple, il y aura 6 éditions : Une idée ? Merci...
  4. Chris401

    XL 2013 Concaténer 2 colonnes Puis Supprimer Doublons

    Bonsoir à tous Je cherche un code pour concaténer 2 colonnes puis supprimer les doublons. Je sais le faire en passant auparavant par une formule dans la feuille, puis un code pour supprimer les doublons, mais mon fichier peut contenir énormément de lignes ; aussi je pense qu'il vaudrait mieux...
  5. Chris401

    Avant dernière ligne visible

    Bonsoir à tous Je récupère la dernière ligne visible d'un tableau filtré avec ce code ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row Mais je cherche à récupérer l'avant dernière ligne visible afin de copier certaines colonnes Exemple dans fichier joint Merci de votre aide...
  6. Chris401

    XL 2013 Carte Département

    Bonsoir à tous Grâce à Tatiak (à qui je renouvelle mes remerciements), j'ai un super fichier représentant la carte de la gironde. Je voudrais le faire évoluer. Quand on clique sur un point rouge, une Msgbox affiche le nom de la ville en titre, et le nombre inscrit en colonne F de la feuille...
  7. Chris401

    XL 2013 Impression Sans Couleur

    Bonjour à tous J'ai un fichier avec des cellules avec fond et police en couleur identique. J'ai trouvé un code qui permet d'imprimer en sortant la couleur de fond à l'impression puis qui la remet après. L'impression sans couleur de fond fonctionne parfaitement bien (la police est OK), mais...
  8. Chris401

    XL 2013 NB.SI 3D Plage

    Bonjour à tous Je n'arrive pas à adapter la formule de BOISGONTIER sur ce fichier. La plage des OUI n'est pas sur une colonne mais sur plusieurs. Comme dans le fichier, le nom peut se situer sur différentes lignes dans la colonne A. Macro acceptée bien évidemment. Bonne journée Chris Edit ...
  9. Chris401

    XL 2013 Ajuster Hauteur Lignes pour remplir Page

    Bonjour à tous Tous mes vœux pour cette nouvelle année. Je ne sais pas si ma demande est réalisable mais est-il possible, à l'impression, d'augmenter la hauteur des lignes 5 à fin du tableau afin que la page soit entièrement remplie sur la hauteur ? Après l'impression, remettre la hauteur de...
  10. Chris401

    XL 2013 Grouper des cellules (avec retour chariot)

    Bonsoir à tous J'ai besoin de votre aide pour un code qui regroupe des cellules. Tout est expliqué dans le fichier. J'attends vos questions éventuelles si ce n'est pas clair. Merci par avance. Cordialement Chris Edit : Je n'ai pas besoin que la feuille Arrivee soit sous forme de tableau
  11. Chris401

    XL 2013 Bordure sur lignes filtrées

    Bonsoir à tous J'ai besoin de vos lumières pour le fichier joint. Quand les lignes ne sont pas filtrées, la bordure est appliquée à chaque changement de date (colonne A) J'essaye vainement de trouver le code qui mettrait une bordure à chaque changement de numéro de semaine (colonne C) sur...
  12. Chris401

    Filtre sur place - Signe étoile (*)

    Bonsoir à tous Que faut-il écrire dans la cellule N2 du fichier joint pour filtrer sur le signe étoile (*) ? J'ai essayé : * ="*" ~* ~*~ Merci de votre aide. Cordialement Chris
  13. Chris401

    Graphique Intuitif

    Bonjour à tous J'ai réussi (tant bien que mal) à créer le graphique qui se trouve dans la PJ. Cependant, je souhaiterais qu'il soit intuitif. Merci de votre aide. Cordialement Chris
  14. Chris401

    Couleur sélection 2 cellules + croisement

    Bonsoir à tous Pourriez-vous m'aider SVP ? Je cherche un code qui ferait : Sélection d'une cellule de la plage A4:A36 ==> Cette cellule passe en fond rouge Sélection d'une cellule de la plage B2:AB2 ==> Cette cellule passe en fond rouge Le croisement de ces 2 cellules passe en...
  15. Chris401

    Filtrer - copier - imprimer

    Bonjour à tous Gros soucis dans ma boite : panne AS400 Pour réduire le travail manuel, est-il possible de filtrer chaque client, de copier les données dans la feuille BL, d'imprimer ce BL et de passer au client suivant. Ce sera peut-être plus clair en voyant le fichier. Merci de votre aide...
  16. Chris401

    Revenir sur Inputbox en cas d'erreur

    Bonsoir Dans le fichier joint, plusieurs feuilles construites sur une base identique. A l'activation d'une feuille, une Inputbox demande un MDP ; selon le MDP inscrit, certaines colonnes s'affichent. Const MDP As String = "Admin" Const Masque1 As String = "MDP1" Const Masque2 As String =...
  17. Chris401

    Amelioration code trop lent

    Bonjour à tous Dans le fichier joint, quand je clique sur "Ajouter Semaine" les jours OUVRES de la semaine demandée s'inscrivent en colonne A. Il y a autant de jours que d'employés ; exemple : 30 employés = 30 lundis, 30 mardis etc ... La macro fonctionne, mais elle met un certain temps ...
  18. Chris401

    VBA - Entete graphique

    Bonjour Ce code fonctionne pour l'entête des feuilles ActiveSheet.PageSetup.CenterHeader = Range("B68") Cependant, cela ne fonctionne pas pour modifier l'entête de page d'un graphique J'y arrive en manuel mais l'enregistreur de macro ne donne rien. Pouvez-vous m'aider SVP ? Cordialement Chris
  19. Chris401

    CreateObject("Scripting.Dictionary") avec 2 conditions

    Bonsoir à tous Je n'arrive pas à faire tourner un code si j'indique 2 conditions au lieu d'une Merci de votre aide Cordialement Chris
  20. Chris401

    Eclater cellules séparées par un retour chariot en autant de cellules que de mots

    Bonjour à tous J'ai un tableau qui comporte en colonne F un ou plusieurs mots. J'aimerai une macro qui "éclate" ces cellules en autant de lignes que nécessaires. Modèle de que que j'attends dans le fichier joint. Merci à tous et bon dimanche. Chris
Haut Bas