Incrémentation de lignes sous cellule avec liste de choix

[Vieupot]

Bonjour
Je ne connais pas le VBA et cherche un code qui pourrait faire comme demandé dans l'exemple ci joint
Merci par avance

 

[Calvus]

Bonsoir Vieupot, le forum,

Voici pour la 1ère partie de ton code, afin de copier les lignes.

Sub AjoutLigne()
Range("B" & Rows.Count).End(xlUp).CurrentRegion.Rows(1).Offset(1, 0).Copy Destination:=Range("B" & Rows.Count).End(xlUp).Rows(2)
Range("B" & Rows.Count).End(xlUp).CurrentRegion.Rows(2).Offset(1, 0).ClearContents
End Sub

Pour la suite, j'essaierai de regarder ce soir.

A+

 

[Vieupot]

Bonsoir Calvus
Merci je teste demain
Bonne soirée

 

[cathodique]

Bon dimanche, pas du tout significatif ton titre, ça ne donne pas envie d'y jeter un coup d’œil.

 

[libellule85]

Bonsoir tous,
cathodique a raison, il faudrait que tu modifies ton titre pour que les excelliens connaissent ton problème
Je viens de regarder vite fait, déjà il faut que tu étendes ta liste de validation en sélectionnant B13, B14 et B15.
En C13 à C15 et en D13 à D15 utiliser RECHERCHEV

 

[libellule85]

Oooooops, je n'avais pas fait attention tu veux du VBA, alors je laisse la place aux spécialistes.

 

[Vieupot]

merci mais ça n'a pas fonctionné. mais pas grave j'ai une autre solution.
Cordialement

 

[Vieupot]

bonsoir Libellule
Tu as raison et cathodique aussi. Pas habitué du forum je me perds dans mes pensées et.... illusions.. Je vais donc chercher ou se trouve l'option modifier.
Merci de ton intervention
Cordialement