Contenu récent par Claudy

  1. Claudy

    Microsoft 365 Mozaïque photos

    Re bonjour Patrick, ok avec toi, je pense que je vais le faire à la ain. Bonne journée, Claudy
  2. Claudy

    Microsoft 365 Mozaïque photos

    Bonjour Patrick, Merci beaucoup, j'avance dans mon projet... Mais comment adapter ton code pour que les images soient placées sans blancs entre elles, quite à faire des doublons pour remplir une page? Merci Claudy
  3. Claudy

    Microsoft 365 Mozaïque photos

    Bonsoir à tous, merci pour vos réponses, Malheureusement , je ne saurai tester que lundi prochain, je vous tiendrai au courant, Bonne soirée, Claudy
  4. Claudy

    Microsoft 365 Mozaïque photos

    Bonjour, Comment insèrer sous forme de mozaique, de façon aléatoire dans une feuille, des photos(30) se trouvant dans un dossier? Il peut y avoir des doublons dans la mozaïque. VBA accepté. Merci d'avance, Claudy
  5. Claudy

    Autres Certains sites bloqués!Acces Denied

    Bonjour, Lorsque j'essaie de me connecter sur certains sites(respectables), genre Mpension ou Tui.be, impossible d'afficher la page. Idem avec Edge ou Chrome Exemple: J'utilise Chrome et Edge, sous windows 10 famille, et Mc Affee
  6. Claudy

    XL 2010 Indexer onglets

    Bonjour, .en annexe un petit fichier: Premier onglet avec la date du 07122024(format texte) que l'on retrouve en A1 Tu lances la macro du fichier Sub Nouvel_onglet_date() '+7 jours() ' ' For i = 1 To 12 ActiveSheet.Copy After:=ActiveSheet Range("A1") = Range("A1") + 7...
  7. Claudy

    Microsoft 365 date si cellule effacée

    Bonjour et merci, mais ça coince ici: Private Sub Worksheet_Change(ByVal Target As Range) 'On Error Resume Next If Not Intersect(Target, Range("N1000 , N3200")) Is nothinhg Then EnableEvents = False If Target = "" Then Target = Format(Now, "dd/mm/yyyy") EnableEvents = True End...
  8. Claudy

    Microsoft 365 date si cellule effacée

    Bonjour, je bloque sur ce qui me semble un détail: comment dans ma colonne "I" , si j'efface le contenu, à la place vient s'y inscrire la date du jour? Dans le genre: Via Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Value Like "" Then date 'mais lorsque je...
  9. Claudy

    Microsoft 365 VBA Rowsource transposée

    Question subsidiaire.... comment récupérer le numéro de colonne de la valeur sélectionnée ? Merci Claudy
  10. Claudy

    Microsoft 365 VBA Rowsource transposée

    Merci....
  11. Claudy

    Microsoft 365 VBA Rowsource transposée

    Merci Cousinhub, mais ça va pas... Claudy
  12. Claudy

    Microsoft 365 VBA Rowsource transposée

    Bonjour à tous, comment initialiser une lisbox avec les données reprises de "E5:W5": ListBox1.RowSource = Application.Transpose("E5:W5")'ne fonctionne pas! Merci, Claudy
  13. Claudy

    Microsoft 365 Liste validation grace aux premières lettres

    Bonjour Job, et merci, Je pense qu'il y aura toujours une correspondance, sinon le retour: "Rien!" A+ Claudy
  14. Claudy

    Microsoft 365 Liste validation grace aux premières lettres

    Bonjour, Est il possible de valider une donnée sans passer par l'outil "Validation de données", mais simplement valider une proposition avec les premières lettres. La liste se trouverait en A1:A100. Ok pour VBA Merci, Claudy
  15. Claudy

    Microsoft 365 Creer un USF avec des optionbutton d'une liste nommée ou définie

    Avec un peu de retard... Merci, parfait, comme d'hab Claudy
Retour