Résultats de la recherche

  1. cabsen

    XL 2019 Extraire toutes les données d'une liste en fonction d'un critère

    Bonsoir, Je rencontre une difficulté pour extraire toutes les données d'une liste (liste de cours) en fonction d'un critère (1 ou vide) pour construire une nouvelle liste. J'ai obtenu un premier résultat au moyen de fonction DÉCALER, EQUIV et NB.SI mais je sens que je tourne autour du pot. (voir...
  2. cabsen

    Modifier transparence d'une image importée

    Bonjour à toutes et à tous, Travaillant sur Mac, je ne dispose pas des activeX pour manipuler des images sans VBA. N'ayant besoin que de l'icône statique d'un sablier, j'ai opté pour une manipulation de la transparence par VBA pour faire "disparaître" ou "apparaître" mon image. J'ai testé...
  3. cabsen

    modifier une propriété d'une listebox sans passer par une sélection

    Re : modifier une propriété d'une listebox sans passer par une sélection Bonsoir, Et merci pour l'inspiration née des échanges… Sheets("Feuil1").Shapes("List Box 1").ControlFormat.ListFillRange = "eExercices" A priori cela fonctionne sans passer par une sélection :)
  4. cabsen

    modifier une propriété d'une listebox sans passer par une sélection

    Re : modifier une propriété d'une listebox sans passer par une sélection Merci pour votre réponse mais malheureusement j'obtiens la même erreur (438).
  5. cabsen

    modifier une propriété d'une listebox sans passer par une sélection

    Bonjour à tous, Je coince sur un détail. Je modifie la propriété "ListFillRange" d'une listebox sans difficulté à partir d'un bout de macro enregistrée : ActiveSheet.Shapes.Range(Array("List Box 3")).Select With Selection .ListFillRange = "eExercices" .LinkedCell =...
  6. cabsen

    Stocker le nom d'un Shape pour le supprimer plus tard

    Re : Stocker le nom d'un Shape pour le supprimer plus tard Merci à vous deux, J'ai utilisé la fonction de pierrejean pour obtenir : Sub Macro4() Dim n As Integer Dim nombouton As String ActiveSheet.Buttons.Add(140, 196, 84, 14).Select For n = ActiveSheet.Shapes.Count...
  7. cabsen

    Stocker le nom d'un Shape pour le supprimer plus tard

    Re : Stocker le nom d'un Shape pour le supprimer plus tard Le soucis est que je souhaite le faire par Macro et que le renommage nécessite de connaître au préalable le nom Excel de l'objet : ActiveSheet.Shapes("Button 123").Name = "MEFapprenti" Et je ne connais pas le numéro de l'objet qui...
  8. cabsen

    Stocker le nom d'un Shape pour le supprimer plus tard

    Bonjour à tous, Pour une petite application, j'ai besoin de créer / supprimer un bouton. Je parviens à : Créer le bouton Modifier son texte en fonction de mes besoins Positionner le bouton où je le souhaite Je ne parviens pas à : Stocker son nom de type "Button 000" dans une...
  9. cabsen

    Tester le contenu d'une variable string issu d'un dialogue "ouverture..." annulé

    Re : Tester le contenu d'une variable string issu d'un dialogue "ouverture..." annulé Malheureusement, cela ne fonctionne pas chez moi. Je travaille sous Mac OS X et j'imagine qu'il y a une subtilité qui m'échappe… En fait cela fonctionne avec "False" mais dans ce cas, lorsque l'utilisateur...
  10. cabsen

    Tester le contenu d'une variable string issu d'un dialogue "ouverture..." annulé

    Bonjour à tous, Je rencontre un soucis avec un test If dont voici le code : Option Explicit Dim chemFic As String Public Sub selectionFichierAMettreEnForme() chemFic = Application.GetOpenFilename("XCEL,XLS8") If chemFic = Null Then 'Si l'utilisateur annule la boîte...
  11. cabsen

    Ranger lignes sans VBA ni Trier

    Re : Ranger lignes sans VBA ni Trier Merci infiniment abcd ! J'ai passé trois jours à tester différentes méthodes et je m'étais persuadé que la solution tournait autour de la fonction RechercheV. Très jolie solution… je mesure les progrès qu'ils me restent à faire. :o
  12. cabsen

    Ranger lignes sans VBA ni Trier

    Bonjour à tous, Je souhaiterais produire un tableau sans lignes vides. Mon fichier réalise 250 tests sur une feuille de temps de travail. Un test positif rend 1, un test négatif rend 0. Une cellule affiche le message associé à chaque test positif et un bouton d'incrémentation permet de...
  13. cabsen

    Lister les occurrences d'une colonne

    Re : Lister les occurrences d'une colonne Merci Boisgontier, Mais ma version d'Excel pour Macintosh ne dispose pas de la fonction "CreateObject". Je vais tenter de copier la colonne sur une feuille A, de copier la cellule A1 de la feuille A en A1 d'une feuille B et de supprimer toutes les...
  14. cabsen

    Lister les occurrences d'une colonne

    Re : Lister les occurrences d'une colonne Merci pour vos réponses, Celle de Monique me va bien car elle n'appelle pas de macro. J'ai un peu peur tout de même de la place que cela va prendre car je dois pouvoir cribler 17 colonnes de 65535 lignes (potentiellement). Avant de crier, je vais...
  15. cabsen

    Lister les occurrences d'une colonne

    Bonjour à tous, Je cherche à lister les occurrences d'une colonne pour présenter le résultat dans une zone de liste modifiable (exactement à la manière du menu déroulant en tête de colonne). Si quelqu'un sait faire cela, je lui en saurai fort gré. ;)
  16. cabsen

    coller seulement les valeurs

    Re : coller seulement les valeurs Bonsoir le fil, Je vais reformuler ma question. Existe-t-il une solution pour appliquer une option "PasteSpecial Paste:=xlValues" à la méthode de copie … .Copy Destination:=… ?
  17. cabsen

    coller seulement les valeurs

    Re : coller seulement les valeurs Merci ChTi160, Ça va alléger mon code mais mon problème initial était de réaliser une copie des valeurs et non des formules contenues dans les cellules en fait…;)
  18. cabsen

    coller seulement les valeurs

    Re : coller seulement les valeurs Merci bhbh, mais cette solution ne me copie que la première cellule de mon tableau de 5 éléments. Pour phlaurent55, c'est le début de ma macro. Pour le moment elle ne comprend qu'une sélection de 5 éléments mais elle est appelée à en manipuler beaucoup...
  19. cabsen

    coller seulement les valeurs

    Bonjour le forum, J'utilise la macro suivante pour extraire les données d'un fichier. Public Sub TransfertDonnees() acopier = Array("G8:G12") For i = 1 To 52 vers = Array("B" & 2 + ((i - 1) * 7)) For n = 0 To...