Puis-je abuser sur la question. Est-ce que le code que tu viens de me proposer peut fonctionner pour les ce llules qui contiennent #N/A à la suite de la copie d'une plage de donné es?
JP
Isabelle,
Puis-je abuser sur la question.
Est-ce que le code que tu viens de me proposer peut fonctionner pour les ce llules qui contiennent #N/A à la suite de la copie d'une plage de donné es?
Puis-je abuser sur la question. Est-ce que le code que tu viens de me proposer peut fonctionner pour les ce llules qui contiennent #N/A à la suite de la copie d'une plage de donné es?
JP
isabelle
oui sans probleme, et tu peut aussi enlever les #N/A de la même facon,
Puis-je abuser sur la question. Est-ce que le code que tu viens de me proposer peut fonctionner pour les cellules qui contiennent #N/A à la suite de la copie d'une plage de données?
JP
oui sans probleme,
et tu peut aussi enlever les #N/A de la même facon,
Puis-je abuser sur la question.
Est-ce que le code que tu viens de me proposer peut fonctionner pour les cellules qui contiennent #N/A à la suite de la copie d'une plage de données?
Puis-je abuser sur la question. Est-ce que le code que tu viens de me proposer peut fonctionner pour les cellules qui contiennent #N/A à la suite de la copie d'une plage de données?
Du coup j'ai fait du ménage dans les macros. Est-ce code peut être adapté pour supprimer toutes les valeurs numéri ques supérieures à 0? J'ai fait une boucle for i en mettant i dans What:=i.
Ce n'est pas concluant!
Merci
JP
Isabelle,
Du coup j'ai fait du ménage dans les macros.
Est-ce code peut être adapté pour supprimer toutes les valeurs numéri ques supérieures à 0?
J'ai fait une boucle for i en mettant i dans What:=i.
Du coup j'ai fait du ménage dans les macros. Est-ce code peut être adapté pour supprimer toutes les valeurs numéri ques supérieures à 0? J'ai fait une boucle for i en mettant i dans What:=i.
Du coup j'ai fait du ménage dans les macros. Est-ce code peut être adapté pour supprimer toutes les valeurs numériques supérieures à 0? J'ai fait une boucle for i en mettant i dans What:=i.
Du coup j'ai fait du ménage dans les macros.
Est-ce code peut être adapté pour supprimer toutes les valeurs numériques supérieures à 0?
J'ai fait une boucle for i en mettant i dans What:=i.
Du coup j'ai fait du ménage dans les macros. Est-ce code peut être adapté pour supprimer toutes les valeurs numériques supérieures à 0? J'ai fait une boucle for i en mettant i dans What:=i.
Ce n'est pas concluant!
Merci
JP
isabelle
oups ça sélectionne aussi les nombres négatif, je pense que tu n'as pas le choix de faire une boucle pour ce cas.
pour la commande "remplace" regarde au menu, acceuil, édition, recherche et sélectionner, remplacer.
Du coup j'ai fait du ménage dans les macros. Est-ce code peut être adapté pour supprimer toutes les valeurs numériques supérieures à 0? J'ai fait une boucle for i en mettant i dans What:=i.
Ce n'est pas concluant!
Merci
JP
oups ça sélectionne aussi les nombres négatif,
je pense que tu n'as pas le choix de faire une boucle pour ce cas.
pour la commande "remplace" regarde au menu, acceuil, édition, recherche et
sélectionner, remplacer.
Du coup j'ai fait du ménage dans les macros.
Est-ce code peut être adapté pour supprimer toutes les valeurs numériques
supérieures à 0?
J'ai fait une boucle for i en mettant i dans What:=i.
Du coup j'ai fait du ménage dans les macros. Est-ce code peut être adapté pour supprimer toutes les valeurs numériques supérieures à 0? J'ai fait une boucle for i en mettant i dans What:=i.
Ce n'est pas concluant!
Merci
JP
GL
Le 20/04/2014 20:31, JP a écrit :
Bonsoir,
J'ai dans une plage de données des 0 et des croix "X". J'utilise ce code pour supprimer toutes les croix dans la plage de données.
For Each c In Range("AA6:BD1006") If c= "X" Then c.ClearContents End if Next
Le temps de traitement est trop long.
Est-ce qu'il existe un moyen plus rapide?
A part la belle réponse d'Isabelle ;-) il faut aussi penser à
Application.ScreenUpdating = False
quand on a une boucle longue. Souvent ça accélère grandement la macro.
Ne pas oublier dans ce cas :
On Error Goto LabelError ...
LabelError: Application.ScreenUpdating = True
Cordialement.
Le 20/04/2014 20:31, JP a écrit :
Bonsoir,
J'ai dans une plage de données des 0 et des croix "X".
J'utilise ce code pour supprimer toutes les croix dans la plage de données.
For Each c In Range("AA6:BD1006")
If c= "X" Then
c.ClearContents
End if
Next
Le temps de traitement est trop long.
Est-ce qu'il existe un moyen plus rapide?
A part la belle réponse d'Isabelle ;-)
il faut aussi penser à
Application.ScreenUpdating = False
quand on a une boucle longue. Souvent
ça accélère grandement la macro.