Macro

J

jp14

XLDnaute Barbatruc

• 14 Janvier 2009

• #2

Re : Macro

Bonsoir

Ci dessous une macro évènementielle pour répondre au problème posé

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dl1 As Long ' dernière ligne

If Target.Count > 1 Then Exit Sub
With Sheets(Target.Worksheet.Name)
dl1 = .Range("e65536").End(xlUp).Row + 1 ' colonne quantité
' on utilise la colonne quantité pour déterminer la ligne à écrire
    If Not Intersect(Target, Range("b12")) Is Nothing Then
    .Range("b" & dl1).Value = .Range("b12").Value
    End If
End With
End Sub

J'utilise la colonne quantité pour déterminer la ligne à écrire. Il faut veiller à ne pas mettre de données dans cette colonne sauf la quantité.

A tester

JP

 

Dernière édition: 15 Janvier 2009

Vote positif 0 Vote négatif

T

tipierre08

Guest

• 14 Janvier 2009

• #3

Re : Macro

Merci pour le code, mais je souhaiterais avoir le chemin que tu as pris pour arriver à ce code en vba

 

Vote positif 0 Vote négatif

T

tipierre08

Guest

• 15 Janvier 2009

• #4

Re : Macro

Est ce que quelqu'un aurait une idée ? Pour cette macro!!!😕

 

Vote positif 0 Vote négatif

T

tipierre08

Guest

• 15 Janvier 2009

• #5

Re : Macro

En faite, je viens de mettre en place le code dans vba, mais il ne fonctionne pas qomme je le souhaite,tout d'abord:
-il supprime la formule que j'ai dans la colonne produit
-Il avance que de 1, et moi je souhaite qu'il avance de 1 en 1, à chaque nouveau produit

Au secours je galère !!!!

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 15 Janvier 2009

• #6

Re : Macro

Bonjour

tipierre08 à dit:

En faite, je viens de mettre en place le code dans vba, mais il ne fonctionne pas comme je le souhaite,tout d'abord:
-Il avance que de 1, et moi je souhaite qu'il avance de 1 en 1, à chaque nouveau produit

Cliquez pour agrandir...

Un peu d'explication serait nécessaire.

JP

 

Vote positif 0 Vote négatif

T

tipierre08

Guest

• 15 Janvier 2009

• #7

Re : Macro

Monsieur JP,

Comme vous avez pu le constater sur mon fichier, que quand je clique sur la cellule B12 et que je choisi un produit je souhaite qu'il renseigne la première case de ma désignation produit, et ensuite je souhaite qu'il renseigne la case suivante si je choisi une référence avec la case B12, Donc je veux decaler ma cellule designation à chaque fois que j'utilise la cellule B12

Jespère que je suis claire, car ce n'est pas facile d'expliquer ma requête, désolé si cela n'est pas le cas

 

Vote positif 0 Vote négatif

I

isol

Guest

• 15 Janvier 2009

• #8

Re : Macro

Ce code marche mieux!
Private Sub ComboBox1_Click()
ActiveCell.Offset(1, 0).Select
Me.ComboBox1.ListIndex = -1
End Sub




NB:il demeure un pb, cela ne marche que si l'on change la sélection dans la liste...

Bonjour,
une solution : il faut créer une combobox à la place de la liste créée par "données->validation->liste".
Ensuite, dans VBA : aller à "thisworkbook"
coller le code suivant :

Private Sub Workbook_Open()
Feuil2.ComboBox1.ListFillRange = "desi"
End Sub

aller à "Feuil2 (FACTURE)" et coller le code :

Private Sub ComboBox1_Change()
ActiveCell.Offset(1, 0).Select
End Sub

Et voilà!

 

Dernière modification par un modérateur: 15 Janvier 2009

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 15 Janvier 2009

• #9

Re : Macro

Bonsoir

En changeant la valeur de la cellule b12, la macro recopie cette valeur dans la ligne qui ne contient pas de quantité.
On indique alors la quantité et si on change la valeur de la cellule B12 le nouveau texte est inscrit sur la ligne suivante ou la quantité est à blanc.
J'ai choisi la colonne quantité car il n'y a pas de cellule utilisée la colonne après la quantité indiquée, ce qui n'est pas le cas pour la colonne désignation.

JP

 

Vote positif 0 Vote négatif

T

tipierre08

Guest

• 15 Janvier 2009

• #10

Re : Macro

Mr ISOL,

Je ne sais pas ce que s'est une combobox et donc je n sais pas la mettre en place !!!
Pouvez vous m'éclairer sur le chemin que je dois prendre

 

Vote positif 0 Vote négatif

T

tipierre08

Guest

• 15 Janvier 2009

• #11

Re : Macro

Pour le combobox quelqu'un peut me renseigner ?

SVP

 

Vote positif 0 Vote négatif

T

tipierre08

Guest

• 16 Janvier 2009

• #12

Re : Macro et combobox

Au secours de la combobox !!!!

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 16 Janvier 2009

• #13

Re : Macro

Bonjour

Ci dessous un lien pour trouver un début de réponse.
Ce lien n'existe plus

JP

 

Vote positif 0 Vote négatif

T

tipierre08

Guest

• 16 Janvier 2009

• #14

Re : Macro

Merci pour ce lien, je vais essayer de prendre exemple

 

Vote positif 0 Vote négatif

T

tipierre08

Guest

• 17 Janvier 2009

• #15

Re : Macro

Snif snif, je n'y arrive pas à mettre en place un combobox

 

Vote positif 0 Vote négatif