Macro somme doublmon et suppression lignes vi
argaz01
-
argaz01 -
argaz01 -
Bonjour,
Quelqu'un peut-il me dire pourquoi le code intégré dans le fichier ci-joint ne produit rien: En effet, j'aimerais que mon code supprime les lignes vides et fasse la somme des doublons:
http://www.cijoint.fr/cjlink.php?file=cj201006/cijaatMnFP.xls
D'avance merci
Cordialement
Quelqu'un peut-il me dire pourquoi le code intégré dans le fichier ci-joint ne produit rien: En effet, j'aimerais que mon code supprime les lignes vides et fasse la somme des doublons:
http://www.cijoint.fr/cjlink.php?file=cj201006/cijaatMnFP.xls
D'avance merci
Cordialement
8 réponses
-
Bonjour,
testé sous Office 2010, aucun problème ça s'exécute parfaitement !
Cordialement. -
Mais pourquoi ça ne marche chez moi (office 2003)? est-ce que le code pour faire la somme des doublons est le bon?
Cordialement -
Apparemment le code est bon oui, mais quel est ton problème ? Que le code ne fonctionne pas du tout ? Ou bien que tu voudrais qu'il se lance automatiquement à l'ouverture, ou quelque chose dans le même genre?
-
En fait, quant j'utilise F8 pour exécuter le code pas à pas, la bande jaune ne passe pas sur toutes les lignes dudit code et surtout celle de end sub, ce qui fait que je ne peux pas passer à l'autre code! et puis le code ne donne rien du tout!
sos!
Cordialement -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Ta première fonction est très longue à tester, tu as mis for n=3000 to 1, c'est extrêmement long !! C'est surement pour ça que tu penses que ça ne donne rien du tout.
Au lieu de le lancer ligne par ligne, exécute le code en entier, sans pas à pas, et tu verras que ça fonctionne, même s'il faut patienter.
Cordialement. -
Quand j'exécute le code avec F5 ça supprime les lignes vides, mais les doublons restent! c'est que le code pour faire la somme des doublons ne fonctionne pas!non?
Concernant la ligneFor n = 3000 To 1 Step -1
comment faire plus simple et plus court?
merci -
Pour la ligne For je ne vois pas trop comment faire.
Si tu veux lancer la deuxième routine après la première, il faut que tu l'appelles dans la première. C'est-à-dire que juste avant le End Sub de ta première routine, écrire le nom de la deuxième. Ce qui donne :Application.ScreenUpdating = False For n = 3000 To 1 Step -1 If Range("A" & n) = "" Then Rows(n).Delete Next n Application.ScreenUpdating = True SommeDoublonsAMF End Sub
Par contre ta 2e fonction ne fonctionne pas. Ce qui semble nomal vu que tu testes que les Catégories d'une ligne et le ratio de cette ligne soient égaux aux données de la ligne d'en dessous. Or ceci n'est jamais vrai dans ce que tu as mis en ligne. Donc forcément cela ne fait jamais la somme.
Ce mec la n'était pas une lumière, car il était niais. -
Merci chossette9 pour ton aide, et effectivement la 2ème macro ne fonctionne pas, peut-être dois-je cherché une autre façon de faire.
Cordi@lement