Contenu récent par Kim75

  1. K

    [Résolu] Remplir une suite de plages suivant un certain ordre

    Salut Roger, Merci pour la correction, et pour l'explication aussi :) Bonne journée, Kim.
  2. K

    [Résolu] Remplir une suite de plages suivant un certain ordre

    Bonsoir Roger, le forum, Si jamais Roger a l'occasion de passer en semaine ou même courant de l'année :) J'ai du mal à comprendre cette erreur dans les cas où la série de données a une certaine longueur Cordialement, Kim.
  3. K

    [Résolu] Remplir une suite de plages suivant un certain ordre

    Bonsoir Roger, le forum, Merci beaucoup pour le code, ça marche super :) J'avoue que c'était pas facile à décoder à la première lecture, Mais j'ai finalement saisi la combinaison des fonctions utilisée, Cordialement, Kim.
  4. K

    [Résolu] Remplir une suite de plages suivant un certain ordre

    Bonjour, Je me retrouve en face d'une macro qui envoie [verticalement] une série de nombre dans des cellules rangées dans des plages [horizontales] déterminées. For i = 1 To Sheets("Feuil3").Range("A" & Rows.Count).End(xlUp).Row l = 0 c = 0 Do Until r.Offset(l, c).Value = ""...
  5. K

    VBA suppression de ligne de par son numero

    Hello Diop, vgendron :) Sub SupprimeLigne() Last = Cells(Rows.Count, "A").End(xlUp).Row For i = Last To 1 Step -1 If (Cells(i, "C").Value) = 100 Then Cells(i, "A").EntireRow.Delete End If Next i End Sub Cordialement, Kim.
  6. K

    XL 2016 Création d'une boucle en VBA

    Hello Stpéhane, le forum, Tu devrais expliciter un peu plus, par "en fonction" on comprend mille et rien choses, ça peut vouloir dire reproduire les valeurs, les multiplier par quelque chose, leur additionner quelque chose, ou je ne sais quoi d'autre ... :) Cordialement, Kim.
  7. K

    XL 2010 Résolu par la communauté bienveillante : atteindre la première cellule = à aujourd'hui

    Ah d'accord, ce qui pose problème c'est le format de date en français Essaye et tu verras, mets par exemple une macro avec : Range("B1") = Format(Date, "ddd dd mm yy") ça ajoute un point après le diminutif du jour, alors que tes dates sont sans point, tu dois donc peut être opter pour un autre...
  8. K

    XL 2010 Résolu par la communauté bienveillante : atteindre la première cellule = à aujourd'hui

    Hello Arthour, Si si le fichier joint a bien fonctionné chez moi, enfin si j'ai bien compris :) J'ai juste mis la couleur rouge sur les cellules contenant la date en question Mets de côté le tien (trop formaté) et essaye celui que j'ai téléchargé Cordialement, Kim.
  9. K

    XL 2010 Résolu par la communauté bienveillante : atteindre la première cellule = à aujourd'hui

    Bonsoir à tous :) Une autre possibilité :Option Explicit Sub FindToday() Dim c As Range, rng As Range, madate Set rng = Sheets("Feuil1").Range("Y4:Y" & Sheets("Feuil1").[Y65000].End(xlUp).Row) For Each c In rng madate = Int(CDbl(c)) If c = Date Then c.Interior.Color = &HFF& End If Next...
  10. K

    [Résolu] Fonction Replace dans la référence d'une cellule

    Hello Lone-Wolf, Dranreb :) En effet, j'ai corrigé et ça marche J'avais oublié de mettre "$ et &" dans Dim S$(), L&, C& :) Je vous remercie infiniment de m'avoir sorti du pétrin :) Bonne fin de journée, Kim.
  11. K

    [Résolu] Fonction Replace dans la référence d'une cellule

    Bonjour Lone-Wolf, Dranreb, le forum Merci Lone-Wolf, Dranreb mais ça ne marche malheureusement pas, notamment la méthode de Dranreb consistant à substituer Spilt à Replace, apparemment on ne peut mettre autre chose que des nombre dans la référence d’une cellule, enfin c’est ce qui me semble...
  12. K

    [Résolu] Fonction Replace dans la référence d'une cellule

    Bonjour le forum, Je vous présente tous mes voeux de paix, bonheur et santé pour ce nouvel an, bonne année à tous :) L'année a commencé pour moi hier avec ce petit souci de notation que j'arrive pas à régler :) -1. Quand on écrit :Sheets("Feuil1").Cells(2, 4).Value = "Test" On a "Test" en...
  13. K

    [Résolu] Plusieurs zones d'impression dans un Array

    Hello Job ! Oui effectivement, j'ai bien vu :) Bonne nuit et merci encore ! Kim.
  14. K

    [Résolu] Plusieurs zones d'impression dans un Array

    Hello Job, Lone-Wolf, le forum, Oui j'ai vu que tu as remplacé et repositionné au bon endroit le : .PrintArea = .Range(Mid(z, 2)).Address par .PrintArea = Mid(z, 2) En tout les cas, la macro fonctionne nickel, comme sur des roulettes :) Merci pour l'aide apportée, et merci aussi à Lone-Wolf de...
  15. K

    [Résolu] Plusieurs zones d'impression dans un Array

    Hello Job ! :) Bravo mon cher, rien à dire si ce n'est un grand MERCI ! Le code est tellement bien fait qu'on est forcé de ne pas l'oublier :) Cordialement, Kim.