Incrémentation de lignes sous cellule avec liste de choix

Calvus

XLDnaute Barbatruc

• 11 Mars 2017

• #2

Bonsoir Vieupot, le forum,

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

VB:

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+

 

Vote positif 0 Vote négatif

Vieupot

XLDnaute Occasionnel

• 11 Mars 2017

• #3

Bonsoir Calvus
Merci je teste demain
Bonne soirée

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 12 Mars 2017

• #4

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

 

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 12 Mars 2017

• #5

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

 

Dernière édition: 12 Mars 2017

Vote positif 0 Vote négatif

libellule85

XLDnaute Accro

• 12 Mars 2017

• #6

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

 

Vote positif 0 Vote négatif

Vieupot

XLDnaute Occasionnel

• 12 Mars 2017

• #7

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

 

Vote positif 0 Vote négatif

Vieupot

XLDnaute Occasionnel

• 12 Mars 2017

• #8

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

 

Vote positif 0 Vote négatif