IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Macro : suppression de valeurs (remplacement par "") [XL-2003]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2012
    Messages
    83
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2012
    Messages : 83
    Par défaut Macro : suppression de valeurs (remplacement par "")
    Voilà, le but du jeu est de supprimer l'ensemble des valeurs "01/01/1901" du fichier copier dans l'outil. J'aimerais donc remplacer cette valeur par "" sur l'ensemble de la feuille1.

    Mon code ressemble à ça :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    Sub Sup1()
    With Sheets("Feuil1")
    Cells.Replace "01/01/1901", ""
    End With
    End Sub
    Et le bouton qui fait appelle à la macro :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     
    Private Sub CommandButton1_Click()
    Call Sup1
    Call Sup2
    Call Traitement
    Call Filtre
    Call Renomme
    Call Filtre2
    Call Renomme2
    End Sub
    Jusque là pas de problème, l'ensemble des macros tournent parfaitement bien. Aucuns debogages ou autres.
    Mais voilà, après avoir fait tourner les macros. Je me suis rendu compte que les valeurs "01/01/1901" étaient toujours présentes. Le reste fonctionne bien et c'est pour cela que je n'ai pas joint ou inséré le reste du code (autres macros). Une petit idée sur ce problème ? Un format de cellule (date) ? ...

    Je vous remercie d'avance .

  2. #2
    Inactif  
    Homme Profil pro
    Inscrit en
    Septembre 2012
    Messages
    1 733
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations forums :
    Inscription : Septembre 2012
    Messages : 1 733
    Par défaut
    "" = 0 pour excel
    cdate(0)= 01/01/1901

    donc.. suffit de virer le format date et t'auras ""

  3. #3
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    Suivant la feuille où tu te trouves, tu oublies déjà un "." ci-dessous ton "With" ne sert à rien
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    With Sheets("Feuil1")
    Cells.Replace "01/01/1901", ""
    End With
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    With Sheets("Feuil1")
    .Cells.Replace "01/01/1901", ""
    End With
    sinon, essayes :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Dim plage As Range, cel As Range
    With Sheets("Feuil1")
      Set plage = .Range("A1").CurrentRegion 'à adapter à ta plage
      For Each cel In plage
        If cel = CDate("01/01/1901") Then MsgBox cel.Address: cel = Empty
      Next cel
    End With
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  4. #4
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2012
    Messages
    83
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2012
    Messages : 83
    Par défaut
    La première méthode en ajoutant le "." ne marche pas.
    En revanche j'aimerais bien tester la 2ème méthode cependant si je veux adapter la plage à mon fichier de manière variable. Comment dois-je procéder ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range(Range("A1"), Range("Y65000").End(xlUp))
    ou

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range("A1", [Y65000].End(xlUp))
    Merci sinon à vous deux

  5. #5
    Inactif  
    Homme Profil pro
    Inscrit en
    Septembre 2012
    Messages
    1 733
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations forums :
    Inscription : Septembre 2012
    Messages : 1 733
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    dernlig=.Range("A" & rows.count).End(xlUp).row
    derncol =.Cells(1, Columns.Count).End(xlToLeft).Column
    .range(.cells(1,1),.cells(dernlig,derncol))

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 28/05/2015, 17h28
  2. [ICEFACES] Les quotes sont remplacées par &#_39;
    Par Mathieu.J dans le forum JSF
    Réponses: 0
    Dernier message: 19/01/2010, 16h09
  3. Remplacer les valeurs NULL par d'autres valeurs
    Par salmer dans le forum MS SQL Server
    Réponses: 7
    Dernier message: 22/11/2006, 15h20
  4. [INSERT / UPDATE] Remplacer une valeur vide par NULL
    Par jissay dans le forum SQL Procédural
    Réponses: 4
    Dernier message: 28/09/2006, 14h15
  5. [JSTL] Mes variables ne sont pas remplacées par leur valeur
    Par thomine dans le forum Taglibs
    Réponses: 9
    Dernier message: 18/03/2005, 10h00

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo