Discussion :

[limofab]

Bonjour,
Je suis bien bloqué sur mes boutons Ajouter (couleur verte) et mon bouton supprimer (bouton rouge).

En effet il y a plus de + de 10 listes et donc je n'arrive pas a intégrer ce code dans ce fichier.

Avez vous une astuce pour avoir un seul code pour tout les boutons ajouter et un pour supprimer
Sur mon fichier final le panier se trouve a partir de la case A69.

Merci bien d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Ajout()
Dim Fin As Long
Dim vLIndex As Byte
Dim vPlage As Range
vLIndex = ActiveSheet.Shapes("Drop Down 1").ControlFormat.ListIndex
Set vPlage = Range(ActiveSheet.Shapes("Drop Down 1").ControlFormat.ListFillRange)
Fin = [A83].End(xlUp).Row
Range("A" & Fin).Offset(1, 0) = vPlage(vLIndex)
Range("D14:G14").Copy
Range("D" & Fin).Offset(1, 0).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

[jfontaine]

Tu pourrais passer en paramètre un code ou le nom du bouton a ta procedure ajout.

[limofab]

Tu pourrais passer en paramètre un code ou le nom du bouton a ta procedure ajout.

Merci pour ce message rapide, j'ai de très légère base en VB
Le code cité provient d'un précédent coup de main

Je ne comprend pas bien ce code et je n'arrive pas à l'intégrer à tout les boutons
Pour un début, il me faudrait au pire un code par bouton permettant l'ajout de la ligne.
Je n'arrive pas à faire comprendre au code qu'il faut qu'il copie les cellules A14 à G14 dans les cellules A69 à G69 puis qu'il fasse une incrémentation pour éviter que le nouvel ajout n'écrase le précédent.

Je pense que le plus dur est de copier le contenu de la liste selectionné

As tu un bout de code simple pour gérer celà ?

Merci d'avance

[jfontaine]

Le principe serait d'appeler la procedure ajout en lui envoyant un paramètre qui serait par exemple la référnce de la cellule montant de la ligne a copier

Ensuite dans le code Ajout on se basera sur cette référene pour copier les données.

Je regarde pour te faire un exemple

[jfontaine]

La procedure Ajout

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
Sub Ajout(Ref As Range)
Dim i As Long
Dim RefDeb As Range
'Recherche la prochaine ligne disponible pour insertion
i = 69
Do While Range("A" & i).Value <> ""
    i = i + 1
Loop
 
Set RefDeb = Cells(Ref.Row, Ref.Column - 3)
Range(RefDeb.Address & ":" & Ref.Address).Copy
 
Cells(i, 4).PasteSpecial (xlPasteValues)
 
End Sub

Pour appeler la procedure, on donne un parametre la reference de la cellule montant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub CommandButton1_Click()
Call Ajout(Range("G14"))
End Sub

[jfontaine]

Pour les Désignations, je te conseil de remplacer les combobox par une liste apartenant a la cellule
Voir dans le menu Données / Validation / liste
Il te suffira ainsi de prendre une cellule de plus a gauche et de copier la désignation en même temps

[limofab]

Pour les Désignations, je te conseil de remplacer les combobox par une liste apartenant a la cellule
Voir dans le menu Données / Validation / liste
Il te suffira ainsi de prendre une cellule de plus a gauche et de copier la désignation en même temps

Le problème avec la validation des données est que je ne peux pas selectionner la plage de cellule qui est sur la feuille "Liste" de mon fichier.
De plus, je ne pourrais pas lui faire sortir le numéro SAP et l'utilisateur ne pourra pas rentrer la quantité

[limofab]

La procedure Ajout

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
Sub Ajout(Ref As Range)
Dim i As Long
Dim RefDeb As Range
'Recherche la prochaine ligne disponible pour insertion
i = 69
Do While Range("A" & i).Value <> ""
    i = i + 1
Loop
 
Set RefDeb = Cells(Ref.Row, Ref.Column - 3)
Range(RefDeb.Address & ":" & Ref.Address).Copy
 
Cells(i, 4).PasteSpecial (xlPasteValues)
 
End Sub

Pour appeler la procedure, on donne un parametre la reference de la cellule montant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub CommandButton1_Click()
Call Ajout(Range("G14"))
End Sub

Pour ce code ça marche nickel, il faut juste que j'incrémente une cellule qui jouera le role de compteur afin d'éviter que la ligne ajouter dans le panier ne s'écrase. C'est le bon raisonnement ?

[jfontaine]

Le problème avec la validation des données est que je ne peux pas selectionner la plage de cellule qui est sur la feuille "Liste" de mon fichier.
De plus, je ne pourrais pas lui faire sortir le numéro SAP et l'utilisateur ne pourra pas rentrer la quantité

Tu peux faire une liste en utilisant la feuille liste, si tu mets tes cellules dasn une "plage nommée"

Pour ce code ça marche nickel, il faut juste que j'incrémente une cellule qui jouera le role de compteur afin d'éviter que la ligne ajouter dans le panier ne s'écrase. C'est le bon raisonnement ?

Les données ne seront plus écrasé queand il y aura la désignation

[limofab]

Tu peux faire une liste en utilisant la feuille liste, si tu mets tes cellules dasn une "plage nommée"


Les données ne seront plus écrasé queand il y aura la désignation

DSL de t'embêter mais c'est quoi une plage nommée ?

J'ai un bout de code pour le bouton supprimer
Il marche bien mais si l'utilisateur clique sur annuler, il y a un message d'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub supprimer_Click()
 
1 Set nom = Application.InputBox("Sélectionnez la Désignation d'un article à effacer !", "Effacer", Type:=8)
If nom.Column() = "1" Then
    laplage = nom.Row
    With Feuil1
         .Cells(laplage, 1).ClearContents
         .Cells(laplage, 4).ClearContents
         .Cells(laplage, 5).ClearContents
         .Cells(laplage, 6).ClearContents
         .Cells(laplage, 7).ClearContents
 
    End With
Else
 
MsgBox ("Vous devez sélectionner une Désignation !!!")
GoTo 1
End If
 
End Sub

[jfontaine]

Pour faire une plage nommée, tu sélectionnes tes cellules et tu leur donne un nom.(A gauche de la ligne des formules)

[limofab]

Pour faire une plage nommée, tu sélectionnes tes cellules et tu leur donne un nom.(A gauche de la ligne des formules)

D'accord, une fois la plage nommé créé, comment fais tu pour l'intégrer dans la validation des données. J'ai essayé de mettre le nom de ma plage nommée mais ça ne fonctionne pas

[jfontaine]

Dans validation tu choiis liste puis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NomPlage

[limofab]

Dans validation tu choiis liste puis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NomPlage

Ok merci,
Avec la validation des données, y a t'il un moyen de pouvoir faire remonter le n° SAP et le prix comme avec l'ancienne méthode ?

[jfontaine]

En utilisant Recherchev

[limofab]

En utilisant Recherchev

J'ai fait le test a utilisant ton code sur le bouton de la 2e liste mais la variable i ne s'incrémente pas car quand j'ajoute un 2e article, il s'écrase sur le premier. cf piece jointe

Pour la validation des données, je vais laissé le système existant, il n'y aura que le n° SAP, le prix, la qte et le total qui seront dans le panier. Car c'est vraiment plus dur avec recherchev

[jfontaine]

Ca écrasera tant qu'il n'y aura rien dans la colonne A

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Do While Range("A" & i).Value <> ""
    i = i + 1
Loop

[limofab]

Une dernière question, sais tu pourquoi les cellules K16 et L16 sont HS ? ainsi que les K18, L18 et que les K20 et L20
J'ai vérifié plusieurs fois la formule mais tout parrait ok

[limofab]

Re, j'ai résolu le problème des cellules, une seule question me vient à l'esprit :
sur mon fichier il y a 2 listes (une à gauche l'autre à droite)
Lorsque l'on fait appel à la procedure "Ajout", j'ai une boucle qui copie de la cellule D à G.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do While Range("D" & i).Value <> ""

Le problème est que sur les listes de droite commençant par les cellules K, celà ne fonctionne pas. J'ai donc créé une autre procedure "Ajout2"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do While Range("K" & i).Value <> ""

Au final il y a soucis lors de l'ajout des cellules de la liste de droite tournant sous la procedure Ajout2 car la variable i ne n'incrémente pas et du coup tout s'écrase sur la premiere ligne du panier

Help, que dois je faire.
Est ce que je peu déclarer une variable unique au 2 procedures qui ferrait office de compteur ?

[Bigalo]

Bonsoir,

Pas regardé les messages précédents, ni les éventuels documents joints, mais voici le principe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Appel
    Boucle "D"
End Sub
 
Sub Boucle(RefCol as String)
' Début
        Do While Range(RefCol & i).Value <> ""
' Suite et fin
End Sub