Autres Macro pour numéroter des congés en fonction de qtés indiquées...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide afin d'écrire une macro, pour numéroter (de 0,5 en 0,5) des congés ...
expl colonne A, j'ai des codes congés expl CA ,colonne B qté 25 je voudrais avoir colonne D CA0,5
CA1
CA1,5
ect ect jusqu'à CA25
voir fichier joint pour explications plus précises....

Merci pour votre aide si précieuse.
Bien amicalement,
Christian

 

[pierrejean]

Bonjour Christian
Teste cette macro

Sub test()
ligne = 2
col = 4
For n = 2 To Range("A" & Rows.Count).End(xlUp).Row
pas = 0.5
  If Cells(n, 2) = "" Then
    Cells(n, 1).Copy Destination:=Cells(ligne, col)
    ligne = ligne + 1
  Else
     While pas < Cells(n, 2) + 0.5
        Cells(n, 1).Copy Destination:=Cells(ligne, col)
        Cells(ligne, col) = Cells(ligne, col) & pas
        ligne = ligne + 1
        pas = pas + 0.5
     Wend
  End If
Next
End Sub

 

[Christian0258]

Re, le forum, pierrjean

Merci infiniment, pierrejean, ç'est tout à fait ça et ça fonctionne parfaitement.

Bien à toi.

Christian