Bouton ajouter et supprimer

Re : Bouton ajouter et supprimer

Re, j'ai avancé dans le caca😀
2 types de boutons sont en place (22 boutons ajouter et 1 supprimer)

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.

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("D" & 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

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"

Sub Ajout2(Ref As Range)
Dim i As Long
Dim RefDeb As Range
'Recherche la prochaine ligne disponible pour insertion
i = 69
Do While Range("K" & 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

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 ?

Re : Bouton ajouter et supprimer

Re


Tu as regardé mon dernier fichier joint?

Re : Bouton ajouter et supprimer

Staple1600 à dit:

Bonsoir à tous


Message recu en MP



PS: mieux vaut rester dans le fil, que de passer par la MP
(MP= messagerie privée)

Voici un début (pour deux zones de liste)
Je te laisse faire pour les 8 autres
(Voir commentaires dans le code VBA)

Il n'y a plus qu'un seul bouton [Ajouter] désormais

Cliquez pour agrandir...

Oui j'ai vu ton code celà ne fonctionne pas dans le cas ou tu as des listes à gauche et à droite car on ne travaille pas sur la même colonne.

Ce lien n'existe plus

J'ai un bout de code qui marche mais il faudrait juste que je puisse utiliser la variable i sur les 2 fonctions de cette manière, la copie ne sera pas écrasé dans le panier

Aurais tu une astuce ?

Re : Bouton ajouter et supprimer

Re


Quand tu compresses ton fichier.xls de 197Ko, il fait combien ensuite?

Re : Bouton ajouter et supprimer

Il fait 68ko une fois compréssé, tu as pu voir le lien que je t'ai laissé ?

Re : Bouton ajouter et supprimer

C'est bon, 00h21, je viens de terminé le tout ouff... Je vais pouvoir allez me couché, merci a tous pour votre aide précieuse.
@+

Re : Bouton ajouter et supprimer

limofab à dit:

C'est bon, 00h21, je viens de terminé le tout ouff... Je vais pouvoir allez me couché, merci a tous pour votre aide précieuse.
@+

Cliquez pour agrandir...

hello chef, ce serait bien si tu pouvais mettre le résultat en partage pour les autres stp

merci d'avance

Re : Bouton ajouter et supprimer

Bonsoir à tous



---> limofab
EDITION: Désolé je n'avais pas vu que tu avais figé les volets.
Dans ton dernier fichier ou sont passés les:
ActiveSheet.Shapes("Drop Down 1") ???


PS: une solution : (Pour joindre ton fichier dans le post)
Tu copies chaque feuille dans un classeur
(Soit 3 classeurs: avec chacun une feuille
Classeur1: contient Feuil1
Classeur2:contient Liste
Classeur3: contient Feuil2
Tu crées un zip par classeur
Et tu postes les trois zip dans ton message
(Puisqu'on peut joindre jusqu'à 4 pièces jointes dans le message)
Tu peux même essayer
un zip contenant 2 classeurs
un zip contenanr 1 classeur.

Re : Bouton ajouter et supprimer

Re bonsoir,
Voici le resultat 😀 :
Manque juste a rajouter une ligne pour la procedure supprimer afin qu'elle ne génère pas de message d'erreur lorsque l'on clique sur Annuler
Bonne soirée

Re : Bouton ajouter et supprimer

Re



Une question me turlupine en parcourant ton classeur.

Les données contenues dans ton classeur ne sont pas confidentielles?

(Ce sont les vrais tarifs?)

Re : Bouton ajouter et supprimer

Staple1600 à dit:

Re



Une question me turlupine en parcourant ton classeur.

Les données contenues dans ton classeur ne sont pas confidentielles?

(Ce sont les vrais tarifs?)

Cliquez pour agrandir...

Non ce n'est pas confidentiel. Tu penses que l'applicatif va tenir le coup ?

Re : Bouton ajouter et supprimer

J'ai le code du bouton supprimer qui evite l'erreur, Merci a Ninbihan :

1
On Error Resume Next 'inhibe la gestion d'erreur
Set nom = Application.InputBox("Sélectionnez le n°SAP a effacer", "Effacer?", Type:=8)
If nom Is Nothing Then 'teste si nom est défini
On Error GoTo 0 'rétablit la gestion d'erreur
Exit Sub ' sort de la proc
End If
On Error GoTo 0 'rétablit la gestion d'erreur
If nom.Column() = "4" 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 un n°SAP !")
GoTo 1
End If