VBA :Rajout de valeur à la suite d'une liste.
Résolu
ViriisXP
Messages postés
535
Statut
Membre
-
ViriisXP Messages postés 535 Statut Membre -
ViriisXP Messages postés 535 Statut Membre -
Bonjour,
je m'explique un peu mieux : j'ai besoin d'une macro qui prend lignes de la feuille : extraction et qui me les envois vers donnees. Jusque là, ca va. sauf que les valeurs sont :
produit | date de buté | Operation
mais dans donnees ils existent plusieurs opérations pour "produit",
ex :
lait | 12/05/12 | a jeter
lait | 12/05/12 | pour crepe
lait | 24/05/12| pour puree
bref, je veux pouvoir rajouter mes valeurs à la suite, sachant que d'autre produit se trouve au dessous bien sur, donc un petit row.insert.
Si une ou plusieurs ligne lait existe , on mets à la suite.
Sinon, on crée une nouvelle ligne a la fin.
voila. Merci par avance. :)
je m'explique un peu mieux : j'ai besoin d'une macro qui prend lignes de la feuille : extraction et qui me les envois vers donnees. Jusque là, ca va. sauf que les valeurs sont :
produit | date de buté | Operation
mais dans donnees ils existent plusieurs opérations pour "produit",
ex :
lait | 12/05/12 | a jeter
lait | 12/05/12 | pour crepe
lait | 24/05/12| pour puree
bref, je veux pouvoir rajouter mes valeurs à la suite, sachant que d'autre produit se trouve au dessous bien sur, donc un petit row.insert.
Si une ou plusieurs ligne lait existe , on mets à la suite.
Sinon, on crée une nouvelle ligne a la fin.
voila. Merci par avance. :)
A voir également:
- VBA :Rajout de valeur à la suite d'une liste.
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
lait
lait
lait
pain
pain
pates
ect;..
je veux mes nouvelles valeurs à la suite des autres "lait" mais si lait n'existe pas, ben on mets à la fin de la liste (derniere cellules non vide +1)
Si tu as un fichier transmet le
Principe de recherche et insertion
Il faudra completer pour les deux infos autre que le produit
Sub Recherche_Infos() Dim Col_A As Range, Produit, DCNVA Produit = "lait " 'Produit = "Beurre" 'Recherche derniere ligne colonne A DCNVA = Worksheets("feuil1").Range("A" & Rows.Count).End(xlUp).Row With Worksheets("feuil1").Range("A1:A" & DCNVA) 'Definition Plage de cellule pour recherche Set Col_A = .Range("A1:A" & DCNVA) 'Nombre de fois meme produit Nb = Application.CountIf(Col_A, Produit) If Nb < 1 Then 'Pas de Produit insert_ligne_Fin .Range("A" & DCNVA + 1) = Produit Else 'Produit trouve, cherche derniere ligne du produit Set PLProd = .Find(Produit, , , xlWhole) rangee = PLProd.Row + Nb - 1 'Insert ligne vers la bas et ecriture produit Rows(rangee & ":" & rangee).Insert xlDown .Range("A" & rangee) = Produit End If End With End SubBonne suite