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 :

Récupération d'une cellule dans une variable


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2012
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Enseignement

    Informations forums :
    Inscription : Juin 2012
    Messages : 12
    Par défaut Récupération d'une cellule dans une variable
    bonsoir;
    peux-tu m'expliquer pourquoi je n'arrive pas à récupérer la cellule A5 dans une variable Name et la cellule A2 dans une variable size:
    j'ai utilisé Range et celles et ça ne marche pas.
    Merci pour l'aide
    Cordialement

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    For x = Range("A65536").End(xlUp).Row To 1 Step -1
    If Range("A" & x) = "A" Then
             Range("B" & x & ":B" & x & "").Select
             Selection.NumberFormat = "0"
             With Selection.Font
             Name = Cells(1, 5)                    ' cette ligne récupère la cellule A5
            .FontStyle = "Normal"
             Size = Cells(1, 2)                      ' cette ligne récupère la cellule A2
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ThemeColor = xlThemeColorLight1
            .TintAndShade = 0
            .ThemeFont = xlThemeFontNone
             End With
    Next x

  2. #2
    Inactif  

    Homme Profil pro
    Développeur .NET
    Inscrit en
    Janvier 2012
    Messages
    4 903
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2012
    Messages : 4 903
    Billets dans le blog
    36
    Par défaut
    Bonjour,

    C'est quoi qui ne marche pas ? Quoiqu'il en soit, VBA doit se faire du mauvais sang avec ton Name. Parce qu'il ne sait pas si tu veux lui faire avaler:

    ou autre chose. Et là, il est supposé te fournir un message d'horreur. Et c'est la même chose pour ton size.

    Normalement, dans une structure With - End With, on se limite aux propriétés de l'objet concerné, et on fait attention pour éviter toute ambigüité.

    Pour le reste ma boule de cristal est restée opaque.

  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
    Bonjour,

    c'est ça que tu cherches ?

    sinon adaptes à tes besoins
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    Sub essai()
    Dim x As Long
    For x = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
      If UCase(Range("A" & x)) = "A" Then
      'j'imagine que les formats changent en col B
        With Range("B" & x)
          .NumberFormat = "0"
          With .Font
            'ci-dessous j'ai écris "arial" en E1
            .Name = Cells(1, 5)
            .FontStyle = "Normal"
            'ci-dessous, j'ai écris 20 en C1
            .Size = Cells(1, 3)
          End With
        End With
      End If
    Next x
     
    End Sub
    PS : ici le "step" ne sert à rien, tu aurais pu faire
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    For x = 1 to Range("A" & Rows.Count).End(xlUp).Row
    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 averti
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2012
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Enseignement

    Informations forums :
    Inscription : Juin 2012
    Messages : 12
    Par défaut
    bonsoir,
    Merci pour ta sympathie et aide.
    ça marche maintenant, sauf pour la variable Name, apparemment les polices EAN-13 et C39HrP48DhTt (codes à barre)
    sont spéciales et la récupération dans une variable cause problème?, de toute façon, pour les autres variables, ça marche.
    merci beaucoup.
    Cordialement
    HBY


  5. #5
    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
    Bonjour,
    ...ça marche maintenant, sauf pour la variable Name, apparemment les polices EAN-13 et C39HrP48DhTt (codes à barre).....
    "Name" n'est pas une variable, "Size" non plus ce sont des mots réservés, le 1er indiquant le nom de police et le second la taille, quand on écrit
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    ...
    With Range("B" & x)
          .NumberFormat = "0"
          With .Font
            .Name = Cells(1, 5)
    ...
    on pourrait écrire
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Range("B" & x).NumberFormat = "0"
    Range("B" & x).Font.Name = Cells(1, 5)
    .....
    bon courage
    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...)

  6. #6
    Membre averti
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2012
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Enseignement

    Informations forums :
    Inscription : Juin 2012
    Messages : 12
    Par défaut Problème de récupération et de fusion
    Bonjour,
    merci pour l'effort pour m'aider, voici ci-joint le fichier texte, le fichier excel avec la macro.
    j'ai apporté des commentaires dans les paragraphes ou je bloque.
    j'ai compressé pour pouvoir joindre la police utilisée.

    Cordialement

    ne te moque pas de ma macro, j'ai moins d'un mois d'expérience dans le VBA, mais ça marche, c'est l'essentiel n'est ce pas!

    HBY
    Fichiers attachés Fichiers attachés

  7. #7
    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
    ouai, et bien !!!

    je me retrouve avec un fichier qui correspond à l'image ci-dessous, regardes déjà ce que tu as en A5, alors quand j'aurai compris ça, on verra pour le reste, surtout que tu n'as toujours pas modifié ton code en fonction des conseils
    Images attachées Images attachées  
    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...)

  8. #8
    Membre averti
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2012
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Enseignement

    Informations forums :
    Inscription : Juin 2012
    Messages : 12
    Par défaut
    rebonjour
    enlève les dernières lignes du programme qui suppriment la colonne A1 et tu auras les cellules qui renseignent la police, la taille, la .hauteur et la largeur
    n'oublie pas d'installer sous windows la font: C39HrP48DhTt
    moi j'obtiens le résultat ci-joint.
    J'ai essayé de suivre tes conseils mais des messages d'erreur, c'est pour cela, j'ai préféré t'envoyer tout le travail, peu t-être c'est plus simple pour toi de comprendre.

    cordialement
    HBY
    Fichiers attachés Fichiers attachés

  9. #9
    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
    n'oublie pas d'installer sous windows la font: C39HrP48DhTt
    il n'est pas question que je charge quoi que ce soit qui ne me soit pas utile, je vais encore vérifier avec ce que tu me dis et en regardant si je peux améliorer ce code mais sans garantie de nouvelle réponse si ça m'oblige à charger ta police.
    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...)

  10. #10
    Membre averti
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2012
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Enseignement

    Informations forums :
    Inscription : Juin 2012
    Messages : 12
    Par défaut
    Bonsoir,
    désolé, je n'ai pas cherché à vous obliger à installer quoi que ce soit, j'ai seulement cherché à t'expliquer qu'il fallait installer la police nécessaire pour avoir l'affichage recherché.
    Merci pour l'effort et le vouloir aider.
    Cordialement
    HBY

Discussions similaires

  1. [Toutes versions] coller les données d'une plage d'une cellule dans une cellule d'une autre feuille[VBA]
    Par arthson dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 24/01/2012, 17h37
  2. [XL-2007] problème de codage en vba ("copie d'une partie d'une cellule dans une cellule vide")
    Par skipeemed dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 26/10/2010, 17h01
  3. [XL-2002] Macro de comparaison d'une cellule d'une feuille avec une cellule d'une autre feuille.
    Par steelydan dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 08/09/2010, 12h59
  4. Réponses: 9
    Dernier message: 04/11/2009, 14h54
  5. Recherche une valeur d'une cellule dans une colonne d'une autre feuille
    Par kourria dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 21/06/2007, 13h48

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