Macro copie infos plus ligne

[Kouks]

Bonjour tout le monde,

Il me faudrait réaliser les applications suivantes

Toutes les informations sont indiqués dans le document joint

Merci beaucoup de votre temps

 

[porcinet82]

Re : Macro copie infos plus ligne

Salut,

Pour ton histoire de liste deroulante qui provient de la barre d'outil formulaire, je ne sais si c'est possible, par contre, il me semble que ca l'ai avec une Combobox (boite a outils de controls). Fait une recherche sur le forum.

Sinon pour le code des boutons, voila :

Private Sub CommandButton1_Click()
Range("B10:D10").Copy Destination:=Range("B" & Range("B22").End(xlUp).Row + 1)
End Sub
 
Private Sub CommandButton2_Click()
    Rows(ActiveCell.Row).Delete Shift:=xlUp
End Sub

@+

 

[Kouks]

Re : Macro copie infos plus ligne

Salut,

Pour ton histoire de liste deroulante qui provient de la barre d'outil formulaire, je ne sais si c'est possible, par contre, il me semble que ca l'ai avec une Combobox (boite a outils de controls). Fait une recherche sur le forum.

Sinon pour le code des boutons, voila :

Private Sub CommandButton1_Click()
Range("B10:D10").Copy Destination:=Range("B" & Range("B22").End(xlUp).Row + 1)
End Sub
 
Private Sub CommandButton2_Click()
    Rows(ActiveCell.Row).Delete Shift:=xlUp
End Sub

@+

Cher Porcinet82

Merci pour ta réponse cependant quand il copie les cellules B10,C10 et D10 il copie le contenu et il incrémente les cellule de la formule de 1.

EX: MA formule est la suivante RECHERCHEV($A$1;DATA!A:d;DATA!A4;FAUX)
Il copie RECHERCHEV($A$1;DATA!A:d;DATA!A10;FAUX)


Y-a t-il un moyen de l'empecher de faire ca? N'est t-il pas possible de lui dire de copier la formule telle qu'elle?

MErci encore

 

[porcinet82]

Re : Macro copie infos plus ligne

re,

A merdouille j'ai pas fais gaffe. Il te suffit de modifier de la manière suivante :

Private Sub CommandButton1_Click()
Range("B10:D10").Copy
Range("B" & Range("B22").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
End Sub

@+

 

[Kouks]

Re : Macro copie infos plus ligne

Merci pour ton aide ca marche

 

[Kouks]

Re : Macro copie infos plus ligne

Bonjour à tous

Je cherche à remplacer la liste box par une comboBox

Explication dans le fichier.

Merci d'avance

 

[porcinet82]

Re : Macro copie infos plus ligne

re,

Pour mettre une Combo, tu vires ta liste deroulante, ensuite, dans la boite a outils controls, selectionne Zone de liste déroulante et tu la places ou tu le souhaites. Pour l'incrémenter, tu click droit dessus et Visualiser le code et tu copies le code suivant :

Private Sub ComboBox1_GotFocus()
ComboBox1.Clear
With Sheets("DATA")
    For i = 2 To .Range("B65536").End(xlUp).Row
        ComboBox1.AddItem (.Cells(i, 3).Value)
    Next i
End With
End Sub

@+