Macro

[tipierre08]

Bonjour,

Voici en pièce jointe, le problème que je rencontre:

Je souhaite mettre en place une macro qui me permettrait de descendre de 1 en 1 une cellule.

Merci par avance pour vos suggestions

 

[jp14]

Re : Macro

Bonsoir

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

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

 

[tipierre08]

Re : Macro

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

 

[tipierre08]

Re : Macro

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

 

[tipierre08]

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 !!!!

 

[jp14]

Re : Macro

Bonjour

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

Un peu d'explication serait nécessaire.

JP

 

[tipierre08]

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

 

[isol]

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à!

 

[jp14]

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

 

[tipierre08]

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

 

[tipierre08]

Re : Macro

Pour le combobox quelqu'un peut me renseigner ?

SVP

 

[tipierre08]

Re : Macro et combobox

Au secours de la combobox !!!!

 

[jp14]

Re : Macro

Bonjour

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

JP

 

[tipierre08]

Re : Macro

Merci pour ce lien, je vais essayer de prendre exemple

 

[tipierre08]

Re : Macro

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