VBA :Rajout de valeur à la suite d'une liste.
Résolu/Fermé
ViriisXP
Messages postés
482
Date d'inscription
mardi 1 juin 2004
Statut
Membre
Dernière intervention
11 janvier 2023
-
21 mai 2012 à 18:39
ViriisXP Messages postés 482 Date d'inscription mardi 1 juin 2004 Statut Membre Dernière intervention 11 janvier 2023 - 23 mai 2012 à 07:34
ViriisXP Messages postés 482 Date d'inscription mardi 1 juin 2004 Statut Membre Dernière intervention 11 janvier 2023 - 23 mai 2012 à 07:34
A voir également:
- VBA :Rajout de valeur à la suite d'une liste.
- Incompatibilité de type vba ✓ - Forum Programmation
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba dernière colonne non vide ✓ - Forum VB / VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
1 réponse
Co_nexion
Messages postés
328
Date d'inscription
lundi 5 mars 2012
Statut
Membre
Dernière intervention
15 juillet 2015
Modifié par Co_nexion le 22/05/2012 à 12:53
Modifié par Co_nexion le 22/05/2012 à 12:53
Bonjour,
Tes 2 dernières lignes me genent un peu :
"Si une ou plusieurs ligne lait existe , on mets à la suite.
Sinon, on crée une nouvelle ligne a la fin. "
On ne met pas tous à la suite ? A la fin de quoi ?
Un fichier exemple serait plus simple pour comprendre exactement ce que tu veux faire.
A+
Tes 2 dernières lignes me genent un peu :
"Si une ou plusieurs ligne lait existe , on mets à la suite.
Sinon, on crée une nouvelle ligne a la fin. "
On ne met pas tous à la suite ? A la fin de quoi ?
Un fichier exemple serait plus simple pour comprendre exactement ce que tu veux faire.
A+
22 mai 2012 à 14:21
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)
22 mai 2012 à 15:12
Si tu as un fichier transmet le
22 mai 2012 à 15:43
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
23 mai 2012 à 07:34