A voir également:
- Macro somme doublmon et suppression lignes vi
- Somme si couleur - Guide
- Macro logiciel - Télécharger - Organisation
- Forcer suppression fichier - Guide
- Suppression compte instagram - Guide
- Somme excel - Guide
8 réponses
chossette9
Messages postés
4239
Date d'inscription
lundi 20 avril 2009
Statut
Contributeur
Dernière intervention
12 septembre 2014
1 304
28 juin 2010 à 13:57
28 juin 2010 à 13:57
Bonjour,
testé sous Office 2010, aucun problème ça s'exécute parfaitement !
Cordialement.
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
Cordialement
chossette9
Messages postés
4239
Date d'inscription
lundi 20 avril 2009
Statut
Contributeur
Dernière intervention
12 septembre 2014
1 304
28 juin 2010 à 14:08
28 juin 2010 à 14:08
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
sos!
Cordialement
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
chossette9
Messages postés
4239
Date d'inscription
lundi 20 avril 2009
Statut
Contributeur
Dernière intervention
12 septembre 2014
1 304
28 juin 2010 à 14:25
28 juin 2010 à 14:25
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.
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 ligne
merci
Concernant la ligne
For n = 3000 To 1 Step -1comment faire plus simple et plus court?
merci
chossette9
Messages postés
4239
Date d'inscription
lundi 20 avril 2009
Statut
Contributeur
Dernière intervention
12 septembre 2014
1 304
Modifié par chossette9 le 28/06/2010 à 14:46
Modifié par chossette9 le 28/06/2010 à 14:46
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 :
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.
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.